Passer une variable d'un module à un userform
Résolu
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
3 réponses
-
ModérateurBonjour,
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 -
-
-
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. -
ModérateurBonjour,
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.....
