[XL-2003] Formatage montant devise [Résolu]

[korni184]

Bonjour,

J'ai créer un petit code qui me permet de séparer dans une cellule le montant et la devise.

Exemple :

USD 1000
EUR 20000

Donc avec la fonction REPLACE, je supprime les espaces blancs. La devise et le montant se colle. Et avec la formule MID, je mets une fois dans la cellule suivante le montant et une fois la devise :

A1 (MONTANT non formaté)
A2 (Montant) = mid(A1;4;100)
A3 (Devise) = mid(A1;1;3)

Le problème, c'est que le montant n'est pas retraitable. Je n'arrive pas le formater, rajouter une décimale, etc. L'aligner etc...

Comment je peux faire ?

Merci d'avance pour votre aide.

Bien à vous

[Cocotte278]

Bonjour

Si tu sais dans quelle cellule tu mets ton montant, tu dois pouvoir retravailler ta valeur... Non ?!

Tu veux travailler en macro ?
Tu as déjà du code en VBA ?

[jfontaine]

Bonjour,

Le problème, c'est que le montant n'est pas retraitable. Je n'arrive pas le formater, rajouter une décimale, etc. L'aligner etc...

Si par retraitable tu entends que le montant n'est pas au format numérique dans la cellule.

Essais comme cela

Code :

1
2
3
 
Range("A2").Value = Val(Mid(Range("A1"),4,len(Range("A1").Value-4)
Range("A2").NumberFormatLocal = "# ##0"

[korni184]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Macro1() 
' 
' Macro1 Macro 
' Macro recorded 16/11/2011 
' Keyboard Shortcut: Ctrl+a 
' 
    Columns("A:A").Select 
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _ 
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ 
        ReplaceFormat:=False 
    Range("B1").Select 
    ActiveCell.FormulaR1C1 = "=MID(RC[-1],4,100)" 
    Range("C1").Select 
    ActiveCell.FormulaR1C1 = "=MID(RC[-2],1,3)" 
    Range("B1").Select 
    Selection.NumberFormat = "0.000" 
End Sub

Les montants peuvent s'afficher comme ceci

125,50

mais lorsqu'il n'y a pas de décimale, il indique 125,
rien de plus...

Donc je voudrais reformer cela pour qu'il s'affiche 125,00. En fait tout simplement pour la cellule perdre tout formatage...

[Cocotte278]

Je pense que c'est parce que dans ta cellule tu as une formule et pas directement une valeur.

Utilise la formule donnée par jfontaine

Code :

Range("A2").Value = Val(Mid(Range("A1"),4,len(Range("A1").Value-4)

Pour le format :

Code :

Range("A2").NumberFormat = "0.00"

[jfontaine]

Tu peux avoir un problème avec le symbole décimal ","

Code :

1
2
3
4
5
6
7
 
dim strMontant as string
 
strMontant = Replace(Mid(Range("A1"),4,len(Range("A1").Value)-4),",",".")
 
Range("A2").Value = Val(strMontant)
Range("A2").NumberFormatLocal = "# ##0.00"

[korni184]

Bonjour à nouveau :

Voici mon code et cela fonctionne.

Code :

Est-il possible d'ajouter un moteur à cette macro ?

En fait....

Le nombre de ligne varie constamment, donc je voudrais juste qu'il puisse détecter le nombre de ligne et ajouter à chaque fois le montant formaté et la devise.

Merci d'avance pour votre aide

[ZebreLoup]

Je pense que tu as beaucoup plus simple sans passer par une macro en remplaçant ton

Code :

=MID(A1;4;100)

par

Code :

1
2
3
=1*MID(A1;4;100) 
'ou
=1*MID(A1;4;LEN(A1)-3)

[korni184]

Mais imaginons en partant du code, que j'ai un total de ligne qui peut varier de 0 à 1000, je peux faire comment ?

Je sais qu'avec la fonctione activecell offset, je peux lui demander d'aller vérifier 1 chose :

Tant qu'il y a une donnée en dessous de ma cellule, je continu à ajouter le montant et la devise...

Si en dessous de ma cellule il n'y a plus rien, il arrête le traitement...

[jfontaine]

Re,

J'ai épuré ton code.

Le remplacement de l'espace en position 4 ne sert plus car suprimé par le VAl

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Macro1()
 
Dim i As Long
 
For i = 1 To Range("A65535").End(xlUp).Row
 
    'Ajout du montant dans la colonne B
    Range("B" & i).Value = Val(Replace(Mid(Range("A" & i).Value, 4, Len(Range("A" & i).Value) - 3), ",", "."))
 
    'Ajout de la devise dans la colonne C
    Range("C" & i).Value = Left(Range("A" & i).Value, 3)
 
Next i
'Ajout des décimales colonne B
Range("B:B").NumberFormat = "# ###0.00"
 
End Sub