Excel Appliquer macro à plusieurs lignes
Fermé
Sweetpatapouf
-
3 mars 2010 à 16:35
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 - 3 mars 2010 à 21:45
Gord21 Messages postés 918 Date d'inscription samedi 21 novembre 2009 Statut Membre Dernière intervention 20 mars 2013 - 3 mars 2010 à 21:45
A voir également:
- Excel Appliquer macro à plusieurs lignes
- Liste déroulante excel - Guide
- Formule excel - Guide
- Aller à la ligne excel - Guide
- Figer plusieurs lignes excel ✓ - Forum Excel
- Afficher toutes les lignes masquées excel ✓ - Forum Excel
1 réponse
Gord21
Messages postés
918
Date d'inscription
samedi 21 novembre 2009
Statut
Membre
Dernière intervention
20 mars 2013
287
3 mars 2010 à 21:45
3 mars 2010 à 21:45
Bonsoir,
Une façon de le faire serait de faire une boucle :
nb_fois étant le nombre de fois que tu veux copier tes lignes, tu le passe en paramètre de ta procédure. Sinon, si tu veux toujours ajouter 3 lignes par exemple, il est possible de modifier le code pour éviter ce type de boucle.
@+
Une façon de le faire serait de faire une boucle :
R = ActiveCell.Row
For i = 0 To (nb_fois - 1)
Rows(R).Select
Selection.Insert Shift:=xlDown
Range("N" & R - 1).Select
Selection.Copy
Range("N" & R).Select
ActiveSheet.Paste
Range("G" & R - 1).Select
Selection.Copy
Range("G" & R).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next i
nb_fois étant le nombre de fois que tu veux copier tes lignes, tu le passe en paramètre de ta procédure. Sinon, si tu veux toujours ajouter 3 lignes par exemple, il est possible de modifier le code pour éviter ce type de boucle.
@+