copier une couleur de cellule ?????

[claudenord]

Salut a tous

Je voudrais savoir comment on peut transferer automatiquement une couleur de cellule d'une feuille vers une autre ?

Par exemple : si je mets le fond la cellule feuille 1 A1 en jaune , comment faire pour la cellule B2 de la feuille 2 soit en jaune aussi et sans texte inteieur???

et comment faire sans passer par le VBA ou comment s'y prendre

Merci d'avance

Claudenord

 

[Pierrot93]

Re : copier une couleur de cellule ?????

Bonjour,

avec vba et sans mise en forme conditionnelle....

Sheets("Feuil1").Range("A1").Interior.ColorIndex = Sheets("Feuil2").Range("A2").Interior.ColorIndex

bon après midi
@+

 

[claudenord]

Re : copier une couleur de cellule ?????

salut pierrot

merci de m'avoir répondu , c'est sympa
le probleme c'est que je sais pas comment associer la VBa a ma cellule concernée lol
peux m'expliquer comment faire ?
j'ai eu des bases de programmation mais en turbo pascal mais sur excel

merci d'avance
claudenord

 

[mapomme]

Re : copier une couleur de cellule ?????

Bonsoir claudenord,

Un exemple dans le fichier joint.

Le code est dans le module de code de Feuil2 associé à l'évènement "Activation de la feuille". Chaque fois qu'on sélectionne la feuille Feuil2, le fond de la cellule B2 est modifié pour prendre la couleur du fond de la cellule A1 de la feuille Feuil1.

Private Sub Worksheet_Activate()
Range("B2").Interior.Color = Sheets("Feuil1").Range("A1").Interior.Color
End Sub

Pour visualiser le code, tu tapes Alt+F11. La fenêtre de l'environnement VBA s'affiche. Dans la partie gauche (fenêtre Projet) tu double-cliques sur => voir l'image.