[E-03] Importer avec un UserForm

Bonjour à tous!

J'aimerais avoir une précision sur comment utiliser un UserForm pour entrer des données.

J'ai un bouton sur une feuille. Ce bouton apelle une procédure dans un module qui apelle un UserForm avec deux textbox (Nom et Prenom).

Comment fait-on pour (si cliqué sur OK dans le userform) récupérer les textbox dans des variable (sNom et sPrenom)?
Et si on clique sur Annuler, comment le sait-on?

Je sais comment l'ouvrir, afficher, cacher, .... mais c'est bien le transfert des données qui me pause problème.

Merci à l'avance!

Bonjour,

pour récupérer les données des champs d'un UserForm (quand tu cliques dans le bouton):

Code:

---

1 2	variable = Me.mon_champ.Value

---

Ok merci, jusqu'ici ça fonctionne.
Mais comment lui dire ceci

Code:

---

1 2 3 4 5 6 7 8 9 10

form1.Show   If form1.cmdOk Then sNom = form1.Nom.Value sPrenom = form1.Prenom.Value ElseIf form1.cmdAnnuler Then MsgBox "Annuler" Else MsgBox "Que s'est-il passé?" End If

---

form1.cmdOk est pour mon bouton OK et cmdAnnuler pour Annuler. Mais comment vérifier lequel est utilisé?

Merci

Bonjour,

J'ai lu toute la FAQ sur les UserForm et celle des controles. Très intéressant, j'ai appris tout ce que je prévoyais faire avec mon UserForm...

Mais je n'ai toujours pas trouvé comme vérifier avec quel bouton l'USF s'est terminé. (Si c'est OK, alors on continue le traitement et si Annuler, on quitte avec un MsgBox "Annuler")

Merci!

Bonjour,

J'espère avoir compris ce que tu demandes :

Lorsque tu clique sur un bouton dans ton USF tu déclenche un evenement click

Par exemple pour le bouton nommé Validation dans :

Code:

---

1 2 3

Private Sub Validation_Click() RLS_Ouvrir ' Sub contenant mon code End Sub

---

J'ai ceci qui apelle mon USF

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Ajouter()   Dim sNom As String Dim sPrenom As String   form1.Show   If form1.cmdOk Then 'Si cliqué OK sNom = form1.txtNom.Value sPrenom = form1.txtPrenom.Value ElseIf form1.cmdAnnuler Then 'Si cliqué Annuler MsgBox "Annuler" Else MsgBox "Que s'est-il passé?" End If End Sub

---

Et dans mon USF j'ai un bouton OK et un Annuler.
Les deux utilisent Hide et je reviens dans ma procédure.
Comment puis-je savoir si c'est OK ou Annuler?

Merci

En fait ce que je voulais dire c'est que dans ton USF tu peux gérer tous tes évenement, initialisation, click sur un bouton ...
Dans l'editeur, si tu clique sur le bouton tu auras le code correspondant.

En espérant pouvoir t'aider.

Oui, tout est fait du coté de USF.

Je voudrais savoir, un peu la même chose que msgbox avec Oui Non, comment savoir lequel est cliqué?

Dans mon USF : OK = ferme l'USF
Annuler = ferme l'USF

ENSUITE,
dans le restant de mon code (celui qui a appelé l'USF)
Je veux savoir lequel des boutons à été cliqué pour fermer l'USF?
SI c'est OK, alors je prends dans des variables les champs de l'USF
SI c'est Annuler, alors je fais un autre traitement.

Pourquoi vouloir tester le bouton OK et le bouton cancel en dehors du code de l'USF, rien ne t'empêche de mettre le code que tu veux dedans !?

Ce n'est pas bête!

Je ne pensais pas que j'avais accès aux variables de la procédure depuis l'USF.
Je vais faire comme ça, plus simple.
Mais est-ce possible quand même?

Merci

Pourquoi ne pas faire ceci dans ta procédure :

Code:

---

1 2 3 4 5 6

Private Sub Ajout() With UserForm1 .Caption = "..." .Show End With End sub

---

et le reste du code dans le USF tout au long de son affichage.

J'ai essayé, mais en transférant mes txtbox à mes variables, je ne peux pas y avoir accès dans le restant de ma procédure.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Ajouter()   Dim sNom As String Dim sPrenom As String   form1.Show   MsgBox ("nom : " & sNom & Chr(10) & "Prénom : " & sPrenom)   End Sub

---

et le code de l'USF

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub cmdOk_Click() sNom = form1.txtNom.Value sPrenom = form1.txtPrenom.Value form1.Hide End Sub   Private Sub cmdAnnuler_Click() form1.Hide End End Sub

---

Mon MsgBox est vide que je clique sur OK (Et oui, j'ai bien rempli mes box :P )

Alors lorsque tu fais cancel supprime les valeurs et dans ta procédure fait directement :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Ajouter()       form1.Show   MsgBox form1.txtPrenom.Value     End Sub

---

Ok tout est correct.

J'ai réussis à tout faire fonctionner!

Merci!