Passer une variable d'un module à un userform

Résolu/Fermé

melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 30 août 2012 à 15:11
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 31 août 2012 à 09:41

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

A voir également:

Passer une variable d'un module à un userform
Passer de windows 7 à windows 10 - Guide
Passer de qwerty a azerty - Guide
Mettre un mot de passe sur un dossier - Guide
Passer un texte en majuscule - Guide
Cisco eap fast module - Forum Windows 8 / 8.1

3 réponses

Réponse 1 / 3

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
30 août 2012 à 15:14

Bonjour,

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.....

Réponse 2 / 3

melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
31 août 2012 à 07:42

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.

Réponse 3 / 3

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
31 août 2012 à 08:41

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...

melanie1324 Messages postés 1505 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
31 août 2012 à 09:39

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

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
31 août 2012 à 09:41

Merci mélanie1324.
Bonne journée à toi.

Discussions similaires

programme qui n'affiche pas le mot secret

Message d'erreur "Pas de module CI"

ma mere a oublié son mot de passe

Manque "cam module" sur TV SHARP AQUOS

Programme à désactiver au démarrage

Discussions similaires

Newsletters