Bonjour
J'essaie de faire une boucle sur plusieurs plages
En fonction de la plage affecter une couleur différente, si la valeur est trouvée
J'ai un message erreur next sans for, alors qu'il y a bien deux next et deux for
merci
Status = Array("Plage_2", "Plage_3", "Plage_4")
For Each Cp_3 In Plage_1
For Each Cp_4 In Plage_jour
If Status(1) = Plage_2 Then
If Cp_3 = Cp_4 Then
Cp_3.Interior.ColorIndex = 48
Cp_4.Interior.ColorIndex = 48
ElseIf Status(2) = Plage_3 Then
If Cp_3 = Cp_4 Then
Cp_3.Interior.ColorIndex = 50
Cp_4.Interior.ColorIndex = 50
ElseIf Status(3) = Plage_3 Then
If Cp_3 = Cp_4 Then
Cp_3.Interior.ColorIndex = 51
Cp_4.Interior.ColorIndex = 51
End If
Next
Next
J'essaie de faire une boucle sur plusieurs plages
En fonction de la plage affecter une couleur différente, si la valeur est trouvée
J'ai un message erreur next sans for, alors qu'il y a bien deux next et deux for
merci
Status = Array("Plage_2", "Plage_3", "Plage_4")
For Each Cp_3 In Plage_1
For Each Cp_4 In Plage_jour
If Status(1) = Plage_2 Then
If Cp_3 = Cp_4 Then
Cp_3.Interior.ColorIndex = 48
Cp_4.Interior.ColorIndex = 48
ElseIf Status(2) = Plage_3 Then
If Cp_3 = Cp_4 Then
Cp_3.Interior.ColorIndex = 50
Cp_4.Interior.ColorIndex = 50
ElseIf Status(3) = Plage_3 Then
If Cp_3 = Cp_4 Then
Cp_3.Interior.ColorIndex = 51
Cp_4.Interior.ColorIndex = 51
End If
Next
Next