1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Sub SelectCaseTableau()
Dim Famille(2)
Famille(1) = "TableauNoms" 'tableau des noms de champs pour les noms
Famille(2) = "TableauDates" 'idem pour les dates
TableauNoms = Array("Canard", "Cochon", "Chien", "Chat", "Poule", "Vache", "Mouche", "Truc", "bazard") 'etc
TableauDates = array("un", "deux", "trois", "quatre", "cinq", "six", "sept", "huit", "neuf", "dix", "onze", "douze")
'La donnée est dans la famille(1) C'est un test sur les noms de chaps qui le détermine
i = 1
Select Case Famille(i)
Case "TableauNoms"
MsgBox TableauNoms(5)
Case "TableauDates"
End Select
End Sub |
Partager