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
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
Bonjour et bienvenue sur le forum !
Avec :
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).
Code : Sélectionner tout - Visualiser dans une fenêtre à part n = Sheets("maFeuil").Cells(Sheets("maFeuil").Cells.Rows.Count, 1).End(xlUp).Row
Avec:
Tu trouves le numero de colonne de la première cellule vide sur la ligne 1, soit là où tu dois copier tes valeurs.
Code : Sélectionner tout - Visualiser dans une fenêtre à part col = Sheets("maFeuil").Cells(1, Sheets("maFeuil").Cells.Columns.Count).End(xlLeft).Column + 1
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.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager