Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonsoir le forum
je souhaite trouver les doublons sur une tableau en feuil1 sur la colonne B"nom et prenom" a l'aide de formule et les copiés les lignes entières sur un autre endroit
merci pour votre aide
cdlt
a+++
Merci pour les différentes propositions, toujours vraiment agréable de lire des propositions variées et bien construites.
@laetitia90 : sublime code synthétique pour les doublons
... et qu'on peut facilement adapter pour extraire soit les doublons soit les valeurs uniques (If m.Item(t(i, 2)) = 1).
On peut peut-être très légèrement le compléter si adkheir souhaite l'utiliser pour l'affichage final par trois lignes pour :
Feuil1.Range("A1:F1").Copy Destination:=Feuil2.Range("J1:O1") 'rajout des titres
Feuil2.[j1].Sort key1:=Feuil2.[k2], Order1:=xlAscending, Header:=xlGuess 'tri ordre ascendant
Feuil2.Columns("J:O").AutoFit 'taille ajustée colonne
Mais merci pour ce code très performant (as usual -)
Bonne journée
zebanx
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.