macro pour remplacer les points par des espaces qui ne fonctionne pas

Melomie

XLDnaute Occasionnel
Bonjour à tous,

Je vous joint un fichier exemple (qui correspond à mon fichier mais en version "light"), vous verrez j'ai fais 2 macro : une pour remplacer les points "." par des espaces " ", et une pour fermer le fichier sans enregistrer.

Problème : ma macro ne remplace pas les points je ne sais pas pourquoi !

Petite précision : je suis débutante ^^
et j'utilise Excel 2003

merci !!
 

Pièces jointes

  • ED.xls
    103.5 KB · Affichages: 75
  • ED.xls
    103.5 KB · Affichages: 76
  • ED.xls
    103.5 KB · Affichages: 83
Dernière édition:

Melomie

XLDnaute Occasionnel
Re : macro pour remplacer les points par des espaces qui ne fonctionne pas

en fait il me faudrait une macro (enfin je pense) car mon objectif est de créer un bouton qui permette de remplacer les points par des espaces.
Je suis entrain de créer un fichier qui doit être le plus simplifié possible car ce n'est pas moi qui vais l'utiliser par la suite, le but est donc de leur "mâcher" le travail... Ces personnes vont extraire des données d'SAp et les coller dans mon tableau, le problème c'est que les extracts d'SAP contiennent des points, que je chercher donc à pouvoir supprimer d'un simple geste (grâce à un bouton)
 

Melomie

XLDnaute Occasionnel
Re : macro pour remplacer les points par des espaces qui ne fonctionne pas

ça a l'air de fonctionner, merci Pierro93 !

pour info voici mon code :
Code:
'pour convertir les données :
     Range("C3:C39").Select
    ActiveWindow.SmallScroll Down:=-30
    Selection.TextToColumns Destination:=Range("C3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, FieldInfo _
        :=Array(1, 1), ThousandsSeparator:=".", TrailingMinusNumbers:=True

'pour mettre le séparateur de milliers :
    Range("C3:C39").Select
    Selection.NumberFormat = "#,##0"
 

Discussions similaires

Réponses
26
Affichages
478