effacer une partie de mot à partir d'une liste

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

michel.dupont

XLDnaute Occasionnel
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
 

Pièces jointes

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

Bonjour Michel,

remplace le code par celui-ci:

Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
488
Retour