portée de la classe vba

Bonjour, de nouveau.
j'avance bien sur la collection qui répondait à ma demande précédente.
Pour valider le scénario de mon projet, j'ai fait un petit bout de code (je ne vise pas l'académie des sciences avec ça) avec un classe qui comprend juste 2 méthodes et une userform avec 2 boutons censés utiliser chacun une seules des deux méthodes.
le bouton lire fonctionne (normal, j'instancie dedans)
Pb le deuxième bouton ne fonctionne pas, ce que je vois bien dans les fenêtres execution et variables locales.
d'où ma question comment conserver et utiliser les variables d'une classe. autrement dit quel moyen pour que la portée des variables d'une classe soit au delà de la procédure qui la crée.
Il y a plein d'exemples très jolis mais avec une seule procédure qui travaille avec la classe.
petit détail : nomComplet c'est juste nom & prenom pour vérifier que j'ai bien compris property
dans la userform :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Public Sub BtnLire_Click() 'creation d'un classe nom Dim NouvNom As cNom Set NouvNom = New cNom NouvNom.Nom = Usfcli.TxtNom NouvNom.prenom = Usfcli.TxtPrenom NouvNom.lire End Sub   Public Sub BtnEcrire_Click()   ' ça marche mais c'est une nouvelle instance 'Set NouvNom = New cNom 'If NouvNom Is Nothing Then ' MsgBox "Variable non initialisée." 'Else ' MsgBox "Variable initialisée." 'End If 'NouvNom.ecrire   NouvNom.ecrire 'ça marche pas: 'il ne retourve pas la classe : message "objet requis" End Sub

---

et dans la usform :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Property Get Nomcomplet() As String Nomcomplet = mPrenom & " " & mNom End Property   '### méthodes ### Public Sub lire() Sheets(1).Range("A1").Value = Nomcomplet MsgBox "ça marche" End Sub   Public Sub ecrire() Sheets(1).Range("A2").Value = Nomcomplet End Sub   Private Sub Class_Initialize() MsgBox "classe initialisée" End Sub

---

la usform elle meme :
Pièce jointe 609354

Bonjour,

ton erreur n'est pas spécifique ici au module de classe.

Tu peux retrouver un chapitre dédié à ce sujet dans ce tuto
https://silkyroad.developpez.com/VBA/LesVariables/#LV

Ton découpage déclaration/affectation devrait plutôt être

Code:

---

1 2 3 4 5 6 7 8

'creation d'un classe nom Dim NouvNom As cNom Public Sub BtnLire_Click() Set NouvNom = New cNom NouvNom.Nom = Usfcli.TxtNom NouvNom.prenom = Usfcli.TxtPrenom NouvNom.lire End Sub

---

merci de cette réponse super rapide.
tu me réponds sur le bouton "lire" de la userform qui déclenche la méthode "lire".
mais cela fonctionne, même si je vais tenir compte de ton découpage; je viens de le découper en ce sens sans amélioration
Mon problème est sur le bouton "écrire" qui déclenche la méthode "ecrire". celle-ci est censée reprendre la classe "NouvNom" et utiliser ses variables créées dans la procédure lire.
j'ai un message erreur 424 objet requis et je vois bien qu'il ne trouve pas cette classe.
Ma question est donc est il possible d'utiliser une classe dans plusieurs procédures?
je remets mon code avec les méthodes et les procédure appelantes

Le code dans la userForm

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Sub BtnLire_Click() Set NouvNom = New cNom NouvNom.Nom = Usfcli.TxtNom NouvNom.prenom = Usfcli.TxtPrenom NouvNom.lire End Sub   Public Sub BtnEcrire_Click() NouvNom.ecrire 'ça ne marche pas: 'il ne retrouve pas la classe NouvNom et envoie message "objet requis" End Sub Private Sub UserForm_Initialize() 'creation d'un classe cNom Dim NouvNom As cNom End Sub

---

et celui dans la classe (je vous épargne les properties)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Property Get Nomcomplet() As String Nomcomplet = mPrenom & " " & mNom End Property   '### méthodes ### Public Sub lire() Sheets(1).Range("A1").Value = Nomcomplet MsgBox "ça marche" End Sub     extrait de la classe cNom que j'instancie dans la procédure en "NouvNom" Public Sub ecrire() Sheets(1).Range("A2").Value = Nomcomplet End Sub

---

Salut,
Tu n'as pas fait ce que je t'ai indiqué,
le

Code:

---

Dim NouvNom As cNom

---

ne doit pas se situer dans une fonction ou procédure mais directement dans le module de ton userform...

désolé, je pensais l'avoir fait : j'avais déplacé le " dim" dans la partir usf_initialize.
OK, je corrige.
P... ça marche
Suis-je bête.
Merci beaucoup.
Je peux partir sur mon projet complet avec les collections, le stock, les commandes etc...
des difficultés en vue mais challenge..

je vais déclarer la discussion terminée mais je voulais conclure sur les variables :

J'avais bien lu le tuto "utiliser les variables en vba excel" avant de poser la question sur le forum mais je n'avais absolument pas percuté sur :
"Pour que la variable soit utilisable dans toutes macros du module, celle-ci doit être déclarée en tête du module, avant le premier Sub."

pourtant, après coup cette phrase est très claire et répondait parfaitement à la question que je posais....
Comme quoi, quand on débute l'esprit n'est pas en éveil.