1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Sub RechercheDeLaFonction()
Dim TabloDyousers, TabloDesFontions, Result, LeTableau()
LeUser = "GC"
' *** Juste pour me faciliter le remplissage du tableau à deux dimensions
TabloDyousers = Array("IPN", "a45401", "a90783", "GC", "PDG")
TabloDesFonctions = Array("Profil", "Expert", "Chef d'atelier", "Grand chef", "Big boss")
ReDim LeTableau(0 To 1, i To UBound(TabloDyousers))
For i = 0 To UBound(TabloDyousers) 'Remplit le tableau à deux dimensions
LeTableau(0, i) = TabloDyousers(i)
LeTableau(1, i) = TabloDesFonctions(i)
Next
'*********************************************************
'Quelque soit la méthode de remplissage de ton tableau,
'pour connaître la fonction, il te suffit de faire ça
For j = 0 To i - 1
If LeUser = LeTableau(0, j) Then _
MsgBox "C'est un " & LeTableau(1, j)
Next
End Sub |
Partager