Dupliquer toutes les lignes sur Excel
Fermé
Fivel51
Messages postés
462
Date d'inscription
dimanche 21 mai 2017
Statut
Membre
Dernière intervention
20 août 2023
-
2 févr. 2019 à 12:25
titeufdu89 Messages postés 375 Date d'inscription samedi 28 juillet 2012 Statut Membre Dernière intervention 1 avril 2023 - 2 févr. 2019 à 14:32
titeufdu89 Messages postés 375 Date d'inscription samedi 28 juillet 2012 Statut Membre Dernière intervention 1 avril 2023 - 2 févr. 2019 à 14:32
A voir également:
- Dupliquer ligne automatiquement excel
- Aller à la ligne excel - Guide
- Liste déroulante excel - Guide
- Dupliquer ecran - Guide
- Formule excel - Guide
- Hors ligne instagram - Guide
3 réponses
titeufdu89
Messages postés
375
Date d'inscription
samedi 28 juillet 2012
Statut
Membre
Dernière intervention
1 avril 2023
38
2 févr. 2019 à 14:32
2 févr. 2019 à 14:32
Bonjour,
Voici un code qui dupliquera tes lignes, en contrôlant au préalable les données des colonnes A et B, si les données sont déjà identiques sur ces deux colonnes, elle ne dupliquera par la ligne, si elles sont différentes alors la ligne sera dupliquer, à tester. Si tu as besoin de changer les colonnes contrôlées ou d'ajouter plus de colonnes dans le contrôle c'est tout à fait possible.
J'ai codé ce contrôle car sans ça à chaque exécution de la macro tes lignes seront automatiquement dupliquées, donc si par exemple tu exécute 2 fois la macro successivement tu te retrouveras avec 4 fois la ligne 1...
Bonne journée
Jc
Voici un code qui dupliquera tes lignes, en contrôlant au préalable les données des colonnes A et B, si les données sont déjà identiques sur ces deux colonnes, elle ne dupliquera par la ligne, si elles sont différentes alors la ligne sera dupliquer, à tester. Si tu as besoin de changer les colonnes contrôlées ou d'ajouter plus de colonnes dans le contrôle c'est tout à fait possible.
J'ai codé ce contrôle car sans ça à chaque exécution de la macro tes lignes seront automatiquement dupliquées, donc si par exemple tu exécute 2 fois la macro successivement tu te retrouveras avec 4 fois la ligne 1...
Sub dupliquer() der = Range("A66536").End(xlUp).Row For i = 1 To der * 2 If Range("A" & i + 1).Value <> Range("A" & i).Value And Range("B" & i + 1).Value <> Range("B" & i).Value Then Rows(i + 1).Insert Rows(i).Copy Rows(i + 1) End If i = i + 1 Next i End Sub
Bonne journée
Jc