Enlever doublon dans une cellule...

[libellule85]

Bonjour le forum,

J'aimerais avoir une formule ou une macro qui enlève le doublon qui est collé au prénom (et le reste). Il va sans dire que les noms et prénoms n'ont pas la même longueur !!!

contenu de la cellule : Bernard PierreBernard Pierre résultat attendu => Bernard Pierre

D'avance merci pour votre aide

 

[libellule85]

Re : Enlever doublon dans une cellule...

Bonjour Jean-Marcel,

Merci beaucoup pour ta réponse c'est exactement ce que je recherchais.
Bon Après midi

 

[DoubleZero]

Re : Enlever doublon dans une cellule...

Bonjour, libellule85, Jean-Marcel 🙂, le Forum,

Une autre suggestion, par macro :

Option Explicit
Sub Sans_doublon()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Columns("B:B").TextToColumns Destination:=Range("K1"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
    Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
    :=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
    With Range("l1:l" & Range("k65536").End(xlUp).Row)
        .FormulaR1C1 = "=RC[-1]&"" ""&RC[1]"
        .Value = .Value
    End With
    Range("K:K,M:M").Clear
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

A bientôt 🙂

 

[libellule85]

Re : Enlever doublon dans une cellule...

Bonjour 00,

Merci beaucoup pour ta réponse
Bon Après Midi