> Tous les forums > Forum Bureautique
 Excel : fond cellule dynamiqueSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
DjiDji59430
  Posté le 28/11/2011 @ 14:49 
Aller en bas de la page 
Astucien

bonjour,

je voudrais savoir s'il y a un moyen simple pour executer cela :

une recopie du fond d'une cellule sur une autre, mais en dynamique:

Si je change la couleur du fond de feuil1!a1:a12, celle de feuil2!a1:12 change aussi, et de la meme couleur, mais en automatique, sans passer par collage special format a la main.

Ou une macro "Recopie_Couleur_Fond" qui recopie les couleurs des cellules [feuil1:a1:a1]2 sur la [feuil2!a1:a12]

j'ai reussi a faire une macro qui fonctionne sur 1 cellule, mais pas sur une plage.

Merci





Modifié par DjiDji59430 le 29/11/2011 22:11
Publicité
qmike549
 Posté le 28/11/2011 à 15:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

bonjour

Post le code que tu as crée , il sera plus aisé de l'adapter

DjiDji59430
 Posté le 28/11/2011 à 15:20 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Sub test()


[feuil2!a1].Interior.Color = [feuil!a1].Interior.Color

End Sub

je ne sais pas faire de macro, c'est assez primaire
je voudrais etendre cette macro a une zone
au lieu de a1, a1:a12, par exemple

Merci

ps : le but etant que si je colore une cellule dans feuil2, la meme cellule se colore aussi dans feuil1


Modifié par DjiDji59430 le 28/11/2011 15:28
qmike549
 Posté le 28/11/2011 à 16:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

bonjour

[feuil!a1:V1000].Interior.Color
DjiDji59430
 Posté le 28/11/2011 à 18:06 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Ça j'avais fait aussi, mais la zone se colore en noir, pas en couleur (les cellules sont rouges, vertes ou jaunes).

j'ai aussi essayé ça, mais ça ne fonctionne pas .

Deja, il faut faire la macro dans" feuiil"2 ou " this worksheet" ?

Sub test()
Dim c As Range
For Each c In [A5:a12]
 [feuil1!c].Interior.Color = [feuil2!c].Interior.Color
Next c
End Sub

excel me dit :
---------------------------
Microsoft Visual Basic pour Applications
---------------------------
Propriété ou méthode non gérée par cet objet
---------------------------
OK Aide
---------------------------



Modifié par DjiDji59430 le 28/11/2011 18:12
qmike549
 Posté le 29/11/2011 à 06:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

bonjour

voici quelques exemples

a adapter selon tes beoins

http://michel.vergriete.perso.sfr.fr/26excelvba.html

DjiDji59430
 Posté le 29/11/2011 à 18:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

merci, mais je n'ai pas trouvé queque chose a adapter

mon probleme est simple : je fais cette macro

Sub test()
Dim c As Range
For Each c In [feuil1!a1:b3]
c.Interior.Color = [feuil2!a1].Interior.Color
Next c
End Sub

qui me colore [feuil1!a1:b3] de la couleur de la seule cellule [feuil2!a1]

ce que je voudrais, c'est que couleur de feuil1!a1 = couleur de feuil2!a1

c'est que couleur de feuil1!a2 = couleur de feuil2!a2

et ainsi de suite !

DjiDji59430
 Posté le 30/11/2011 à 10:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

up. Personne d'inspiré, a ce que je vois !

DjiDji59430
 Posté le 30/11/2011 à 17:25 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

ce qu'il me manque, c'est comment ecrire feuil2!c ce qui nest pas valable

jpr73
 Posté le 30/11/2011 à 20:35 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Une procédure très simple mais dangereuse pour les données.

Sélectionner les feuilles 1 et 2

Pratiquer la mise en forme sur les cellules souhaitées : couleur, bordure, etc...

Dissocier les feuilles 1 et 2

La mise en forme a été automatiquement insérée dans la feuille 2 ou la feuille 1 selon l'état initial de la sélection.

Cordialement

DjiDji59430
 Posté le 30/11/2011 à 23:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

merci pour cette solution simple !

Ce n'est pas cela que je voulais (je voulais une macro), mais elle a le merite de repondre a ma question. Je mets en resolu

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
259,00 €PC Ankermann (Intel Pentium Dual Core, 8Go RAM, SSD 480Go, Win 10 Pro + Office 365) à 259 € livré
Valable jusqu'au 23 Mai

Amazon fait une promotion sur l'ordinateur de bureau Ankermann Silent PC Work à 259 € livré. Le PC est équipé d'un processeur Intel Pentium dual core à 2.7 GHz, de 8 Go de RAM, d'un SSD de 480 Go, d'un disque dur de 500 Go, d'un lecteur DVD, d'un lecteur de carte mémoires et tourne sous Windows 10 Pro 64 bits FR. Un abonnement d'un an à Microsoft Office 365 est également fourni.

Ajoutez un écran et un pack clavier souris et vous avez un PC complet à l'aise en bureautique et Internet. Garantie 2 ans.


> Voir l'offre
26,91 €Lot de 4 ampoules connectées Meross multicolores (WiFi, E27,2700-6500K, Alexa/Google) à 26,91 €
Valable jusqu'au 21 Mai

Amazon Allemagne fait une promotion sur le lot de 4 ampoules connectées Meross multicolores E27 qui passe à 21,99 € avec le code promo NPN6ZMYG. Comptez 4,92 € pour la livraison en France soit un total de 26,91 € livré au lieu de 49,99 €.

Après avoir connecté ces ampoules au WiFi de votre domicile, vous pourrez les contrôler par l'application Meross ou par la voix via Alexa ou Google Assistant. L'application vous permet de programmer l'allumage et la désactivation de vos ampoules selon vos habitudes quotidiennes et de créez des scénarios en ajustant l'intensité lumineuse et les couleurs (16 millions de teintes) pour créer une atmosphère parfaite.


> Voir l'offre
399,99 €TV 43 pouces Philips 43PUS7906 (LED, 4K, HDR, Ambilight, SmartTV) à 399,99 €
Valable jusqu'au 21 Mai

Fnac fait une promotion sur la TV LED 43 pouces (109 cm) Philips 43PUS7906 qui passe à 399,99 € alors qu'on la trouve ailleurs à partir de 500 €. Cette TV possède une dalle 4K Ultra HD, la fonction Ambilight (projette sur le mur un halo de lumière sur trois côtés du téléviseur), le HDR+ (amélioration du contraste et de la couleur) et intègre Netflix, Youtube, Disney+, ... grâce à son système Smart TV Saphi ainsi que Alexa pour la commande vocale.


> Voir l'offre

Sujets relatifs
HTML dynamique - Excel
case à cocher dans cellule Excel 2010
Excel 2010 et mode reference d'une cellule
Excel 2007 macro rajouter tri + cellule en surbrillance à chaque changement
incrémenter un N° de cellule à chaque ouverture du fichier Excel
EXCEL : défiler l'écran de manière à garder la cellule active au centre ?
Excel: Faire apparaître dans cellule nom sélection
Excel: valeur cellule impliquée dans calcul ailleurs -> connexions
Comment verrouiller une cellule Excel 2007
Suppression dans cellule Excel
Plus de sujets relatifs à Excel : fond cellule dynamique
 > Tous les forums > Forum Bureautique