effacer une partie de mot à partir d'une liste

[michel.dupont]

Bonjour
pour éviter de m'embarquer dans une demande qui ne serait pas très précise et explicite je joins un petit fichier qui vous fera comprendre au mieux ce que je veux...je ne suis pas loin du but (je crois) ...dans le fichier il y a une partie jaune (ce que j'ai réussi à faire) et en bleu ce que je voudrais faire...mais là je bloque!
d'avance un cordial merçi
Michel

 

[phlaurent55]

Re : effacer une partie de mot à partir d'une liste

Bonjour Michel,

remplace le code par celui-ci:

Sub effacemot()
Dim Lg&, c As Range, Cel As Range
Dim firstAddress$
    
    For Each Cel In Range("a10:a13") 'mots à rechercher
        With Range("a2:a6") 'plage ou trouver le mot
            Set c = .Find(Cel, LookIn:=xlValues, lookat:=xlPart)
       
          If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                Range(c.Address) = Replace(Range(c.Address), Cel, "")
                Set c = .FindNext(c)
                If c Is Nothing Then Exit Do
            Loop While Not c Is Nothing And c.Address <> firstAddress
          End If
        End With
    Next Cel
        On Error Resume Next 'si pas de vides
End Sub

la modif porte sur cette ligne:
Range(c.Address) = Replace(Range(c.Address), Cel, "")


à+
Philippe

 

[michel.dupont]

Re : effacer une partie de mot à partir d'une liste

Parfait
Un très grand Merci
Cordialement
Michel