Stocker un nombre entré dans un userform dans une variable n Fermé

Question

Bonjour, 


J'écris un code où une fenêtre apparait dès qu'on clique sur un bouton (c'est un userform), cette fenêtre demande à l'utilisateur de faire entrer une valeur, puis de cliquer sur Ok.
J'aimerais savoir comment pourrais je récupérer la valeur entrée par l'utilisateur et la stocker dans une variable n pour l'utiliser ultérieurement dans le programme.

Je vous remercie d'avance.

pijaku · Accepted Answer

Bonjour,

n doit être stockée en Public en entête d'un Module standard.

supposons que n représente la saisie dans le textbox 'TextBox1" de l'UserForm et que vous souhaitez le stocker lors d'un clic sur le CommandButton1 :

Module de l'Userform :
Private Sub CommandButton1_Click()
n = TextBox1.Value
End Sub 
Module "Module1"
Public n As String

Sub test
MsgBox n
End Sub

nadnad13 · Answer

merci beaucoup pour votre aide, j'aimerais si c'est possible savoir l'utilité du code : Sub testMsgBox nEnd Sub 
J'ai également un autre problème : Lorsque j'exécute le programme suivant :

For compteur = 1 To nIf Sheets(Feuil1).Cells(i, 4).Value = "Ecl" ThenNb_depart_Ecl = Nb_depart_Ecl + 1If Sheets(Feuil1).Cells(i, 4).Value = "PC" ThenNb_depart_PC = Nb_depart_PC + 1If Sheets(Feuil1).Cells(i, 4).Value = "Att Clim" ThenNb_depart_CLIM = Nb_depart_CLIM + 1If Sheets(Feuil1).Cells(i, 4).Value = "Att Plomb" Or Sheets(Feuil1).Cells(i, 4).Value = "Att secur" Or Sheets(Feuil1).Cells(i, 4).Value = "Att Div" ThenNb_depart_ATT = Nb_depart_ATT + 1i = i + 3Next compteur

J'obtient un message d'erreur disant : 
Erreur de compilation : 
Next sans For

Alors que l'instruction For figure bel et bien dans le programme..

Merci d'avance.

Stocker un nombre entré dans un userform dans une variable n

2 réponses

Discussions similaires