Bonjour,
Je voudrais faire une fonction goto sans l'utiliser. Je sais que c'est le meilleur moyen de créer un programme qui ne s'arrête jamais alors je ne veut pas l'utiliser.
Mon programme fait de la recherche de contenu dans les zones de textes, ensuite il va demander si on veut rechercher la suivante et en fonction de la reponse le programme s'arrête ou recommence:
Voila, il faudrait que je remplisse les "..." mais je ne sait pas trop comment procéder. A partir du 2eme passage la inputbox ne doit plus s'afficher.
Si quelqu'un à une petite idée.
Merci d'avance.
A+
Je voudrais faire une fonction goto sans l'utiliser. Je sais que c'est le meilleur moyen de créer un programme qui ne s'arrête jamais alors je ne veut pas l'utiliser.
Mon programme fait de la recherche de contenu dans les zones de textes, ensuite il va demander si on veut rechercher la suivante et en fonction de la reponse le programme s'arrête ou recommence:
VB:
'déclarations des variable
While ... 'boucle qui fera recommencer le programme
If ... Then 'test qui affichera ou pas la inputbox
'récupérer le numéro d'OF à rechercher par Inputbox
End If
'Recherche le texte voulu dans toutes les zones de textes et dans chaque feuille du classeur
Select Case MsgBox("Chercher le numéro d'OF suivant ?", vbYesNo + vbQuestion, "Rechercher")
Case vbYes
...
Case vbNo
Exit Sub
End Select
Wend
End Sub
Voila, il faudrait que je remplisse les "..." mais je ne sait pas trop comment procéder. A partir du 2eme passage la inputbox ne doit plus s'afficher.
Si quelqu'un à une petite idée.
Merci d'avance.
A+