Ecriture dans des cellules

Bonjour à tous,
Voila, je suis débutant en vba et je ne comprend pas pourquoi rien ne s'affiche
dans mes cellules avec le code suivant :

Code:

---

1 2 3 4 5 6 7 8

Sub essai() Dim v(10) As Double, i As Integer For i = 0 To i < UBound(v) v(i) = i Worksheets(1).Range("A" & (i + 1)) = v(i) Next i End Sub

---

Normalement, pour moi, dans les cellule A1 jusqu'a A10, je devrais voir s'afficher 0 ... 9
lors de l'exécution de ma macro.
Je precise que de rajouter Range(...).value ne change rien.
Je vous remercie d'avance pour votre aide

Bonjour,

As-tu une erreur ou tout se déroule sans rien afficher?

Si tu mets un arrêt sur

Code:

---

Worksheets(1).Range("A" & (i + 1)) = v(i)

---

tu pourras voir s'il rentre dans le for.

Donnes nous des nouvelles!

J'ai testé et remplace ceci

Code:

---

For i = 0 To i < UBound(v)

---

par ceci

Code:

---

For i = 0 To UBound(v) - 1

---

Et ça fonctionne!

Mais ceci est encore plus simple :

Code:

---

1 2 3 4 5 6

Sub essai() Dim i As Integer For i = 0 To 9 Worksheets(1).Range("A" & (i + 1)) = i Next i End Sub

---

Je te remercie... j'avais oublié la manière de faire une boucle for en vba :aie:... Merci encore
Bonne journée