Mon test fonctionne à merveille
Pour l'essai en W3 je mets une valeur et lance ma macro ci dessous
Sub TableauxArray()
Dim Vd(1 To 2), z(), i As Long, j As Long
Vd(1) = Array("K24", "D24", "I24", "B24", "K20", "D20", "I20", "B20", "K28", "D28", "I28", "B28", "K32", "D32", "I32", "B32", "K36", "D36", "I36", "B36", "K16", "D16", "I16", "B16", "K12", "D12", "I12", "B12")
Vd(2) = Array("J24", "E24", "H24", "C24", "J20", "E20", "H20", "C20", "J28", "E28", "H28", "C28", "J32", "E32", "H32", "C32", "J36", "E36", "H36", "C36", "J16", "E16", "H16", "C16", "J12", "E12", "H12", "C12")
ReDim z(1 To UBound(Vd), 1 To UBound(Vd(1)) + 1)
For i = 1 To UBound(Vd)
For j = 0 To UBound(Vd(1))
z(i, j + 1) = Vd(i)(j)
Next j
Next i
If Sheets("Graph").Range("W3").Value > 36 Or Sheets("Graph").Range("W3").Value < 1 Then Sheets("Graph").Range("W3").Value = 1
Sheets("Graph").Select
Allumer = RGB(255, 128, 128)
Sheets("Graph").Range(z(1, Range("W3").Value)).Interior.Color = Allumer
Sheets("Graph").Range(z(2, Range("W3").Value)).Value = Range("W3").Value
End Sub
Par contre j'ai une petite question, Peut on monter au delà des 2 : Vd(1) , Vd(2), Vd(3), Vd(4) ????
Car il me faudra aussi 2 autres array ...