Boucle vba

Résolu

chris8863 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
chris8863 Messages postés 5 Date d'inscription Statut Membre Dernière intervention - 21 nov. 2013 à 22:39

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

A voir également:

Boucle vba
Excel compter cellule couleur sans vba - Guide
Vba attendre 1 seconde ✓ - Forum VB / VBA
Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Find vba - Astuces et Solutions

1 réponse

Réponse 1 / 1

Zoul67 Messages postés 1959 Date d'inscription Statut Membre Dernière intervention 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+

chris8863 Messages postés 5 Date d'inscription Statut Membre Dernière intervention

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 ! ;-)

Discussions similaires

Mon pc s'allume et s'éteint en boucle

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

Mon ordinateur s'allume et s'eteint en boucle

tele s'eteind et s'allume en boucle

Votre réponse

Discussions similaires