j'ai une macro qui me demande de faire une sélection
dans al suite de la macro j'effectue une recherche par l'intermédiaire de ".find" sur cette sélection
lorsque .find ne trouve pas ce qu'il cherche j'ai une msgbox qui me dit "erreur de sélection"
et je voudrais qu'après avoir afficher ça la macro me renvoi au choix de la sélection et non pas quelle continue a s'exécuter
et ce jusqu'à ce qu'il trouve la recherche du .find
je sais si pas on peut le faire c'est une espèce de boucle quoi...
tu peux utiliser une boucle de style While............wend
sinon au plus simple (meme si ce n'est pas beau) tu as Goto
exemple :
Code:
saisie: ' ceci est une adresse
valeur = inputbox(..................
..........................................
..........................................
if pasbon then
msgbox "Pas de selection"
goto saisie
end if
merci de ta réponse cependant j'ai un fonctionnement un peut bizare
j'ai une sub qui appel une userform.
et dans cette userform je fais la recherche et si il ne trouve pas je voudrais qui relance l'userform...
Public valeur as string
Sub créergraph()
Dim drapeau As Boolean
drapeau = False
While drapeau = False
UserForm1.Show
' dans valeur tu as ton adresse
' tu fais ta recherche
' si ta recherche est ok tu mets drapeau à true
Wend
End Sub
en dessous du wend tu continues ta macro de creation de graphe
dans la macro liee à ton bouton ok de ton userform
Code:
Sub Boutonok_Click()
valeur = RefEdit1.Value
Unload Me
End Sub
j'ai defini une variable (valeur) publiquement (utilisable dans tous les modules du classeur)
dans ta macro cre_graph, tu envoie ton usf
dans ton usf, le bouton ok met à jour la variable valeur et ferme ton usf
dans la macro cre_graph, un fois que ton usf est fermée, tu as donc dans la variable valeur le resultat de ton refedit
tu controle si c'est ok, si c'est ok tu mets le drapeau à true ce qui le fait sortir de la boucle while wend, sinon la valeur du drapeau restant à false, il reaffiche ton userform
donc apres le wend, (la valeur est ok) tu peux faire ton graph