Incrémenter les cellules d'une colonne

morale -  
 morale -
Bonjour à tous

je cherche à incrémenter de 1 les cellules d'une colonne et ce jusqu'a la fin de mon tableau (Donc que le macro rencontr une cellule vide)

Pour mon compteur j'ai
Range("j11").Value = Range("j11").Value + 1

je veux donc que la marco descende en J12 et incrémente le chiffre de la cellule (si 3 en J12, l'execution de la Marco met 4)

puis en j13, j14 etc.. jusqu'a cellule vide.

Est-ce que qq.1 peu m'aider ?

MERCI BCP

A voir également:

1 réponse

patrick
 
bonjour,
je mettrai :

for i=2 to 65000
if range("A" & i)="" then goto fin
range("A" & i)=range("A" & i-1)+1
next
fin:

il y a surement plus simple, mais je programme à l'ancienne.
0
morale
 
merci pour ton aide, J'ai essayé ce code, mais il ne ce passe rien ..



Configuration: Windows XP / Internet Explorer 7.0
0