XL 2019 Un seule boucle plage multiple if plage

[Hoareau]

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]

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 ...

 

[patricktoulon]

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

bonsoir @ChTi160 regarde sa 1ere demande 😉

 

[Hoareau]

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

 

[ChTi160]

Bonjour ,
Patrick
Effectivement !
Excuses lol
Jean larie