XL 2016 [Resolu]Message d'erreur lors de la déclaration d'un "Type"

[schoum5]

Bonjour à toutes et à tous,

Voilà, dans mon apprentissage du langage VBA je suis en train de bloquer lorsque que je créé mon propre "TYPE". Voici le message d'erreur qui s'affiche :

"Erreur de compilation: Instruction incorrecte dans une procédure".

Ci-dessous le code que j'ai écris:

Sub TstType()

  Type TUtilisateur
    Nom As String
    Prenom As String
    Identifiant As String
    MotDePasse As String
  End Type
 
    Dim Client As TUtilisateur
    Dim Vendeur As TUtilisateur
   
    Client.Nom = "Doe"
    Client.Prenom = "John"
    Client.Identifiant = "jdoe"
    Client.MotDePasse = "jdoea"

End Sub

Lorsque je fais un débogage, j'ai le message d'erreur ci-dessus qui s'affiche.

Je vous remercie d'avance pour l'aide que vous pourrez m'apporter à ce petit problème.

Schoum5

 

[Roland_M]

bonsoir

essaies comme ceci

'en tête de module
Type TUtilisateur
    Nom As String
    Prenom As String
    Identifiant As String
    MotDePasse As String
End Type
Dim Client As TUtilisateur
Dim Vendeur As TUtilisateur
   
Sub TstType()
Client.Nom = "Doe"
Client.Prenom = "John"
Client.Identifiant = "jdoe"
Client.MotDePasse = "jdoea"
End Sub

 

[schoum5]

Yes ça marche merci beaucoup!! Et merci pour ce rapide retour.

Juste pour mon info, un "type" ne se déclare donc pas dans un procédure c'est ça?

 

[Roland_M]

re

non !
ça fait partie des déclarations en tête de module !
et ensuite on les utilise dans des Sub/Function ..
exp ici Client.Nom = "Doe"

à savoir qu'il y a des déclarations Public et Private
Public MaVar1
MarVar1 sera accessible partout dans le projet !

Private MaVar2
MarVar2 ne sera accessible que dans ce même module !

 

[schoum5]

Top!
Merci encore 🙂