Pb de Next..for avec des if ... else

[Guigui]

hello tous le monde,

voici mon souci,
je voudrais copier les données de la colonne A vers la colonne C mais sans prendre les ligne vide de la colonne A

j'utilise le code :

Sub essaie()
Dim i As Integer
For i = 1 To 25 'ou plus peut importe
If Cells(i, 1) = '' Then
Next i
else
Cells(i, 3) = Cells(i, 1)
Next i
End if
End Sub

mais j'ai une 'erreur de compilation' Next sans for ...

Je vois pas comment resoudre le probleme ...

Merci d'avance pour votre aide
A+
guillaume

 

[pat1545.]

Salut,

prends pour habitude de mettre ton endif juste apres avoir mis ton IF, idem pour select case et end select, ou for et next..;

Sub essaie()
Dim i As Integer
For i = 1 To 25 'ou plus peut importe
If Cells(i, 1) = '' Then GoTo suivant
Cells(i, 3) = Cells(i, 1)
suivant:
Next i
End Sub

 

[Hervé]

bonsoir guigui, pat

une autre syntaxe possible :

Sub Feuil2_Bouton1_QuandClic()
Dim i As Integer
Dim ligne As Integer

ligne = 1

For i = 1 To 25
        If Not Cells(i, 1) = '' Then
                Cells(ligne, 3) = Cells(i, 1)
                ligne = ligne + 1
        End If
Next i
End Sub

salut

 

[pat1545.]

sans les blancs...;

Sub essaie()
Dim i As Integer
Set cible = Range('C65000').End(xlUp)(2)
For i = 1 To 25 'ou plus peut importe
If Cells(i, 1) = '' Then GoTo suivant
cible.Value = Cells(i, 1)
Set cible = Range('C65000').End(xlUp)(2)
suivant:
Next i
End Sub

 

[chris]

Bonjour
Je n'ai pas réussi à poster ma réponse qui allait dans le sens de celle d'Hervé et te permeet de façon simple de gagner une ligne en C quand A est vide.

 

[Guigui]

Re le forum,

Merci à vous tous, je n'ai qu'a choisir ...
Merci encore,

je vois que le Else n'a plus de raison d'être

Merci encore
A+
Guillaume