incrémentation du type Range("b[+k]").Select

[julie]

je cherche à faire la boucle suivante:
n=0
tant que la cellule n'est pas vide, on compte le nombre n de cellule
n=n+1
...
mon problème est l'incrémentation...je voudrais savoir comment programmer l'équivalent de:
For k = 1 To 5
Range("bk").Select
ActiveCell.FormulaR1C1 = "=Isblanck(R[+k]C1)"
exit for
next k

merci

 

[denis.jette@ccra-adrc.gc.ca]

Bonjour Julie

Essai quelque chose du genre
k= Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row 'ceci compte le nombre de range
for n =1 to k
Range("b" & n).select
next

Denis