Mise en couleur d'une cellule

[Résolu]
Signaler
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
-
Messages postés
7568
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 octobre 2021
-
Bonjour,

je cherche à mettre en couleur une cellule, en reprenant la même couleur q'une autre cellule

voici mon code (qui ne marche pas)
Cells(i, 25).Interior.Color = Cells(i, 20).Interior.ColorIndex


merci d'avance pour votre aide

5 réponses

Messages postés
14823
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
9 octobre 2021
156
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

mais pas un mix.

Mon site
Messages postés
7568
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 octobre 2021
127
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
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
1
En fait j'ai bien essayé les deux combinaisons mais sans succès, je vais chercher si une autre erreur c'est glissé dans mon code
Messages postés
91
Date d'inscription
vendredi 15 janvier 2010
Statut
Membre
Dernière intervention
19 octobre 2012
1
mon erreur a été de mettre en couleur des cellules puis de les fusionner avec des cellules qui n'avaient aucune couleur de fond.
Messages postés
7568
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 octobre 2021
127
Je ne comprends pas. Ce n'est pas de la programmation. Il suffit de sélectionner les cellules concernées et de supprimer le format.