Discussion :

[drakkar_agfa]

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!

[supersnail]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
variable = Me.mon_champ.Value

[drakkar_agfa]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[drakkar_agfa]

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!

[aalex_38]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Validation_Click()
RLS_Ouvrir ' Sub contenant mon code
End Sub

[drakkar_agfa]

J'ai ceci qui apelle mon USF

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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