Appel contrôles et userform par variables

Résolu/Fermé

seagull62 Messages postés 39 Date d'inscription samedi 22 septembre 2012 Statut Membre Dernière intervention 6 janvier 2023 - 23 janv. 2014 à 10:12
seagull62 Messages postés 39 Date d'inscription samedi 22 septembre 2012 Statut Membre Dernière intervention 6 janvier 2023 - 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
Appel anonyme - Guide
Votre appel ne peut aboutir - Forum Mobile
Double appel - Guide
Prix d'un appel local - Forum Mobile
Renvoi d'appel ooredoo - Forum Samsung

6 réponses

Réponse 1 / 6

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
Modifié par Polux31 le 23/01/2014 à 10:17

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 samedi 22 septembre 2012 Statut Membre Dernière intervention 6 janvier 2023 5
23 janv. 2014 à 10:44

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 mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
Modifié par Polux31 le 23/01/2014 à 10:51

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 samedi 22 septembre 2012 Statut Membre Dernière intervention 6 janvier 2023 5
23 janv. 2014 à 11:14

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 mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
23 janv. 2014 à 11:51

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 samedi 22 septembre 2012 Statut Membre Dernière intervention 6 janvier 2023 5
23 janv. 2014 à 23:20

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

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

Renvoie code ooredoo

Notification d'un appel manqué ?

Comment réécouter un appel téléphonique ?

Code Pour Renvoi D'appel Et Mesage

Discussions similaires

Newsletters