Discussion :

[guileo]

Bonjour,

J'aimerai savoir comment il est possible via une macro de mettre la ligne 2 à la suite de la ligne 1. (voir photo jointe)

A savoir qu'il y a plus de 1000 lignes.

D'avance merci

[riaolle]

Bonjour et bienvenue sur le forum !

Avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

n = Sheets("maFeuil").Cells(Sheets("maFeuil").Cells.Rows.Count, 1).End(xlUp).Row

Tu trouves le nombre de lignes qu'il y a dans ton document. (n-1) représente le nombre de lignes que tu dois copier (puisqu'il ne faut pas copier la première ligne).
Avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

col = Sheets("maFeuil").Cells(1, Sheets("maFeuil").Cells.Columns.Count).End(xlLeft).Column + 1

Tu trouves le numero de colonne de la première cellule vide sur la ligne 1, soit là où tu dois copier tes valeurs.

Voici l'idée du code:

• Tu trouves combien de lignes il y a à copier --> notons ce nombre n
• Tu fais une boucle de 1 à n
• Tu copies les valeurs de la ligne 2 sur la bonne colonne dans la ligne 1
• Tu supprimes la ligne 2 comme ça, les prochaines valeurs à copier seront à nouveau sur la ligne 2.