Loop dans une array

[cafejohn1967]

Bonjour,

J'ai du mal à comprendre les arrays, même après voir vu plusieurs post... mes loops ne marchent jamais.

Voici un exemple tout simple (j'aimerais faire un autre calcul mais même ce petit exemple ne marche pas).

Dans cette macro, je veux donner mes valeurs (dans ma arrays) soit la fonction d'un calcul ... dans ce cas , = 5 mais éventuellement j'aimerais que les valeurs puissent dépendre de la valeur précédente ... quelque chose comme marray(i) = marray(i-1) + 2

Sub loopdsarrays()



Dim marray(9)

marray(1) = 1


For i = 2 To 10


marray(i) = 5


Next i
Sheets("sheet1").Select

Range("a1:a10").Value = Application.WorksheetFunction.Transpose(myarray)
End Sub

Merci beaucoup

John

 

[jpb388]

Re : Loop dans une array

Bonsoir le forum
Sans tester je vois 2 erreurs
marray(9) ta boucle va jusqu'a 10 message d'erreur obligatoire
ensuite
Application.WorksheetFunction.Transpose(myarray) or c'est marray

avec un option explicit tu n'aurais pas eu la 2eme

 

[cafejohn1967]

Re : Loop dans une array

C'est gentil ça fonctionne.

Bonne journée