For each?

aurel

XLDnaute Junior
Bonjour le forum,

Alors j'ai une boucle For each qui scrute dans une zone de données si elle trouve la meme expression que dans une textbox. Mon probleme est que j'aimerai afficher un message si cette boucle ne trouve pas la meme expression que ma text box.
Voila le code:

For Each c In Range("Zone_cas_enregistrés")
If c.Value = entrer_mnemo.Value Then
j = c.Offset(, 7).Value
arborescence.Nodes.Add
MyIndex = arborescence.Nodes.Count
arborescence.Nodes.Item(MyIndex).Image = "Image" & j
info_condi = Format(c.Value, "!@@@@@@@@@@@@@@@@") + Format(c.Offset(, 1), "!@@@@@@@@@@@@@@@@@@@") + Format(c.Offset(, 2), "!@@@@@@@@@@@@@") + Format(c.Offset(, 3), "!@@@@")
arborescence.Nodes.Item(MyIndex).Text = info_condi
End If
Next c

Si qqun a une idee?

Et j'en profite, pour gagner en temps d'execution, jaimerai que des que cette boucle for each trouve 3 "blanc" consecutif elle stop car cela veu dire qu'il n'y a plus rien derrière

Merci d'avance

Bonne journée a tous
 

PascalXLD

XLDnaute Barbatruc
Modérateur
Re : For each?

Bonjour

Pour ton message tu peux faire un truc du genre

Montest=false
For Each c In Range("Zone_cas_enregistrés")
If c.Value = entrer_mnemo.Value Then
Montest=true
j = c.Offset(, 7).Value
arborescence.Nodes.Add
MyIndex = arborescence.Nodes.Count
arborescence.Nodes.Item(MyIndex).Image = "Image" & j
info_condi = Format(c.Value, "!@@@@@@@@@@@@@@@@") + Format(c.Offset(, 1), "!@@@@@@@@@@@@@@@@@@@") + Format(c.Offset(, 2), "!@@@@@@@@@@@@@") + Format(c.Offset(, 3), "!@@@@")
arborescence.Nodes.Item(MyIndex).Text = info_condi
End If
Next c
If montest = false then msgbox "rien trouvé"
 

Discussions similaires

Statistiques des forums

Discussions
314 516
Messages
2 110 371
Membres
110 760
dernier inscrit
jeyparc