Discussion :

[Rough43]

Bonjour à tous,

Dans une feuille, à chaque ligne, il y a 4 cellules de (D à G) soumises à mise en forme conditionnelle et suivant le résultat se met en couleur.

Ici une fois que 4 cellules de même ligne ont la même couleur, je voudrais que cela déclenche immédiatement une action de couleur sur une cellule (H) et marque "OK" dans cette cellule.

J'ai fait ce code ci dessous mais cela ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub ColoriageMemeCouleur()
 
Dim i As Integer
Dim lig As Integer
lig = 0
 
ActiveSheet.Select
 
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
 
If Cells(i, "D").FormatConditions(1).ColorIndex = 35 And _
    Cells(i, "E").FormatConditions(1).ColorIndex = 35 And _
    Cells(i, "F").FormatConditions(1).ColorIndex = 35 And _
    Cells(i, "G").FormatConditions(1).ColorIndex = 35 Then
    Cells(i, "H").Interior.ColorIndex = 35 And _
    Cells(i, "H").vale = "OK"
 
    'Comptons les lignes effacées
    lig = lig + 1
    End If
Next i
 
'Affichons le nombre de lignes maj
MsgBox "Mise à jour de " & lig & " ligne(s) OK", vbOKOnly + vbInformation, "INFORMATION"
 
End Sub

Et j'avoue de ne pas comprendre pourquoi il y a (1) dans "FormatConditions(1)"

Merci d'avance

[Denis la Malice]

Bonjour,
Chaque cellule change de couleur en fonction de critères. Il ne faut pas que tu fasses un test sur la couleur de chaque cellule, mais que tu fasses un test sur les critères.
FormatConditions(1).ColorIndex te renvoie l'index de couleur de la règle conditionnelle, mais pas l'index de la couleur qui s'affiche actuellement.
La condition de la colonne H doit être un AND des 4 conditions des colonnes D à G.