1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Sub variable()
Dim malist()
Dim tablo & element()' comment on déclare cela?
Const fixe As String = "tablo"
maliste = Array("tutu", "tata")
For Each element In maliste
If element = "tutu" Then
' la variable tableau s'appelle dans ce cas tablotutu()
tablotutu = ActiveWorkbook.Sheets("Feuil2").Range("A4:A20")
End If
If element = "tata" Then
' la variable tableau s'appelle dans ce cas tablotata()
tablotata = ActiveWorkbook.Sheets("Feuil2").Range("C4:C20")
End If
Next element
End Sub |
Partager