Discussion :

[Djohn]

Hello,

Dans une colonne j’ai une suite de nombre, dont le séparateur de millier est le point, et le séparateur de décimal la virgule.

Il y a 2 catégories de nombres :
- nombres avec 2 chiffres après la virgule
- nombres avec 3 chiffres après la virgule


Mon objectif est de supprimer les points des séparateurs de millier.

Pour les nombres a 2 chiffres après la virgules : no problème

Pour les nombres a 3 chiffres après la virgules : la macro me supprime les points ET le séparateur de décimal qui je le rappelle est une virgule, par un espace, n’est ce pas bizarre ?
Ex : 100.253,52 deviens 100 253 52 (je précise qu'il sagit de l'espace de séparateur de milier et non, un reel espace entre les nombres, c'est a dire que dans ma cellule il est écrit 100 253 52, mais si je me place dessus, dans la barre en haut il est écrit 10025352)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Range("F:F").Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Merci pour votre aide

[Swiper]

Normalement dans la colonne tu mets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Columns("F:F").FormatNumber = 000 000,000

Dis moi si ca marche

[Djohn]

le format de ton nombre n'est pas reconnu j'ai un message d'erreur

et sinon, est ce sensé me supprimer les points ??

merci

[AlainTech]

Dans une colonne j’ai une suite de nombre, dont le séparateur de millier est le point, et le séparateur de décimal la virgule.

la macro me supprime les points ET le séparateur de millier qui je le rappelle est une virgule,

Elle n'est pas un peu incohérente, ton explication?

La toute première question à se poser, avant toute manipulation,est de savoir si Excel interprète le contenu des cellules comme des nombres ou comme du texte.

Autrement dit, si aucun alignement n'est forcé (Alignement horizontal: Standard), les nombres sont-ils à gauche ou à droite?

[Djohn]

effectivement j'ai buggé dans mon explication,

il fallait comprendre :

la macro me supprime les points ET le séparateur de décimal qui je le rappelle est une virgule,

Autrement vous pouvez faire le test par vous meme, ce probleme s'applique sur toutes les versions d'Excel apparement.

Pour répondre a ta question, il y a un alignement a droite, ce sont donc des nombres.

Merci

[Djohn]

je m'apporte une réponse qui fonctionne mais longue, si quelqu'un a quelque chose de plus court et moins lourd ca serai cool

merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
        Dim wak As Range
        Set wak = Range("f1")
        For Each wak In Range("f1:f150") 'on recherche dans une large plage de cellule
 
 
        a = Left(Right(wak, 4), 1) 'récupération de la vigule en 4 emme place a gauche, si elle existe
        If a = "," Then
        wak.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       wak = wak / 1000
 
       Else
       wak.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        End If
 
        Next

[AlainTech]

Pour les nombres a 2 chiffres après la virgules : no problème

Pour les nombres a 3 chiffres après la virgules : la macro me supprime les points ET le séparateur de décimal qui je le rappelle est une virgule, par un espace, n’est ce pas bizarre ?
Ex : 100.253,52 deviens 100 253 52 (je précise qu'il sagit de l'espace de séparateur de milier et non, un reel espace entre les nombres, c'est a dire que dans ma cellule il est écrit 100 253 52, mais si je me place dessus, dans la barre en haut il est écrit 10025352)

La prochaine fois, donne un exemple qui correspond à la description...

Pour répondre a ta question, il y a un alignement a droite, ce sont donc des nombres.

Il ne faut jamais essayer de modifier la mise en forme faite par Excel en manipulant les données.

Dans les cas dont tu parles, il aurait fallu modifier les paramètres régionaux pour mettre un espace à la place du point.

Je viens de faire un essai.
Si les paramètres régionaux sont avec un point pour séparateur de millier, il est possible de forcer un espace:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim wak As Range
For Each wak In Range("f1:f150") 'on recherche dans une large plage de cellule
  wak.NumberFormat = "### ### ##0.0##"
Next