Discussion :

[cecyl]

Bonjour,

j ai insere un UserForm dans mon code, avec une TextBox dans laquelle un utilisateur rentre une valeur.
Je voudrais recuperer cette valeur dans une variable pour l utiliser dans la suite de mon code.

J appelle ma UserForm avec UserForm1.Show
Et ensuite je crois qu il faut que j utilise:variable = TextBox1.Value
mais ca ne marche pas.

Et ou dois je ecrire la commande pour recuperer la valeur ? dans mon code vba Sub Macro1 () ou dans Private Sub TextBox1_Change() (qui s ouvre automatiquement lorsque je double clic sur ma TextBox).

Merci pour votre aide !

Cecile

[mayekeul]

bonjour,
en fait tout dépends ce que tu veux en faire et à quel moment!?

mais si j'ai bien compris tu cherches à récuperer la valeur de la textbox dans une procédure externe.

alors, dans ton module (à l'exterieur de ta procédure) tu crée une variable publique

ex:

Code :

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

1
2
3
Option Explicit
 
Public MV as String

et dans l'event TextBox1.Change tu lui dis

Code :

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

ModuleX.MV="Ma Valeur"

ceci dis l'événement à choisir ne dépends que du moement ou tu veux que la valeur soit inscrite dans la variable publique

[mercatog]

Bonjour,
L'évènement Change du TextBox1 est plutôt tordu pour cet usage. j'utiliserai l'évènement AfterUpdate

[mayekeul]

L'évènement Change du TextBox1 est plutôt tordu pour cet usage. j'utiliserai l'évènement AfterUpdate

je suis d'accord. J epense même que dans son cas, j'utilisera même plutôt l'événement d'un bouton de fermeture

et si ce n'est que pour saisir une seule valeur, un input box me parait mieux indiqué en fait!.

Code :

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

1
2
3
4
5
6
7
Sub test2()
Dim maValeur As String
 
 
maValeur = InputBox("un pti texte ici", "un pti titre là")
 
End Sub

[cecyl]

En fait j ai toute une procedure qui va chercher des valeurs dans d autres fichiers en fonction de la valeur rentree par l utilisateur dans la UserForm. Je l appelle donc au tout debut de mon code et j utilise ensuite la valeur dans toute la suite du code.

Si j ai bien compris, je dois ecrire

Code :

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

1
2
   Option Explicit
   Public MV as String

dans ma macro Sub Macro1() (celle contenant tout mon code) ?
Mais Option Explicit me renvoie une erreur...

Et dans mon TextBox1_Change() j ecris donc

Code :

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

   ModuleX.MV = TextBox1.Value

?

Merci !

[cecyl]

J ai suivi vos conseils et utilise un InputBox, et en effet, c est beaucoup plus simple !! et ca marche nickel comme je voulais

Merci pour vos reponses