Macro pour supprimer du texte, en fonction d'un tableau...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide afin d'écrire une macro pour supprimer du texte en fonction
d'un tableau dans lequel les textes à supprimer sont listés...voir fichier

Merci pour le temps que vous voudrez bien m'accorder.

Bien à vous,
Christian.

 

[Efgé]

Re : Macro pour supprimer du texte, en fonction d'un tableau...

Bonjour Christian0258 , le fil, le forum,
Un essai :

Private Sub CommandButton1_Click()
Dim C As Range, D As Range
For Each C In Range(Cells(2, 10), Cells(Rows.Count, 10).End(xlUp))
    For Each D In Range(Cells(2, 6), Cells(Rows.Count, 6).End(xlUp))
        If InStr(D.Value, " " & C.Value) > 0 Then D.Value = Replace(D.Value, C.Value, "")
    Next D
Next C
End Sub

Cordialement

 

[Staple1600]

Re : Macro pour supprimer du texte, en fonction d'un tableau...

Bonjour


Voici une solution alambiquée
Sélectionne ta colonne F
et lances la macro

Sub test()
Dim c As Range
For Each c In Selection
If VBA.Left(StrReverse(c.Text), 1) = "G" Then
c = StrReverse(Mid(StrReverse(c.Text), 6, 256))
Else
c = c
End If
Next
End Sub

 

[JNP]

Re : Macro pour supprimer du texte, en fonction d'un tableau...

Bonjour le fil 🙂,
Another solution 😛...

Sub Test()
Dim I As Integer
For I = 2 To Range("J65000").End(xlUp).Row
Range("F:F").Replace What:=Range("J" & I), Replacement:="", LookAt:=xlPart
Next I
End Sub

Bon dimanche 😎

 

[Staple1600]

Re : Macro pour supprimer du texte, en fonction d'un tableau...

Re JNP


Tu parcours tout le feufeu ? 😉

 

[JNP]

Re : Macro pour supprimer du texte, en fonction d'un tableau...

Re 🙂,

Tu parcours tout le feufeu ? 😉

Non, mais quand je vois "supprimer du texte", je penses "RegExp", et si c'est pas le cas, pas grave 😛...
Bon dimanche 😎

 

[Christian0258]

Re : Macro pour supprimer du texte, en fonction d'un tableau...

Re, le forum,

Merci à vous tous, pour votre aide et vos solutions. C'est nickel.

Bien à vous, les cracks des macros.

Christian