bonjour,
ma feuille excel comporte 3 colonnes: A:code,B:libellé,C:quantité
dans une autre feuille excel, je voudrai supprimer les lignes uniques de la
première feuille afin de ne garder que les doublons.
Comment puis-je faire?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Utilise la colonne D pour y mettre la formule =Ax&Bx&Cx Ensuite exécute le code suivant en supposant que tes données source sont sur Feuil1 et les données transposées sur Feuil2. Dim Cellule As Range Dim Compar As Integer Worksheets("Feuil2").Activate Range("a2").Select Worksheets("Feuil1").Activate Range("D2:D14").Select For Each Cellule In Selection Var = Cellule.Value If WorksheetFunction.CountIf(Range("D2:D14"), Cellule) > 1 Then Range(Cellule.Offset(0, -3), Cellule.Offset(0, -1)).Copy Worksheets("Feuil2").Activate ActiveSheet.Paste ActiveCell.Offset(1, 0).Select Worksheets("Feuil1").Activate End If Next Cellule Cordialement. Daniel "fred_naizin" a écrit dans le message de news:
bonjour, ma feuille excel comporte 3 colonnes: A:code,B:libellé,C:quantité dans une autre feuille excel, je voudrai supprimer les lignes uniques de la première feuille afin de ne garder que les doublons. Comment puis-je faire?
je vous remercie d'avance cordialement fred
Bonjour.
Utilise la colonne D pour y mettre la formule =Ax&Bx&Cx
Ensuite exécute le code suivant en supposant que tes données source sont sur
Feuil1 et les données transposées sur Feuil2.
Dim Cellule As Range
Dim Compar As Integer
Worksheets("Feuil2").Activate
Range("a2").Select
Worksheets("Feuil1").Activate
Range("D2:D14").Select
For Each Cellule In Selection
Var = Cellule.Value
If WorksheetFunction.CountIf(Range("D2:D14"), Cellule) > 1 Then
Range(Cellule.Offset(0, -3), Cellule.Offset(0, -1)).Copy
Worksheets("Feuil2").Activate
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Worksheets("Feuil1").Activate
End If
Next Cellule
Cordialement.
Daniel
"fred_naizin" <frednaizin@discussions.microsoft.com> a écrit dans le message
de news: 89BF041D-B62A-4C8B-9D0C-26C85C34BBFE@microsoft.com...
bonjour,
ma feuille excel comporte 3 colonnes: A:code,B:libellé,C:quantité
dans une autre feuille excel, je voudrai supprimer les lignes uniques de
la
première feuille afin de ne garder que les doublons.
Comment puis-je faire?
Bonjour. Utilise la colonne D pour y mettre la formule =Ax&Bx&Cx Ensuite exécute le code suivant en supposant que tes données source sont sur Feuil1 et les données transposées sur Feuil2. Dim Cellule As Range Dim Compar As Integer Worksheets("Feuil2").Activate Range("a2").Select Worksheets("Feuil1").Activate Range("D2:D14").Select For Each Cellule In Selection Var = Cellule.Value If WorksheetFunction.CountIf(Range("D2:D14"), Cellule) > 1 Then Range(Cellule.Offset(0, -3), Cellule.Offset(0, -1)).Copy Worksheets("Feuil2").Activate ActiveSheet.Paste ActiveCell.Offset(1, 0).Select Worksheets("Feuil1").Activate End If Next Cellule Cordialement. Daniel "fred_naizin" a écrit dans le message de news:
bonjour, ma feuille excel comporte 3 colonnes: A:code,B:libellé,C:quantité dans une autre feuille excel, je voudrai supprimer les lignes uniques de la première feuille afin de ne garder que les doublons. Comment puis-je faire?
je vous remercie d'avance cordialement fred
Daniel
Tant qu'à faire c'est "sub TEST()" qu'il faut mettre, et remplacer la plage D2:D14 par celle qui correspond à ton cas de figure. Avec un filtre je ne sais qu'enlever les doublons. Cordialement. Daniel "fred_naizin" a écrit dans le message de news:
Bonjour Daniel merci pour ton aide. Mais ça ne fonctionne pas. J'ai ajouté à ton code TEST() et End SUB mais sans succès. Je souhaite simplement, via un filtre pourquoi pas, n'afficher que les doublons (ce qui éviterai de recopier les valeurs dans une autre feuille)
merci encore fred
"Daniel" wrote:
Bonjour. Utilise la colonne D pour y mettre la formule =Ax&Bx&Cx Ensuite exécute le code suivant en supposant que tes données source sont sur Feuil1 et les données transposées sur Feuil2. Dim Cellule As Range Dim Compar As Integer Worksheets("Feuil2").Activate Range("a2").Select Worksheets("Feuil1").Activate Range("D2:D14").Select For Each Cellule In Selection Var = Cellule.Value If WorksheetFunction.CountIf(Range("D2:D14"), Cellule) > 1 Then Range(Cellule.Offset(0, -3), Cellule.Offset(0, -1)).Copy Worksheets("Feuil2").Activate ActiveSheet.Paste ActiveCell.Offset(1, 0).Select Worksheets("Feuil1").Activate End If Next Cellule Cordialement. Daniel "fred_naizin" a écrit dans le message de news:
bonjour, ma feuille excel comporte 3 colonnes: A:code,B:libellé,C:quantité dans une autre feuille excel, je voudrai supprimer les lignes uniques de la première feuille afin de ne garder que les doublons. Comment puis-je faire?
je vous remercie d'avance cordialement fred
Tant qu'à faire c'est "sub TEST()" qu'il faut mettre, et remplacer la plage
D2:D14 par celle qui correspond à ton cas de figure. Avec un filtre je ne
sais qu'enlever les doublons.
Cordialement.
Daniel
"fred_naizin" <frednaizin@discussions.microsoft.com> a écrit dans le message
de news: 6C7A2D57-2FCB-4A2B-8F53-4DC7EBBB82E3@microsoft.com...
Bonjour Daniel
merci pour ton aide.
Mais ça ne fonctionne pas. J'ai ajouté à ton code TEST() et End SUB mais
sans succès.
Je souhaite simplement, via un filtre pourquoi pas, n'afficher que les
doublons (ce qui éviterai de recopier les valeurs dans une autre feuille)
merci encore
fred
"Daniel" wrote:
Bonjour.
Utilise la colonne D pour y mettre la formule =Ax&Bx&Cx
Ensuite exécute le code suivant en supposant que tes données source sont
sur
Feuil1 et les données transposées sur Feuil2.
Dim Cellule As Range
Dim Compar As Integer
Worksheets("Feuil2").Activate
Range("a2").Select
Worksheets("Feuil1").Activate
Range("D2:D14").Select
For Each Cellule In Selection
Var = Cellule.Value
If WorksheetFunction.CountIf(Range("D2:D14"), Cellule) > 1 Then
Range(Cellule.Offset(0, -3), Cellule.Offset(0, -1)).Copy
Worksheets("Feuil2").Activate
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Worksheets("Feuil1").Activate
End If
Next Cellule
Cordialement.
Daniel
"fred_naizin" <frednaizin@discussions.microsoft.com> a écrit dans le
message
de news: 89BF041D-B62A-4C8B-9D0C-26C85C34BBFE@microsoft.com...
bonjour,
ma feuille excel comporte 3 colonnes: A:code,B:libellé,C:quantité
dans une autre feuille excel, je voudrai supprimer les lignes uniques
de
la
première feuille afin de ne garder que les doublons.
Comment puis-je faire?
Tant qu'à faire c'est "sub TEST()" qu'il faut mettre, et remplacer la plage D2:D14 par celle qui correspond à ton cas de figure. Avec un filtre je ne sais qu'enlever les doublons. Cordialement. Daniel "fred_naizin" a écrit dans le message de news:
Bonjour Daniel merci pour ton aide. Mais ça ne fonctionne pas. J'ai ajouté à ton code TEST() et End SUB mais sans succès. Je souhaite simplement, via un filtre pourquoi pas, n'afficher que les doublons (ce qui éviterai de recopier les valeurs dans une autre feuille)
merci encore fred
"Daniel" wrote:
Bonjour. Utilise la colonne D pour y mettre la formule =Ax&Bx&Cx Ensuite exécute le code suivant en supposant que tes données source sont sur Feuil1 et les données transposées sur Feuil2. Dim Cellule As Range Dim Compar As Integer Worksheets("Feuil2").Activate Range("a2").Select Worksheets("Feuil1").Activate Range("D2:D14").Select For Each Cellule In Selection Var = Cellule.Value If WorksheetFunction.CountIf(Range("D2:D14"), Cellule) > 1 Then Range(Cellule.Offset(0, -3), Cellule.Offset(0, -1)).Copy Worksheets("Feuil2").Activate ActiveSheet.Paste ActiveCell.Offset(1, 0).Select Worksheets("Feuil1").Activate End If Next Cellule Cordialement. Daniel "fred_naizin" a écrit dans le message de news:
bonjour, ma feuille excel comporte 3 colonnes: A:code,B:libellé,C:quantité dans une autre feuille excel, je voudrai supprimer les lignes uniques de la première feuille afin de ne garder que les doublons. Comment puis-je faire?
