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

Efgé

XLDnaute Barbatruc

• 8 Mai 2011

• #2

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

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

VB:

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

 

Pièces jointes

• SupprimerTexte(2).xls

  56.5 KB · Affichages: 63

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Mai 2011

• #3

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

Code:

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

 

Dernière édition: 8 Mai 2011

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 8 Mai 2011

• #4

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

Bonjour le fil 🙂,
Another solution 😛...

Code:

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 😎

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 8 Mai 2011

• #5

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

Re JNP


Tu parcours tout le feufeu ? 😉

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 8 Mai 2011

• #6

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

Re 🙂,

Staple1600 à dit:

Tu parcours tout le feufeu ? 😉

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 8 Mai 2011

• #7

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

 

Vote positif 0 Vote négatif