XL 2019 Un seule boucle plage multiple if plage

Hoareau

XLDnaute Occasionnel
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
 

fanch55

XLDnaute Barbatruc
Salut à tous
@Hoareau ,
Enlevez le On error resume next et vous verrez tout de suite l’impossibilité de la demande dans les lignes de code notamment :
Set Plage_2 = Range(f.Offset(0, 7).Offset(-3, 0), f.Offset(0, 7).Offset(-4, 9))
Set Plage_3 = Range(f.Offset(0, 7).Offset(-5, 0), f.Offset(0, 7).Offset(-6, 9))
etc ...

On ne peut pas remonter au delà de la ligne 1 ...
Commencez par corriger tout le début de votre Sub Test pour avoir des plages correctes.

D'autre part,
If Status(0) = "Plage_2" Then ...
sera toujours vrai dans le contexte ....
donc les ElseIf ne servent à rien ...
 

Hoareau

XLDnaute Occasionnel
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

merci
 

Pièces jointes

  • Copie de Une seucle boucle plusieurs plage 5.xlsm
    54.3 KB · Affichages: 8

Discussions similaires