Supprimer doublons sur un même ligne

Bonjour,

Petit problème avec une macro.

Je recherche à supprimer des doublons suite à une copie.

Dans mon tableau récap j'ai :

01 01 02 03 03 03 01 01 02 03 (ligne 1)

136 138 136 136 136 138 136 138 136 136 (ligne2)

Comment supprimer les doublons dont la valeur est identique en ligne1 et 2 svp ?

D'avance merci

Bonjour Skillrex,

regarde : onglet Données, groupe « Outils de données », « Supprimer les doublons »

à utiliser 2 fois : d'abord pour ta ligne 1, puis pour ta ligne 2

(au besoin, regarde l'aide Excel pour plus d'infos)

dhany

Bonjour,

Merci pour ton retour, problème cela ne me convient pas..

Ta solution me supprime les doublons de la ligne 1 sans prendre en compte les doublons de la ligne 2.

Exemple :

Ligne 1 DMOS 01 ; DMOS 01

Ligne 2 136 ; 138

On supprime pas

Ligne 1 DMOS01 ; DMOS01

Ligne 2 136 ; 136

On supprime

D'avance merci

Bonjour,

Dans ce cas tu peux faire la même opération en sélectionnant les 2 lignes. Tu peux aussi créer une 3ème ligne avec une formule pour concaténer les 2 précédentes :

=A1&A2

Ensuite supprimer les doublons à partir de cette nouvelle ligne.

exact ; merci Pedro ! (j'avais pensé que les 2 lignes étaient indépendantes, ce qui finalement n'est pas le cas)

Merci, mais cela ne fonctionne pas!

Aucune valeur en double n’a été trouvée

Alors que j’ai bien des valeurs en double..

Peux tu nous envoyer ton fichier ou un exemple fictif représentatif ?

Voici le fichier.

Merci d'avance pour votre aide

33test.xlsm (44.17 Ko)

bonjour

un essai ,au plus simple

46skillrex.xlsm (42.01 Ko)

cordialement

Merci pour votre retour.

Cette solution ne me convient pas, je préfère ajouter un code dans ma macro existante.

bonjour à tous

1/

et si on s'attaquait à la cause : la récupération de données non maîtrisée, qui fait des doublons

pas de doublons au départ, pas de problème de dédoublonnage. C'est du LEAN

comment sont récupérées les données ?

2/

si impossible, solution sans VBA : Power Query. D'abord dépivoter le tableau, supprimer les doublons, refaire pivoter.

ceci au travers du menu. Pas de programmation.

Bonjour Skillrex,

je te retourne ton fichier modifié (celui de ton post de 11:08) :

21test.xlsm (41.61 Ko)

Ctrl e (ou clic sur Bouton 1) ➯ tes doublons sont supprimés !

si besoin, tu peux demander une adaptation.

merci de me dire si ça te convient.


@jmd : désolé, j'ai réussi à le faire sans PowerQuery ni Power Bi !

(aïe, j'crois qu'j'vais être damné pour l'éternité ! )


edit : y'a une petite erreur : le bon fichier est dans le post juste en dessous.

dhany

edit : j'viens d'm'apercevoir de ça :

ça marchait très bien dans ce fichier :

30test-1.xlsm (41.64 Ko)

où j'ai mis juste après tes Dim : GoTo Suite et juste avant ton dernier Next i : :Suite

ainsi, ça saute directement à c'que j'ai fait en évitant tout c'que t'as fait avant.

j'étais persuadé que ta procédure initiale s'exécutait jusqu'à ce point ; aussi, j'ai simplement supprimé GoTo Suite et :Suite

ce que j'ai fait est correct, mais je te laisse faire l'intégration par rapport à ta longue macro.


je mets ici la partie du code VBA que j'ai faite (et qui est juste avant la fin de la sub) :

Application.ScreenUpdating = 0

Dim nfs$, prc% ' n° fiche de soudage ; procédé

With Worksheets("QS")
  z = .Cells(2, Columns.Count).End(xlToLeft).Column: If z < 6 Then Exit Sub
  For l = 5 To z - 1
    nfs = .Cells(1, l): prc = .Cells(2, l)
    For j = z To l + 1 Step -1
      If .Cells(1, j) = nfs And .Cells(2, j) = prc Then .Columns(j).Delete xlToLeft
    Next j
  Next l
End With

dhany

C'est parfait !!!!!

Merci beaucoup, je vais pouvoir poursuivre

Bonne fin de journée!

A bientôt !!!!

merci pour ton retour, et pour avoir passé le sujet en résolu !

bonne continuation, et bonne fin de journée à toi aussi !

dhany

Rechercher des sujets similaires à "supprimer doublons meme ligne"