Sujet Précédent Sujet Suivant

Macro Insérér une ligne

laurentb69 -  
Le Pingou Messages postés 12713 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

En utilisant l'exemple ci-dessous, quelle fonction pourrais je utiliser pour non pas coller une ligne de la feuille 2 à la feuille 1 mais l'insérer entre des lignes de la feuille 1?

Sheets(2).Activate
lig2 = ActiveCell.Row
Sheets(1).Activate
lig1 = ActiveCell.Row
Sheets(2).Rows(lig2).Copy Sheets(1).Rows(lig1 - 1)

Merci de votre aide

3 réponses

Réponse 1 / 3
Le Pingou Messages postés 12713 Date d'inscription   Statut Contributeur Dernière intervention   1 467
 
Bonjour,
Le principe pour une ligne:
Sheets("Feuil2").Rows(n° de la ligne).Copy
Sheets("Feuil1").Rows(n° de la ligne).Insert Shift:=xlDown
Application.CutCopyMode = False
1
Réponse 2 / 3
laurentb69
 
Super ça marche!

Merci beaucoup pour votre aide

Cordialement
0
Réponse 3 / 3
Le Pingou Messages postés 12713 Date d'inscription   Statut Contributeur Dernière intervention   1 467
 
Merci, de rien.
0