'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