Conversion d'une sélection de cellules en nombres

Version imprimable

Voir 40 message(s) de cette discussion en une page

10/03/2020, 09h35
Charly910

Conversion d'une sélection de cellules en nombres
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:

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 (!!)
10/03/2020, 09h37
révèr

Bonjour Charly,

Code:

Selection.NumberFormat = "#,##0.00"

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:

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"

10/03/2020, 09h44
révèr

Bonjour Menhir,

De mon côté, le NumberFormat = "#,##0.00" fonctionne très bien
10/03/2020, 09h45
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
10/03/2020, 09h47
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.
10/03/2020, 09h49
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
10/03/2020, 09h51
révèr

Dans ce cas, essaie une combinaison des 2 pour retirer l'espace et garder la virgule ?
10/03/2020, 09h52
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
10/03/2020, 09h54
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
10/03/2020, 09h56
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.
10/03/2020, 10h16
Charly910

1 pièce(s) jointe(s)

Bonjour BENNASR

Voici le fichier simplifié Exemple.xls (En XLS 2000)

Pièce jointe 544563

je n'ai pas compris comment on pouvait regarder la manière dont est faite la syntaxe. (Format de cellule m'affiche : #\ ##0,00 après exécution de la macro)

peut être qu'il faut utiliser Val() ? (mais je ne sais pas comment)

Chose curieuse, après exécution, si je me place dans l'une des cellules et que je tape "Enter", la cellule se cadre à droite et devient donc une valeur numérique.

A+
Charly
10/03/2020, 10h20
Charly910

1 pièce(s) jointe(s)

Désolé, j'ai laissé la macro dans le fichier joint, voici le même sans macro !

Pièce jointe 544566
10/03/2020, 10h26
révèr

Essaie avec une fonction de conversion de type :

https://docs.microsoft.com/fr-fr/off...sion-functions

J'ai essayé avec :
Code:

1 2 3 Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByColumns, MatchCase:=False Selection.Value = CDbl(Selection.Value)
ou bien avec
Code:

1 2 3 4 5 Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByColumns, MatchCase:=False Selection.NumberFormat = "# ##0.00" Selection.Value = CDbl(Selection.Value)
Mais j'ai une erreur "Incompatibilité de type" sur la dernière ligne dans les 2 cas

Edit : bizarre, quand je copie la macro sur le forum " " se transforme en "*"

Selection est un objet Range pour le coup non ? Il fait référence à 3 Cellules. Je ne pense pas que CDbl puisse-t-être attribué à une plage de cellules.
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim Cell As Range 'Si ça ne fonctionne pas, peut-être créer une variable de stockage temporaire du type : 'Dim affTemp As Double For Each Cell In Selection Cell.Value = CDbl(Cell.Value) 'affTemp = CDbl(Cell.Value) 'Cell.Value = "" 'Cell.Value = affTemp Next Cell

à tester

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub convert()
Dim c As Range
Dim plage As Range
Set plage = Sheets("Test").Range("F1:F100")
    Range("F1:F100").Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False
    Range("F1:F100").Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False
    For Each c In plage
    c.Value = Replace(c.Value, Chr(10), "")
    c.Value = CDbl(c.Value) * 1
    Next c
    Range("F1:F100").NumberFormat = "# ##0.00"
End Sub

10/03/2020, 11h00
Charly910

J'ai fait un test dans un éditeur hexadécimal :

Le caractère séparateur des milliers dans mes cellules n'est pas un espace, mais en binaire " " donne 22 C2 A0 22

dans la macro j'ai bien le bon caractère, car il est supprimé

mais ça ne fonctionne toujours pas, la chaine ne veurt pas s'afficher en numérique !

A+
Charly
10/03/2020, 11h02
Menhir

Citation:

Envoyé par BENNASR

Code:

Range("F1:F100").NumberFormat = "# ##0.00"

Pour VBA, le séparateur de milliers est ",", donc :

Code:

Range("F1:F100").NumberFormat = "#,##0.00"

Mais il serait sans doute plus simple d'utiliser NumberFormatLocal pour rester dans des formats connus :

Code:

Range("F1:F100").NumberFormatLocal = "# ##0,00"
10/03/2020, 11h09
Charly910

Super, merci à tous les 2

vos solutions qui sont semblables fonctionnent bien.

Je conserve celle de Révèr qui prend directement en compte ma sélection

heureusement que je suis plus doué en Delphi qu'en Macro Excel :mouarf:

Merci encore

A+
Charly

Voir 40 message(s) de cette discussion en une page