Doublon dans une meme colonne

[beaf77]

Bonjour à vous tous,

Ca y est, c'est la rentrée & avec la rentrée de nouveaux projets...
Face à l'un d'entre eux, je me trouve confronté à un problème:

J'ai dans une colonne toute une liste de Nom (ou une liste de matricule), c'est comme vous voulez, et je cherche à isoler tout ceux qui sont en doublons

Exemple: dans une colonne on a:
Tintin
Milou
Gaston
Hercule
Pif
Spirou
Milou

Je souhaiterai après une formule qu'il ne conserve que les doublons à savoir les deux lignes Milou
Milou
Milou


Voilà, j'espère avoir été assez explicite dans mon exemple.
Je vous souhaite à tous et à toutes (membres du forum) une agréable journée
Bien cordialement

 

[SergiO]

Re : Doublon dans une meme colonne

Bonjour BEAF77,

Ci-joint un exemple par formule et Mise en forme conditionnelle.

@+

 

[beaf77]

Re : Doublon dans une meme colonne

Merci SergiO,

Effectivement c'est ce que je recherche MAIS le hic c'est que j'ai plusieurs doublons et que je ne les connais pas forcément tous.

Je précise que je ne connais pas VBA, que j'ai déjà un élément de solution en triant et en utilisant une fonction SI mais la solution que je cherche consiste à ne pas trier ma base

Je suis à votre écoute

bien cdt

 

[Hervé]

Re : Doublon dans une meme colonne

bonjour

en repartant du tableau de sergio un solution VBA.

j'ai pas compris ton dernier message, la formule de sergio fonctionne correctement.

salut

 

[beaf77]

Re : Doublon dans une meme colonne

Re,

Je disais que la formule de SergiO fonctionne correctement lorsque l'on connait le doublon à rechercher et que l'on n'en a qu'un (intitulé).

Maintenant j'ai examiné ta solution Hervé et c'est cela que je cherchais mais une fois de plus je me rends compte de l'importance du VBA mais j'ai du mal et seul avec juste un énorme bouquin et un manque de temps, ca ne me motive poa...

Ta solution est la bonne Hervé mais pour etre tip top il faudrait qu'elle me copie les doublons dans une nouvelle feuille tout en sachant (condition supplémentaire) que la colonne contient des champs associés (genre la date de naissance, le sexe, ... --> Service RH)
Si tu as la solution et que ca ne te prend pas trop de temps je suis preneur sinon c'est pas grave Hervé...

En attendant merci à vous deux, et longue vie au fofo

Bien amicalement

 

[Hervé]

Re : Doublon dans une meme colonne

re beaf , sergio

en piece jointe ton fichier, renvoi en feuille 2

code utilisé :

Sub Bouton1_QuandClic()
Dim plage As Range
Dim cellule As Range
Dim ligne As Integer

'on stock dans la variable plage la colonne A de la BDD
Set plage = Range("a1:a" & Range("a65536").End(xlUp).Row)

'on boucle sur chaque cellule de la plage
For Each cellule In plage
    'Application.CountIf=fonction NB.SI
    'si NB.SI renvoi un resultat > 1, soit si le nom est présent plus d'une fois
    If Application.CountIf(plage, cellule) > 1 Then
        'on incremente la variable ligne
        ligne = ligne + 1
        'sur la feuille 2
        With Sheets("feuil2")
            'dans la cellule numéroté ligne de la colonne A
            'on renvoi le nom
            .Cells(ligne, "A") = cellule
            .Cells(ligne, "B") = cellule.Offset(0, 1) ' decalage d'une colonne
            .Cells(ligne, "C") = cellule.Offset(0, 2) ' decalage de 2 colonnes
            .Cells(ligne, "D") = cellule.Offset(0, 3) ' decalage de 3 colonnes
        'fin de travail sur la feuille 2
        End With
    'fin de condition
    End If
'cellule suivante
Next cellule
End Sub

salut

 

[beaf77]

Re : Doublon dans une meme colonne

Je regarde à tête reposé pour essayer de percer le mystère VBA
En attendant, merci de ta disponibilité Hervé et bon courage pour la suite
Peut etre à une prochaine sur le forum
Bien cordialement