Appel contrôles et userform par variables

Résolu

seagull62 Messages postés 39 Date d'inscription Statut Membre Dernière intervention -
seagull62 Messages postés 39 Date d'inscription Statut Membre Dernière intervention - 23 janv. 2014 à 23:20

Bonjour,

Je précise tout pour que cela puisse servir, éventuellement à d'autres ...

J'avais un premier soucis qui était d'appeler un userform via une variable que j'ai résolu grâce aux forum avec ceci:


mavariableusf = "usfcible"
VBA.UserForms.Add(mavariableusf).Show

J'avais un second soucis que j'ai résolu de la même manière qui était celui de mémoriser le nom de la variable sur plusieurs modules.

qui donne en tête de module:


Global mavariableusf As String

Je parviens donc désormais à ouvrir mon userform avec une variable dans le module que je souhaite.
Ce que je ne parviens pas à faire c'est remplir les valeurs de controles inclus dans l'userform qui viens d'être ouvert avec la variable.

Pour plus de simplicité, je joint un fichier exemple ou, en feuille1 un bouton appelle un userform de départ dans lequel un deuxième bouton appelle un module qui lance un deuxième userform dont le nom est une variable(jusqu'a là, tout va bien).
dans ce deuxième userform j'ai un textbox, un checbox, et un label......que je souhaiterais remplir en cliquant sur le bouton appel valeurs mais cela ne fonctionne pas et la macro ne génère pas d'erreur.

https://www.cjoint.com/?DAxkkldPSdA

Merci à tous

A voir également:

Appel contrôles et userform par variables
Nommez une application d'appel vidéo ou de visioconférence - Guide
Appel privé - Guide
Double appel - Guide
Appel par erreur sur whatsapp ✓ - Forum Mail
Signal d'appel - Forum iPhone

6 réponses

Réponse 1 / 6

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

Bonjour,

Comme ça, ça ira mieux :

Private Sub boutonappelvaleurs_Click()

Me.TextBox1.Value = "Voila enfin mon texte"
Me.CheckBox1.Value = True
Me.Label1.Caption = "c'est parfait"

End Sub

;0)

«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau

Réponse 2 / 6

seagull62 Messages postés 39 Date d'inscription Statut Membre Dernière intervention 5

Merci Polux pour ton intervention mais en fait j'ai buggé dans mon explication puisque l'appel des valeurs de controles doivent se faire au lancement de userformcible et non via le bouton appelvaleurs:


Global mavariableusf As String

Sub ouvrirusfcible()

mavariableusf = "usfcible"

'ce qui ne fonctionne pas:
VBA.UserForms.Add(mavariableusf).TextBox1.Value = "Voila enfin mon texte"
VBA.UserForms.Add(mavariableusf).CheckBox1.Value = True
VBA.UserForms.Add(mavariableusf).Label1.Caption = "c'est parfait"

'et cela fontionne
VBA.UserForms.Add(mavariableusf).Show

End Sub

Je me suis trompé pour l'exemple en piéce jointe

Si tu as quand même la solution, je suis preneur

Réponse 3 / 6

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

Le bouton ne sert à rien alors ?

Private Sub UserForm_Initialize()
    Me.TextBox1.Value = "Voila enfin mon texte"
    Me.CheckBox1.Value = True
    Me.Label1.Caption = "c'est parfait"
End Sub

A mettre dans l'éditeur de l'UF ...

:0)

«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»
Nicolas Boileau

Réponse 4 / 6

seagull62 Messages postés 39 Date d'inscription Statut Membre Dernière intervention 5

Ok ça fonctionne dans l'exemple mais j'ai vraiment besoin de rester dans le module ouvrirusfcible pour appeler les valeurs et là le Me. ne fonctionne pas

désolé et merci encore

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention 1 204

Il serait intéressant d'avoir toutes les informations en une seule fois, en disant ce que l'on a, ce que l'on souhaite avoir et comment on souhaite l'obtenir !!! On gagnerai tous du temps.

https://www.cjoint.com/?DAxlYW0bn5f

Réponse 6 / 6

seagull62 Messages postés 39 Date d'inscription Statut Membre Dernière intervention 5

Mea culpa Polux, il est vrai que j'ai voulu faire un fichier exemple simplifié pour le forum mais je me suis un peu planté dans la structure de celui-ci.
Ta solution répond maintenant parfaitement à mon besoin et je te remercie pour ton intervention....et ta patience :)

Discussions similaires

Prix d'un appel locale = gratuit ?

Code de renvoi d'appel : Ooredo, Mobilis...

Prix d'un appel local

encombrement telephonieque

Prix d'un appel local

Votre réponse

Discussions similaires