SUPPRIMER CERTAINS CARACTERE D'UNE CELLULE
Le
elodie005
Bonjour,
Je sais que je demande beaucoup d'aide en se moment mais ça serait
vraiement génial si vous pouviez à nouveau m'aider
J'ai en colonne A des cellules contenant un ou plusieurs mots pouvant
contenir des parenthèses et qui sont suivi par (X%) avec des espaces
plus ou moins variables entre.
L'ideal serait qu'un macro suprime les espaces et (X%) à la fin des
mots sur toutes les feuilles d'un classeur.
Ex (je vous conseille pas de reprendre cette recette c'est vraiment un
exemple ;-) :
GATEAU AU CHOCOLAT
CHOCOLAT (45%)
SUCRE (15 %)
BEURRE (PAS DE MARGARINE) (20%)
LEVURE DE BOULANGERIE (5%)
devient avec aucun espace derrière chaque mot :
GATEAU AU CHOCOLAT
CHOCOLAT
SUCRE
BEURRE (PAS DE MARGARINE)
LEVURE DE BOULANGERIE
Je sais que je demande beaucoup d'aide en se moment mais ça serait
vraiement génial si vous pouviez à nouveau m'aider
J'ai en colonne A des cellules contenant un ou plusieurs mots pouvant
contenir des parenthèses et qui sont suivi par (X%) avec des espaces
plus ou moins variables entre.
L'ideal serait qu'un macro suprime les espaces et (X%) à la fin des
mots sur toutes les feuilles d'un classeur.
Ex (je vous conseille pas de reprendre cette recette c'est vraiment un
exemple ;-) :
GATEAU AU CHOCOLAT
CHOCOLAT (45%)
SUCRE (15 %)
BEURRE (PAS DE MARGARINE) (20%)
LEVURE DE BOULANGERIE (5%)
devient avec aucun espace derrière chaque mot :
GATEAU AU CHOCOLAT
CHOCOLAT
SUCRE
BEURRE (PAS DE MARGARINE)
LEVURE DE BOULANGERIE
Poser une question
le "15 %" 15 espace %, c'est une erreur ou une éventualité ?
Daniel
Sub test()
Dim c As Range, Tabl
For Each c In Range([A1], Cells(Rows.Count, 1).End(xlUp))
If InStr(1, c.Value, "%") > 0 Then
c.Value = Application.Substitute(c.Value, " %", "%")
Tabl = Split(c.Value, " ")
For i = 0 To UBound(Tabl)
If InStr(1, Tabl(i), "%") > 0 Then
Tabl(i) = ""
End If
Next i
c.Value = Join(Tabl, " ")
c.Value = Application.Substitute(c.Value, Chr(160), "")
End If
Next c
End Sub
Daniel
supprimés et c'est super par contre j'ai toujours quelques espaces
derrière chaque mot alors qu'il m'en faudrait aucun....
Peux tu m'aider à nouveau?
Merci
Sub test()
Dim c As Range, Tabl
For Each c In Range([A1], Cells(Rows.Count, 1).End(xlUp))
If InStr(1, c.Value, "%") > 0 Then
c.Value = Application.Substitute(c.Value, " %", "%")
Tabl = Split(c.Value, " ")
For i = 0 To UBound(Tabl)
If InStr(1, Tabl(i), "%") > 0 Then
Tabl(i) = ""
End If
Next i
c.Value = Join(Tabl, " ")
c.Value = Application.Substitute(c.Value, Chr(160), "")
c.Value = Application.Trim(c.Value)
c.Value = Application.Clean(c.Value)
End If
Next c
End Sub
Daniel
feuille....serait-il possible que ça le fasse sur toutes les feuilles
du classeur?
Encore merci pour tout