Bouclage d'un userform
Résolu
DGVDR
Messages postés
158
Date d'inscription
Statut
Membre
Dernière intervention
-
sipherion Messages postés 1836 Date d'inscription Statut Membre Dernière intervention -
sipherion Messages postés 1836 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Merci de prendre de votre temps.
Mon idée :
Remplir un Userform (qui s'appelle Fournisseur), une fois rempli, appuyer sur un bouton "Ajouter".
Lorsque je cliques sur Ajouter, j'ai une MsgBox qui me demande si je veux en ajouter un autre.
Et j'aimerai donc, que si je cliques sur oui, qu'il me relance mon userform "Fournisseur" vierge.
Chose que je n'arrives pas à réaliser
Que je cliques sur oui ou non , l'userform ce ferme.
J'ai pensé à un GoTo, mais j'ai lu sur le net que ça n'était pas terrible comme codage, et je n'y suis pas arrivé...
Merci de votre aide,
DGVDR
Merci de prendre de votre temps.
Mon idée :
Remplir un Userform (qui s'appelle Fournisseur), une fois rempli, appuyer sur un bouton "Ajouter".
Lorsque je cliques sur Ajouter, j'ai une MsgBox qui me demande si je veux en ajouter un autre.
If MsgBox("Autre ajout ? ", vbYesNo + vbInformation, "Autre ajout de fournisseur ?") = vbYes Then
Et j'aimerai donc, que si je cliques sur oui, qu'il me relance mon userform "Fournisseur" vierge.
Chose que je n'arrives pas à réaliser
Que je cliques sur oui ou non , l'userform ce ferme.
J'ai pensé à un GoTo, mais j'ai lu sur le net que ça n'était pas terrible comme codage, et je n'y suis pas arrivé...
Merci de votre aide,
DGVDR
5 réponses
-
Bonjour,
Quel type de contrôles as-tu sur ton UF (TextBox, Combobox etc ...) ?
Tu es sur Excel, Access, VB6 ... ?
:0)
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau -
Bonjour,
Pourquoi passer par un MsgBox ?
Dans ton UserForm, je mettrais un bouton "Ajouter" et un bouton "Fermer" et c'est tout.
A+
PS : sinon, il faut jongler entre hide/show, load/unload -
Bonjour,
Merci à vous deux.
Ce n'est pas une spécification, c'est la solution à laquelle j'avais penser.
Un bouton "Fermer" et un "Autre ajout" peut faire l'affaire , comme le propose Zoul6 !
Cependant, avez vous une idée du code permettant de repartir avec un userform vierge sans le fermer ?
Merci !
DGVDR -
Voilà une procédure qui permet de boucler sur les contrôles d'un UF
Dim Ctrl As Control For Each Ctrl In Me.Controls 'Efface les saisies des TextBox If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Text = "" 'Efface les libellés des Label If TypeOf Ctrl Is MSForms.Label Then Ctrl.Caption = "" Next Ctrl
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Trop compliqué :
reponse = MsgBox("Autre ajout ? ", vbYesNo)
If reponse = vbYes Then
'code
Else
'Rien ^^
End If-
-
DGVDR,
En fait, si tu nous mets le fichier à disposition sur https://www.cjoint.com/ on te trouvera sans doute des solutions... -
-
-
-
