Discussion :

[Charly910]

Bonjour,

Dans ma sélection j'ai 3 cellules en colonnes sous forme de chaines :
45 140,95
2 005,92
1 707,77

Je voudrais faire une macro qui transforme cette sélection en nombres:

45140,95
2005,92
1707,77

L'élimination des espace fonctionne bien, mais je n'arrive pas à transformer les chaines en nombres.
J'ai essayé :

Code :

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

1
2
3
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False
    Selection.NumberFormat = "0,00"

Mais sans succès
Quelqu'un pourrait il m'aider ?

Merci

A+
Charly

PS je suis en Excel 2000 (!!)

[révèr]

Bonjour Charly,

Code :

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

Selection.NumberFormat = "#,##0.00"

[Charly910]

Merci Révèr,

mais cela ne fonctionne pas non plus, la macro me renvoie :

45140,95
2005,92
1707,77

mais cadrés à gauche et quand je veux faire la somme des 2 cellules j'ai 0,00

A+
Charly

[révèr]

Je ne sais pas s'il peut exister une différence avec la version 2000 d'Excel. Néanmoins, tu as oublié de préciser dans la création de ton poste. Tu as une liste déroulante avec les versions d'Excel, je ne saurai que te conseiller de lire le sujet qui a été épinglé dans le forum à cet effet.

La solution de Menhir pourra peut-être te convenir, en tout cas comme précisé dans mon derneir message. Cette manière d'écrire le Numberformat fonctionne parfaitement dans mon cas.

[Charly910]

Bonjour Menhir,

ta solution me renvoie :

45*140.95
2*005.92
1*707.77

cadrés à gauche et la somme des 3 cellules et toujours 0,00

A+
Charly

[révèr]

Dans ce cas, essaie une combinaison des 2 pour retirer l'espace et garder la virgule ?

[Charly910]

Désolé, c'est ma première demande sur le forum Excel, je n'avais pas vu la liste déroulante mais j'avais indiqué Excel 2000 dans mon post. Est ce qu'il faut indiquer autre chose ?

A+
Charly

[BENNASR]

bonjour
c'est déconseillé selon les regles du forum mais je crois que pour aller direct au but ..peux tu joindre un petit fichier test sans macro ni données confidentielles

[révèr]

Indiquer la version d'Excel permet de prendre en compte des fonctionnalités existantes ou non.

Je n'ai pas réussi à reproduire la même erreur que toi. Cela étant dit, j'ai déjà été confronté à ce problème. Essaie d'écrire un nombre décimal dans une cellule et regarde la manière dont est faite la syntaxe.

Par ailleurs, si cette variable est une valeur monétaire tu peux aussi utiliser la fonction "CCur" qui la transformera en valeur monétaire.

[Menhir]

Le problème, c'est que VBA considère que la "," est un séparateur de milliers et non de décimales.
A la limite, il vaudrait mieux faire ça "à la main" avec la commande Remplacer puisque Excel comprendra mieux que VBA ce format "à la française".

Idem pour la "," placée dans le NumberFormat.

Si tu tiens à la faire en VBA, essaye ça :

Code :

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

1
2
3
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False
    Selection.NumberFormat = "# ##0.00"

[révèr]

Bonjour Menhir,

De mon côté, le NumberFormat = "#,##0.00" fonctionne très bien