Faire un If en comparaisant deux cellule de couleur

Résolu
viret1290 Messages postés 141 Date d'inscription   Statut Membre Dernière intervention   -  
viret1290 Messages postés 141 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
J'aimerai faire un If vrai si les deux cellules on la même couleur.
Le code que j'ai fait est celui-ci, mais il ne fonctionne pas
Merci de votre aide

For VarColonne = 2 To 57
If FAffectationSemaine.Cells(4, 8) = FServicePromenade.Cells(2, VarColonne) Then
For i = 3 To FServicePromenade.Cells(1, 1) + 2 'On parcour le classeur Service Etage
For j = 16 To 20 'On parcour les présences
If FAffectationSemaine.Cells(j, 2).Interior.Color = RGB(255, 255, 0) = FServicePromenade.Cells(i, VarColonne).Interior.Color = RGB(255, 255, 0) Then
FAffectationSemaine.Cells(j, 2) = FServicePromenade.Cells(i, 2)
FAffectationSemaine.Cells(j, 3) = FServicePromenade.Cells(i, 3)
End If
Next
Next
End If
Next



A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,
avant: 
If FAffectationSemaine.Cells(j, 2).Interior.Color = RGB(255, 255, 0) = FServicePromenade.Cells(i, VarColonne).Interior.Color = RGB(255, 255, 0) Then

apres: 
If FAffectationSemaine.Cells(j, 2).Interior.Color = RGB(255, 255, 0) And FServicePromenade.Cells(i, VarColonne).Interior.Color = RGB(255, 255, 0) Then
0
Réponse 2 / 2
viret1290 Messages postés 141 Date d'inscription   Statut Membre Dernière intervention   2
 
Merci infiment ça fonctionne à merveille
0

Discussions similaires

excel fractionner une cellule horizontalement
jalil -
barbiy -

5 réponses
Changer la couleur de fond d'un en-tête
Adamantine -
m@rina -

4 réponses
sertissage des cables rj45
lekludo -
brupala -

7 réponses
Colorer une cellule quand une autre est non vide
Cé. -
MissCad -

4 réponses