array

salut,
après quelques mois de non manipulation de VBA je me fais des petites
révisions et ça ne marche pas.
Ce que je veux, utiliser les "array" pour remplir des cellules, je tente
plusieurs méthodes : test1 marche mais pas test2, pourquoi ?


Sub test1()
'les zones nommées zon1 à zon3 prennent les valeurs du array
Range("zon1:zon3") = Array("aa", "bb", "cc")
End Sub

Sub test2()
'idem que test1 sans zone nommée
Dim val
val = Array("zz", "ee", "rr")
For i = 1 To 3
Cells(2, i).Value = val
Next i
End Sub


merci
--
A+

Bob
----

Bonjour Bob,
L'indice d'une array commence à 0
Essaye ceci :
Sub test2()
'idem que test1 sans zone nommée
Dim val
val = Array("zz", "ee", "rr")
For i = 0 To 2
Cells(2, i + 1).Value = val(i)
Next i
End Sub
Philippe


"boblebob" <nosp-00-boblebob@voila.fr> a écrit dans le message de news:
eciXSZtKFHA.2748@TK2MSFTNGP09.phx.gbl...

salut,
après quelques mois de non manipulation de VBA je me fais des petites
révisions et ça ne marche pas.
Ce que je veux, utiliser les "array" pour remplir des cellules, je tente
plusieurs méthodes : test1 marche mais pas test2, pourquoi ?


Sub test1()
'les zones nommées zon1 à zon3 prennent les valeurs du array
Range("zon1:zon3") = Array("aa", "bb", "cc")
End Sub

Sub test2()
'idem que test1 sans zone nommée
Dim val
val = Array("zz", "ee", "rr")
For i = 1 To 3
Cells(2, i).Value = val
Next i
End Sub


merci
--
A+

Bob
----