Discussion :

[karndt]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[drakkar_agfa]

Bonjour,

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

Si tu mets un arrêt sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

tu pourras voir s'il rentre dans le for.

Donnes nous des nouvelles!

[drakkar_agfa]

J'ai testé et remplace ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   For i = 0 To i < UBound(v)

par ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   For i = 0 To UBound(v) - 1

Et ça fonctionne!

Mais ceci est encore plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[karndt]

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