Aide sur une formule de suppression

[Luc Lucasse]

Bonjour à tous,

Je cherche à supprimer " † " dans la colonne A de ma feuille1.

Donc je met comme formule:
Private Sub Worksheet_Change(ByVal Target As Range)
Workbooks("Pronos Daily Donkey1").Activate
Sheets("Feuil1").Select

Application.ScreenUpdating = False
Cells.Select
Selection.Replace What:="†~ ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select
Application.ScreenUpdating = True

End Sub

Mais quand je met ca il me reste encore une espace à supprimer et impossible de la supprimer automatiquement!!!! 😕

MQerci pour votre aide 😉

 

[JYLL]

Re : Aide sur une formule de suppression

Bonjour Luc Lucasse et le forum,

L'espace est plutôt le caractère 160 pour le faire tu appuyes sur control et tout en le tenant appuyé tu tapes 0160 au pavé numérique, l'espace est le caractère 0032.

Bon test, amicalement

Jean-Yves

 

[ziopizza]

Re : Aide sur une formule de suppression

Bonjour Luc Lucasse,
Ce petit code marche parfaitement,quelque soit le signe à supprimer.

A adapter

Sub tt()
ActiveSheet.Cells.Select
Selection.Replace What:="-", Replacement:="", SearchOrder:=xlByRows
Range("A1").Select
End Sub

Salut Yves
Bonjour JYLL,pas vue
(perso je ne sais pas d'ou sort ce signe †)

 

[Luc Lucasse]

Re : Aide sur une formule de suppression

Bonsoir à tous,

Merci pour votre réponse mais il faut également que je supprime les espaces qui se trouve juste avant le symbole †.

Est ce que quelqu'un a une petite idée??

Merco

 

[Aliocha]

Re : Aide sur une formule de suppression

Et en faisant, avec l'espace avant ton † :

Selection.Replace What:=" †", Replacement:="", SearchOrder:=xlByRows

ca marcherait pas?