Boucle vba

Résolu/Fermé

chris8863 Messages postés 5 Date d'inscription jeudi 21 novembre 2013 Statut Membre Dernière intervention 2 décembre 2013 - Modifié par pijaku le 22/11/2013 à 10:16
chris8863 Messages postés 5 Date d'inscription jeudi 21 novembre 2013 Statut Membre Dernière intervention 2 décembre 2013 - 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
Vba attendre 1 seconde ✓ - Forum VB / VBA
Mkdir vba ✓ - Forum VB / VBA
Boucle cmd - Forum Programmation
Vba récupérer valeur cellule ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide

1 réponse

Réponse 1 / 1

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
Modifié par Zoul67 le 21/11/2013 à 19:07

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 jeudi 21 novembre 2013 Statut Membre Dernière intervention 2 décembre 2013
21 nov. 2013 à 22:39

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

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

Erreur d'exécution 13 Incompatibilité de type

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

tele s'eteind et s'allume en boucle