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

1 réponse

  1. 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
    1. morale
       
      merci pour ton aide, J'ai essayé ce code, mais il ne ce passe rien ..



      Configuration: Windows XP / Internet Explorer 7.0
      0