Salut LN, bonjour Emmanuel,
J'allais coller ces qq lignes, (nom de la plage à traiter : RENATO), mais tu m'as devancé.
Sub Sup_ponctuation()
Dim Cellule As Object
Range("RENATO").Select
For Each Cellule In Range("RENATO")
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:=";", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Next Cellule
End Sub
Ce script doit faire hurler les puristes, mais fonctionne tout de même. Pourtant, il apparait que lorsque on se trouve devant une cellule contenant trois points successifs, elle ne fait pas le ménage demandé.
Et je viens de tester la même chose avec ton code, et j'ai constaté la même chose.
Ceci vient-il de ma config ?
As tu une autre idée ?
Merci pour la suite que tu pourras donner.