Problème d'exécution avec un For Each

Bonjour,

J'ai un petit programme qui affiche mon userform nombre_grand si une cellule de la plage (G1:G32) est supérieur à 250 :

Code:

---

1 2 3 4 5 6

For Each cell In Worksheets("Vérification").Range("G1:G32") If cell.Value > 250 Then nombre_grand.Show Exit For End If Next cell

---

Mon problème est que mon programme s'effectue et affiche mon userform quelle que soit la valeur des cellules de ma plage (même si toutes les cellules sont vides).

C'est comme si la ligne suivante n'existait pas :

Code:

---

If cell.Value > 250 Then

---

Pourriez-vous m'aider sur ce problème ? Aurais-je fais une simple faute de syntaxe :? ?

Merci !
Hio62

Bonjour,

où s'exécute cette portion de code ? Dans un module standard, procédure ? Dans une procédure évènementielle ?
Le plus simple serait déjà de publier le code en entier
Précise au passage le type d'affichage du formulaire, modal ou non

Ensuite, en pas à pas, comme ça se déroule ? Car en l'état de ce que tu montres, la ligne 2 est forcément executée sinon ton formulaire ne s'afficherait pas

Bonjour,

Si l'intégralité des cellules de la plage G1:G32 contient des valeurs numériques ou vides, il ne devrait pas y avoir de problème.

Peut-être que dans la plage G1:G32 il y a une cellule qui contient du texte (libellé en G1 par exemple) ? Si oui, il faut l'exclure de la plage, ou rajouter une condition à l'affichage du Userform

Bonjour Joe et Zen,

Effectivement, c'était mon titre présent en G1 qui posait problème ! J'ai donc changer ma plage de G1:G32 à G3:G32 et cela fonctionne sans soucis.

Merci pour le temps que vous m'avez consacré :P !

Bonne journée,
Hio