Faire un If en comparaisant deux cellule de couleur

Résolu/Fermé
viret1290 Messages postés 141 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 28 juillet 2024 - 23 mars 2016 à 09:20
viret1290 Messages postés 141 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 28 juillet 2024 - 23 mars 2016 à 10:23
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



2 réponses

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
23 mars 2016 à 09:33
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
viret1290 Messages postés 141 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 28 juillet 2024 2
23 mars 2016 à 10:23
Merci infiment ça fonctionne à merveille
0