Faire un If en comparaisant deux cellule de couleur [Résolu/Fermé]

Signaler
Messages postés
115
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
26 août 2019
-
Messages postés
115
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
26 août 2019
-
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

Messages postés
15524
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
21 janvier 2021
1 437
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 
Messages postés
115
Date d'inscription
samedi 17 août 2013
Statut
Membre
Dernière intervention
26 août 2019
2
Merci infiment ça fonctionne à merveille