XL 2021 Doublon à fusionner

[Bibouden1]

Bonjour à tous

Désolé de vous déranger pour peut être un problème facile à régler mais je tente ma chance.

J'ai un fichier avec une longue liste de personne ou il y a plein de doublon. Je voudrais savoir s'il est possible de faire EN UNE FOIS, UNE SEULE MANIP pour l'ensemble des doublons pour chaque nom de les fusionner en une seule cellule et centrer comme je l'ai fait dans le fichier avec Sandrine ALV (voir fichier)

Merci beaucoup

 

[fanfan38]

Bonjour
Sur les 2 sites, dans la chartre, il est préciser de ne pas poser la même question sur 2 sites différents
Réponse sur l'autre site

A+ François

 

[chris]

Bonjour
Il est déconseillé de fusionner des cellules

Retire ta fusion et dans une autre colonne utilise la formule

=UNIQUE(A2:A466)

Tu pourras ensuite éventuellement copier/coller le résultat en valeur sur lui même et supprimer la colonne initial

 

[Bibouden1]

Bonjour
Sur les 2 sites, dans la chartre, il est préciser de ne pas poser la même question sur 2 sites différents
Réponse sur l'autre site

A+ François

Oups désolé

 

[Bibouden1]

Bonjour
Il est déconseillé de fusionner des cellules

Retire ta fusion et dans une autre colonne utilise la formule

=UNIQUE(A2:A466)

Tu pourras ensuite éventuellement copier/coller le résultat en valeur sur lui même et supprimer la colonne initial

Bonjour
merci de ta réponse mais je viens de me rendre compte que mon fichier est incomplet car j'ai des colonnes après la A c'est pour cela que j'ai besoin de fusionner les noms en laissant les autres colonnes telles qu'elles sont. Je remet mon fichier

 

[sylvanu]

Bonjour,
Un essai en PJ avec deux macros sur boutons pour fusionner et "défusionner".
les macros doivent être activer.

 

[chris]

RE
Je persiste et signe : en fusionnant tu perds des possibilités de tri, filtre... entre autres

Une MFC masquant les répétitions est plus efficace... Mais tu sembles aimer les doublons même sur les forums...

 

[job75]

Bonsoir à tous,

J'y vais de ma solution :

Sub Fusionner()
Dim a As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Defusionner 'lance la macro
Columns(1).Insert 'insère une colonne auxiliaire
With [A1].CurrentRegion.Columns(1)
    .FormulaR1C1 = "=1/(RC[1]=OFFSET(RC[1],-1,))"
    For Each a In .SpecialCells(xlCellTypeFormulas, 1).Areas
        Union(a(0, 2), a.Columns(2)).Merge 'fusionne
    Next a
End With
Columns(1).Delete
End Sub

Sub Defusionner()
With Range("A1:A" & Cells(Rows.Count, 3).End(xlUp).Row)
    .UnMerge 'défusionne
    On Error Resume Next
    .SpecialCells(xlCellTypeBlanks) = "=R[-1]C"
    .Value = .Value 'supprime les formules
End With
End Sub

Je persiste et signe : en fusionnant tu perds des possibilités de tri, filtre... entre autres

Il suffit de lancer d'abord la macro Defusionner.

A+