reposer la question

[julienb25]

Re bonjour a tous...


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

 

[wilfried_42]

Re : reposer la question

Bonjour

tu peux utiliser une boucle de style While............wend

sinon au plus simple (meme si ce n'est pas beau) tu as Goto

exemple :

saisie: ' ceci est une adresse
     valeur = inputbox(..................
     ..........................................
     ..........................................
     if pasbon then 
          msgbox "Pas de selection"
          goto saisie
    end if

 

[julienb25]

Re : reposer la question

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

le goto userform1 ne marche pas...

 

[wilfried_42]

Re : reposer la question

re:

si tu pouvais evoyer un bout de fichier, ca serait plus simple non ? sans donnee confidentielle

 

[julienb25]

Re : reposer la question

oui pardon le voila

mon problème se trouve dans l'userform1 après chaque recherche lft; all; hft; tvm etc

 

[julienb25]

Re : reposer la question

PS faut pas fair attention a ce qui est écris sur la page graph ... c'était une autre question...^^

 

[wilfried_42]

Re : reposer la question

re:

dans le bouton de la feuille, la macro liée

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

Sub Boutonok_Click()
    valeur = RefEdit1.Value
    Unload Me
End Sub

 

[julienb25]

Re : reposer la question

excuse moi mais j'ai pas trop compris faut que je mette tout dans la sub créer graph?? j'ai peur de pas comprendre désolé

 

[wilfried_42]

Re : reposer la question

re:

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

je ne sais pas si je suis plus clair

 

[julienb25]

Re : reposer la question

si tout est bon ça marche mais j'ai utilisé goto car j'avais plusieurs recherches merci merci