For Next + compteur qui ne fonctionne pas

Bonjour a tous ,

Petit soucis de code Vba :

Sub ExtractionCodeChrono()

nbcells = Application.WorksheetFunction.CountA(Feuil3.Range("A10:A1000"))

Dim X As Variant

For X = 1 To nbcells

If Feuil3.Cells(10 + Boucle, 1) <> "" Then

Feuil23.Cells(10 + Boucle, 1) = Feuil3.Cells(10 + Boucle, 1)

Else

Next Boucle

End If

End Sub

Il me renvois Next sans for ...

Le but étant de recopier des cellules de la feuil3 sur la feuil23, ma quantité de cellule est variable dans le temps , d'où l'utiisation de la boucle

Merci d'avance

bonjour,

remplace "X" par "boucle" dans l'instruction

For X = 1 To nbcells

supprime le "else" et mets le "end if" avant le next

Sub ExtractionCodeChrono()
nbcells = Application.WorksheetFunction.CountA(Feuil3.Range("A10:A1000"))
Dim boucle as long

For boucle = 1 To nbcells

  If Feuil3.Cells(10 + Boucle, 1) <> "" Then
     Feuil23.Cells(10 + Boucle, 1) = Feuil3.Cells(10 + Boucle, 1)
  End if
Next Boucle

End Sub

Génial ça marche au Top !!

J’essaie de comprendre le pourquoi du comment mais MERCI beaucoup !!

h2so4 a écrit :

bonjour,

remplace "X" par "boucle" dans l'instruction

For X = 1 To nbcells

supprime le "else" et mets le "end if" avant le next

Sub ExtractionCodeChrono()
nbcells = Application.WorksheetFunction.CountA(Feuil3.Range("A10:A1000"))
Dim boucle as long

For boucle = 1 To nbcells

  If Feuil3.Cells(10 + Boucle, 1) <> "" Then
     Feuil23.Cells(10 + Boucle, 1) = Feuil3.Cells(10 + Boucle, 1)
  End if
Next Boucle

End Sub