For...Next

[nanor]

Salut le forum,

J'ai une petite question VBA sur la fonction For...Next.
Je connais les formes suivantes:

For Ligne = 1 To 500
Next
Appliquer une fonction de la ligne 1 à 500

For Ligne = 5 To WorksheetFunction.CountA(Range("A:A"))
Next
Appliquer une fonction jusqu'à ce qu'il n'y ai plus de valeur dans la colonne A

J'aimerais appliquer une fonction jusqu'à une valeur pré-définie.
ex:
For Ligne = 1 To "FIN"
Next

J'espere que vous aveez une idée...

Merci d'avance

nanor

 

[steplof]

Salut à tous


"FIN" doit être défini je suppose comme la dernière ligne utilisée...


fin=sheets(1).range("a65536").end(xlup).row ' définit le numéro de la dernière ligne de la colonne A non vide

for ligne =1 to fin

next

Si "Fin" est écrit, lance une recherche pour trouver le mot fin, si tu es sur qu'il est écrit une seule fois tu peux faire


For each c in range ("A"&fin)
if c.value="Fin" then
dernligne=c.row
exit for
end if

for ligne =1 to dernligne

next


je sais c'est pas la panacée mais ça doit marcher...

@+ Steplof

 

[Valérie]

Salut à vous tous,

Je dirai pareil pour la première partie de ton code Steplof pour ce qui est de la seconde je te propose une recherche

Derligne = Columns("A:A").Find(What:="FIN", LookIn:=xlFormulas).Row
for ligne = 1 to Derligne

Next


Ou un direct comme je les aime
for ligne = 1 to Columns("A:A").Find(What:="FIN", LookIn:=xlFormulas).Row

Next

@ bientôt
Valérie