titeuf136
Messages postés91Date d'inscriptionvendredi 15 janvier 2010StatutMembreDernière intervention19 octobre 2012
-
28 mars 2010 à 14:57
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024
-
28 mars 2010 à 17:57
Bonjour,
je cherche à mettre en couleur une cellule, en reprenant la même couleur q'une autre cellule
NHenry
Messages postés15113Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention22 avril 2024159 28 mars 2010 à 15:19
Bonjour,
évite les mélanges, c'est soit :
Cells(i, 25).Interior.Color = Cells(i, 20).Interior.Color
soit :
Cells(i, 25).Interior.ColorIndex= Cells(i, 20).Interior.ColorIndex
cs_Le Pivert
Messages postés7903Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention11 mars 2024137 28 mars 2010 à 17:22
Bonjour,
J'ai bien ce code un peu simpliste si c'est cela que tu recherches:
Private Sub CommandButton1_Click()
If Range("A1").Interior.Color = RGB(255, 0, 0) Then ' 'Rouge
Range("B1").Interior.Color = RGB(255, 0, 0) 'Rouge
End If
End Sub
@+ Le Pivert