Stocker un nombre entré dans un userform dans une variable n
nadnad13
Messages postés
25
Statut
Membre
-
nadnad13 Messages postés 25 Statut Membre -
nadnad13 Messages postés 25 Statut Membre -
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.
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.
2 réponses
-
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
-
merci beaucoup pour votre aide, j'aimerais si c'est possible savoir l'utilité du code :
Sub test
MsgBox n
End Sub
J'ai également un autre problème : Lorsque j'exécute le programme suivant :
For compteur = 1 To n
If Sheets(Feuil1).Cells(i, 4).Value = "Ecl" Then
Nb_depart_Ecl = Nb_depart_Ecl + 1
If Sheets(Feuil1).Cells(i, 4).Value = "PC" Then
Nb_depart_PC = Nb_depart_PC + 1
If Sheets(Feuil1).Cells(i, 4).Value = "Att Clim" Then
Nb_depart_CLIM = Nb_depart_CLIM + 1
If 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" Then
Nb_depart_ATT = Nb_depart_ATT + 1
i = i + 3
Next 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.
