Enlever une partie d'un texte

Modeste

XLDnaute Barbatruc

• 6 Octobre 2011

• #2

Re : Enlever une partie d'un texte

Bonjour Squoltahthx94,

Pas certain d'avoir bien compris ton affaire! L'enregistreur de macro utilisé lors d'un simple rechercher-remplacer devrait donner des pistes ...
Le code pourrait ressembler à

Code:

Sub virer_Bruno()
For Each c In Me.Range("C3:C11")
    c.Value = Trim(Replace(c.Text, "bruno pierre", ""))
    c.Value = Trim(Replace(c.Text, "bruno", ""))
Next c
End Sub

Quant à l'histoire des mois ... Mystère!?

 

Vote positif 0 Vote négatif

S

Squoltahthx94

XLDnaute Occasionnel

• 6 Octobre 2011

• #3

Re : Enlever une partie d'un texte

Quant à l'histoire des mois ... Mystère

En faite, le tableau s'incréménte tous les mois des informationsdu mois précédent et je voulais indiqué à la macro que le rechercher-remplacer s'effectuait sur le mois en cours mais je te remercie de ta réponse, je vais l'essayer

 

Vote positif 0 Vote négatif

S

Squoltahthx94

XLDnaute Occasionnel

• 6 Octobre 2011

• #4

Re : Enlever une partie d'un texte

Une dernière question : si lors de la macro, la cellule devient vide je souhaiterai laissé 'bruno pierre' est-ce possible??

merci de ton retour

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 6 Octobre 2011

• #5

Re : Enlever une partie d'un texte

Re-bonjour,

Sans plus de conviction que tout à l'heure:

Code:

Sub virer_Bruno()
For Each c In Me.Range("C3:C11")
    c.Value = Trim(Replace(c.Text, "bruno pierre", ""))
    c.Value = Trim(Replace(c.Text, "bruno", ""))
    If c.Value = "" Then c.Value = "bruno pierre"
Next c
End Sub

 

Vote positif 0 Vote négatif