Discussion :

[419]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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..

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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