boucle en VBA

[Famu]

Bonjour tout le monde,

Comment faire une boucle en VBA qui s'arrête suivant une information dans une cellule ? :

Sub mac()

For i = 1 To 500

If Cells(i, 1) = '' Then
Cells(i, 1) = Cells(i - 1, 1)
End If
Next

end sub


Ceci marche très bien mais la boucle s'exécute jusqu'à la ligne 500, hors, à la Cells(400, 1) par exemple, la valeur de la cellule = 'A' et puisque la valeur de la cellule = 'A', j'aimerais que la boucle s'arrête.

Merci beaucoup pour votre aide,

A+
FAMU

 

[Abel]

Bonjour Famu,

Essaie :

if condition then exit for


Abel.

 

[herve62]

Salut
simple
ajoute goto fin et fin:
....
GOTO fin
END IF

Next i

fin :
end sub

 

[dg62]

Bonjour le fil


pour éviter des GOTO


voir du côté de While...Wend

ou de

Do... While... Until


l'aide VBA est tres bien documentée à ce sujet.


Bonne Soirée

 

[FAMU]

OK merci, merci...


Voilà ce que j'ai fait, grâce à vous :


For i = 1 To 500

If Cells(i, 1) = 'A' Then
Exit Sub
Else: If Cells(i, 1) = '' Then Cells(i, 1) = Cells(i - 1, 1)

End If
Next

Encore merci, merci...

Ciao,
FAMU

 

[@Bobby]

Salut à vous une autre soluce ... c'est la même chose mais à titre d'info

For i = 1 To 500

If Cells(i, 1) = 'A' Then
Exit Sub
end if

If Cells(i, 1) = ''
Then Cells(i, 1) = Cells(i - 1, 1)
End If

Next