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
Bonjour Hoareau
Bonjour le Fil !
Bonjour Patrick
y'aurais pas un Plage_3 en trop ou un Plage_4 en Moins (dans ta procédure )lol
Bonne continuation
jean marie
Bonjour, pour ce qui est des plages, je mets des couleurs à chaque fois pour les visualiser
effectivement, en enlevant on error resume next, il y a un message erreur sur les plages
Mais si je mets NB à 11 dans la macro, pour n'avoir que les 10 premières et enlève les ' sur les intérior de chaque plage, chaque selection est bien colorée
10 dernières lignes deux par deux
Alors ?, pourquoi ce message d'erreur
J'ai donc abandonné les status, et vais essayer de trouver un autre moyen