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