Supprmer des mots ou des abréviations dans une colonne

bonjour

comment peut-on supprimer des mots ou des abréviation dans une colonne

Ex: Daniel DA je cherche a supprimer DA voici ce que j'obtiens : niel

voir fichier joint

merci pour vos futures réponses

Bonjour,

Il est normal que tu aies ce résultat puisque dans "Daniel DA" tu as deux fois da. Une piste avec un remplacement sur place :

Sub supprimer_mot_colonne()

    Dim Plage As Range
    Dim Cel As Range

    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With

    For Each Cel In Plage

        Cel.Value = Replace(Cel.Value, "DA", "", , , vbBinaryCompare)
        Cel.Value = Replace(Cel.Value, "DP", "", , , vbBinaryCompare)
        Cel.Value = Replace(Cel.Value, "DA", "", , , vbBinaryCompare)
        Cel.Value = Replace(Cel.Value, "Logo oeilleres", "", , , vbBinaryCompare)
        Cel.Value = Replace(Cel.Value, "australiennes", "", , , vbBinaryCompare)
        Cel.Value = Replace(Cel.Value, "(E1)", "", , , vbBinaryCompare)

    Next Cel

End Sub

bonjour,

une autre proposition (cas où tu voudrais supprimer DA dans DANIEL DA par exemple)

Sub supprimer_mot_colonne()
    With Sheets("feuil1")
        t = .Range("A2:A100")
        r = Split(" D4 , DP , DA , Logo oeilleres , australiennes , (E1) ", ",")
        For i = LBound(t) To UBound(t)
            t(i, 1) = " " & Replace(t(i, 1), Chr(160), " ") & " "
            For j = LBound(r) To UBound(r)
                t(i, 1) = Replace(t(i, 1), r(j), " ")
            Next j
            t(i, 1) = Application.Trim(t(i, 1))
        Next i
        .Range("E2").Resize(UBound(t), 1) = t
    End With
End Sub

bonsoir

merci, je ne pensais pas avoir une réponse aussi rapide j'ai appliqué la macro et ça marche super

merci et bon weekend