Mise en forme inatendue d'un montant en VBA

[jhofman]

Bonjour


J'utilise une procédure pour "nettoyer" des données saisies.

Sub mise_enforme()

Set range_C = Range("A2:A6")
For Each cel In range_C
        a = cel.Value
        a = Replace(a, " ", "")
        a = Replace(a, ",,", ",")
        Cells(cel.Row, cel.Column + 1).Value = a
Next
End Sub

Mon problème est que la données 1,123456 se transforme en 123456.
SI quelqu'un a une explication il sera le bienvenu

 

[Guest]

Re : Mise en forme inatendue d'un montant en VBA

Bonjour JHoffman,

Sans avoir testé, il me semble que ceci devrait le faire:

a=Val(replace(a,",,","."))

En vba il faut remplacer la virgule par le point

A bientôt

 

[jhofman]

Re : Mise en forme inatendue d'un montant en VBA

merci

Mais avec le point cela donne le même résultat.
ce n'est pas cette fonction qui gène.
(ps le val ne semble pas nécesseraire)


en fait c'est el simple fait d'écrire

a = cel.Value
cel.value = a

qui généère une anomalie :
1,2 reste bien 1,2
mais
1,123132 devient 1 123 132
(disparition de la virgule)

 

[Roland_M]

Re : Mise en forme inatendue d'un montant en VBA

bonjour

après essai

ici >>> Cells(cel.Row, cel.Column + 1).Value = "'" & a <<<< rajouter devant le signe '

 

[Guest]

Re : Mise en forme inatendue d'un montant en VBA

Re jHoffman,

J'ai réussit avec ceci:

For Each cel In range_C
        a = cel.Value
        a = Replace(a, " ", "")
        a = Replace(a, ",,", ".")
        If IsNumeric(a) Then
          Cells(cel.Row, cel.Column + 1).Value = CDbl(a)
        Else
          Cells(cel.Row, cel.Column + 1).Value = a
        End If
Next

Il faut que tes cellules soit au format nombre avec le nombre de décimales souhaitées.

A bientôt

 

[jhofman]

Re : Mise en forme inatendue d'un montant en VBA

merci Roland_M & Hasco.


la solution de Roland_m marche "en consultation" mais pose un problème pour les montants.
le solution de Hasco est parfaite.

Merci beaucoup.
José

 

[skoobi]

Re : Mise en forme inatendue d'un montant en VBA

Bonjour jhofman, Roland,
Salut Hasco ,

Ou ceci?

Sub mise_enforme()
  Set range_C = Range("A2:A6")
  For Each cel In range_C
    a = cel.Value
    a = Replace(a, " ", "")
    a = Replace(a, ",,", ",")
    On Error Resume Next
    Cells(cel.Row, cel.Column + 1).Value = CDbl(a)
    If Err.Number <> 0 Then Cells(cel.Row, cel.Column + 1).Value = a
    On Error GoTo 0
  Next
End Sub

Edit: je suis en retard moi!
n'empêche Hasco, on avait la même idée (promis, j'ai pas copié )

 

[jhofman]

Re : Mise en forme inatendue d'un montant en VBA

Merci Skoobi


je pense souvent que l'utilisation de la gestion des erreurs dervait être plus systématique.