Boucle vba

Résolu
chris8863 Messages postés 5 Statut Membre -  
chris8863 Messages postés 5 Statut Membre -
Bonjour,

voici mon problème : je souhaite répéter cette instruction jusqu'à la ligne 5000 de ma feuille excel :

Sub RECOPIE_DATE()

'Recopie la date de la cellule du dessus

Range("a3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C"
    ActiveCell.Offset(2).Select
 
End Sub


je ne suis pas très douée en boucle. j'ai essayé do loop until - for next - je n'y arrive pas

quelqu'un peut m'aiguiller SVP ?

Merci de votre aide

1 réponse

  1. Zoul67 Messages postés 2001 Statut Membre 149
     
    Bonsoir,

    C'est quoi le Offset(2) ? Toutes les 2 lignes ?

    Si oui :
    Sub RECOPIE_DATE() 
    'Recopie la date de la cellule du dessus

    For i= 3 to 4999 Step 2
    Cells(i,1).FormulaR1C1 = "=R[-2]C"
    End Sub

    Sinon :
    Sub RECOPIE_DATE() 
    'Recopie la date de la cellule du dessus

    For i= 3 to 5000
    Cells(i,1).FormulaR1C1 = "=R[-1]C"
    End Sub

    C'est fait exprès de le faire par macro plutôt qu'en tirant la formule vers le bas ?

    A+
    0
    1. chris8863 Messages postés 5 Statut Membre
       
      Merci de ton aide. la première marche nickel. Le chiffre offset est bien pour toutes les 2 lignes.
      J'avais bien trouvé la macro "tirer vers le bas" mais je voulais trouver comment obtenir la répétition d'une instruction pour que ça me serve dans le reste de mon tableau. et j'avais du mal à m'y retrouver avec les boucles.
      grâce à ton aide j'ai pu l'adapter sur 2 autres colonnes !
      Merci Merci ! ;-)
      0