dim chaine as string ...'un bout de code ici Select Case LCase(chaine) Case "employé" 'Code Case "stagiaire" 'Code . . . end if
Public Enum eTypePersonne eTypePersonne_Employe eTypePersonne_Stagiaire End Enum 'Du code et un début de procédure Dim maVariable As eTypePersonne ... Select Case MaVariable Case eTypePersonne_Employe 'Employé Case eTypePersonne_Stagiaire 'Stagiaire