Conserver le format d'une cellule définie en variable (currency)

Version imprimable

Bonjour,
mon titre n'est pas clair mais je n'ai pas trouvé mieux.

J'ai un montant en USD ou EUR dans une cellule.
Je souhaite utiliser ce montant ET le format (usd ou eur) pour l'utiliser dans une autre feuille (coller le montant ET appliquer le format à un ensemble de cellule)

Ma cellule est définie en variable as currency.

J'ai initialement tenté de vérifier le format à l'arrivée mais étant une variable, je pense que ca ne marche pas.
J'ai tenté de le faire au départ c'est à dire définir une condition sur la variable mais sans succès.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 ' sur une feuille active, je copie le taux à facturer Dim Dayrate As Currency 'check day rate currency and apply If ActiveCell.Offset(, 7).NumberFormat = "[$$-409]#,##0.00" = True Then Dayrate = Format(ActiveCell.Offset(, 7), "[$$-409]#,##0.00") Else Dayrate = ActiveCell.Offset(, 7) End If 'sur une nouvelle feuille créée, je vide les cellules puis je colle le taux Range("a19:c23").ClearContents Range("c19") = Dayrate ' apply currency to invoice If Range("c19").NumberFormat = "[$$-409]#,##0.00" = True Then Range("c19:g31").NumberFormat = "[$$-409]#,##0.00" Else End If End sub
Merci pour votre aide dans la compréhension du souci.

En bref, quand j'ai 480 euros dans la cellule, tout baigne (car rien ne change :)).
Si j'ai 480 usd, j'ai tjs 480 euros à l'arrivée..

bonjour,
d'ou ou de quel moyen les donnée son entré dan Excel?
les 480 sont justifié à droite ou à gauche?

Code:

1
2
3
4
5
6
 If ActiveCell.Offset(, 7).NumberFormat = "[$$-409]#,##0.00" = True Then
    Dayrate = Format(ActiveCell.Offset(, 7), "[$$-409]#,##0.00")
ActiveCell.Offset(, 7).value=ActiveCell.Offset(, 7).value
    Else
    Dayrate = ActiveCell.Offset(, 7)
    End If

31/03/2016, 14h19
419

Je récupère les données d'un autre fichier ou les datas sont rentrées en dur. Si USD, format US, si EUR, format euro.
Je les colle sur la feuille xy de mon fichier actuel en respectant le format.
De là j'applique ma macro pour créer une nouvelle feuille yy en récupérant les datas de la feuille xy.

données non justifiées a priori. juste le format $ ou € qui est appliqué sur la cellule.

Bonjour,

Adapte dans le code et teste. Je suis parti du principe que tu as déjà créé une nouvelle feuille (par copie je suppose car tu vide une zone) devant recevoir la valeur et le formatage (ici, nommée "Feuil2") puis que tu reviens sélectionner une cellule dans la feuille source et que tu lance le code après ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Sub Test()
 
    Dim FeDest As Worksheet
    Dim Cel As Range
    Dim USD As Boolean
 
    'défini la cellule cible sur la feuille active
    Set Cel = ActiveCell.Offset(, 7)
 
    'adapter le nom de la feuille recevant la valeur et le formatage !
    'feuille nouvellement créée ?
    Set FeDest = Worksheets("Feuil2")
 
    'contrôle le format
    If InStr(Cel.NumberFormat, "$$") <> 0 Then USD = True Else USD = False
 
    'vide les cellules puis colle la valeur
    FeDest.Range("A19:C23").ClearContents
    FeDest.Range("C19") = Cel.Value
 
    If USD = True Then
        FeDest.Range("C19:G31").NumberFormat = "[$$-409]#,##0.00"
    Else
        FeDest.Range("C19:G31").NumberFormat = "#,##0.00 $"
    End If
 
End Sub

31/03/2016, 23h18
419

bonsoir,
j'ai adapté.

Ca fonctionne.
je comprends pas trop pourquoi je n'y arrive pas autrement que via ta fonction mais ça remplit l'objectif cherché.

Merci