For each?

[aurel]

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]

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é"

 

[Excel_lent]

Re : For each?

autocensure

 

[aurel]

Re : For each?

Bonjour Excel_lent, PascalXLD,

dabord merci,
je vais essayé vos proposition en plus sa a l'air simple! pourquoi je n'y ai pas pensé!!!!!
encor merci

A bientot

 

[aurel]

Re : For each?

sa marche nickel! a bientot pour d'autres questions!!

merci et bonne journée a tous