Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

ah oui mince... à la base les nombres de la colonne B sont tirés d'une extraction SAp ce qui donne des nombres du type : 74.418 ou 418.156
 

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…