Passer une variable d'un module à un userform
Résolu
melanie1324
Messages postés
1561
Statut
Membre
-
pijaku Messages postés 13513 Statut Modérateur -
pijaku Messages postés 13513 Statut Modérateur -
Bonjour,
Voici mon problème, j'ai un formulaire cdynamique avec un nombre variable de lignes :
ligne1 boutn modifier, bouton supprimer
ligne2 bouton modifier, bouton supprimer...
Comme chaque bouton modifier et supprimer font la même chose, j'ai créé des modules de classe.
Le module de classe modifier donne :
Option Explicit
Public WithEvents GroupBouton As MSForms.CommandButton
Public Sub GroupBouton_Click()
Dim a, b As Variant
a = GroupBouton.Name
UserForm3.Show
End Sub
Mon problème, c'est que lorsque s'affiche userform3, je narrive pas à récupérer la valeur de a et de b.
J'ai noté :
userform3.label1.value = Modifier.a
Mais ce me met une erreur.
Comment récupérer une variable définit dans un module de classe pour la transférer dans un userform???
Merci par avance
Voici mon problème, j'ai un formulaire cdynamique avec un nombre variable de lignes :
ligne1 boutn modifier, bouton supprimer
ligne2 bouton modifier, bouton supprimer...
Comme chaque bouton modifier et supprimer font la même chose, j'ai créé des modules de classe.
Le module de classe modifier donne :
Option Explicit
Public WithEvents GroupBouton As MSForms.CommandButton
Public Sub GroupBouton_Click()
Dim a, b As Variant
a = GroupBouton.Name
UserForm3.Show
End Sub
Mon problème, c'est que lorsque s'affiche userform3, je narrive pas à récupérer la valeur de a et de b.
J'ai noté :
userform3.label1.value = Modifier.a
Mais ce me met une erreur.
Comment récupérer une variable définit dans un module de classe pour la transférer dans un userform???
Merci par avance
A voir également:
- Passer une variable d'un module à un userform
- Passer de qwerty a azerty - Guide
- Passer a windows 10 - Accueil - Mise à jour
- Mettre un mot de passe sur un dossier - Guide
- Manque cam module - Forum TNT / Satellite / Réception
- Passer un texte en majuscule - Guide
3 réponses
Bonjour,
Avant tout remmplace :
par :
Qu'entends tu par "Modifier.a"???
Donne nous l'intégralité du code et, notamment, la partie du code qui créé ta collection d'Objets bouton.....
Avant tout remmplace :
userform3.label1.value
par :
userform3.label1.Caption
Qu'entends tu par "Modifier.a"???
Donne nous l'intégralité du code et, notamment, la partie du code qui créé ta collection d'Objets bouton.....
Bonjour,
Modifier est le nom du module de classe mais j'ai contourner le problème.
J'ai appliqué ta solution avant même de l'avoir lu.
Merci beaucoup.
Modifier est le nom du module de classe mais j'ai contourner le problème.
J'ai appliqué ta solution avant même de l'avoir lu.
Merci beaucoup.
Bonjour,
J'ai contourné le problème ==> c'était peut être pas la meilleure solution...
Peux tu, si ton problème est résolu :
- nous indiquer comment, ça peux servir,
- cliquer sur "résolu" dans ton premier message...
J'ai contourné le problème ==> c'était peut être pas la meilleure solution...
Peux tu, si ton problème est résolu :
- nous indiquer comment, ça peux servir,
- cliquer sur "résolu" dans ton premier message...
Ce n'est peut être pas la meilleur solution.
Mais c'est celle qui me convient et j'ai indiqué la solution mais je vais la réécrire.
au lieu d'envoyer la variable a dans mon userform, j'ai écrit ce code dans mon module de classe :
Option Explicit
Public WithEvents GroupBouton As MSForms.CommandButton
Public Sub GroupBouton_Click()
Dim a, b As Variant
userform3.textbox1.value = a
UserForm3.Show
End Sub
Mais c'est celle qui me convient et j'ai indiqué la solution mais je vais la réécrire.
au lieu d'envoyer la variable a dans mon userform, j'ai écrit ce code dans mon module de classe :
Option Explicit
Public WithEvents GroupBouton As MSForms.CommandButton
Public Sub GroupBouton_Click()
Dim a, b As Variant
userform3.textbox1.value = a
UserForm3.Show
End Sub
