Mise en forme inatendue d'un montant en VBA

G

Guest

Guest

• 3 Octobre 2008

• #2

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

 

Vote positif 0 Vote négatif

J

jhofman

XLDnaute Occasionnel

• 3 Octobre 2008

• #3

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

Code:

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)

 

Dernière édition: 3 Octobre 2008

Vote positif 0 Vote négatif

Roland_M

XLDnaute Barbatruc

• 3 Octobre 2008

• #4

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 '

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 3 Octobre 2008

• #5

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

Re jHoffman,

J'ai réussit avec ceci:

Code:

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

 

Vote positif 0 Vote négatif

J

jhofman

XLDnaute Occasionnel

• 3 Octobre 2008

• #6

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é

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 3 Octobre 2008

• #7

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

Bonjour jhofman, Roland,
Salut Hasco ,

Ou ceci?

Code:

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é )

 

Vote positif 0 Vote négatif

J

jhofman

XLDnaute Occasionnel

• 3 Octobre 2008

• #8

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.

 

Vote positif 0 Vote négatif