Faire un If en comparaisant deux cellule de couleur
Résolu
viret1290
Messages postés
146
Statut
Membre
-
viret1290 Messages postés 146 Statut Membre -
viret1290 Messages postés 146 Statut Membre -
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
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:
- Faire un If en comparaisant deux cellule de couleur
- Excel cellule couleur si condition texte - Guide
- Comment faire deux colonnes sur word - Guide
- Excel compter cellule couleur sans vba - Guide
- Nombre de jours entre deux dates excel - Guide
- Fusionner deux cellules excel en gardant le contenu - Guide
2 réponses
Bonjour,
avant:
apres:
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