Mettre la virgule et les 2 zéros dans un label quand le nombre tombe juste

[libellule85]

Bonjour le forum,

Avec la macro ci-dessous, j'ai deux résultats de cellules qui s'affichent chacun dans un label. Mon petit problème c'est que quand le nombre tombe juste, par exemple 120 € celà ne me met pas la virgule et les 2 zéros comment faire pour que ceux-ci apparaissent.

Private Sub Worksheet_Calculate()
If ActiveSheet.Range("J1") <> "" Then
Label2.Caption = ActiveSheet.Range("J1") & " €"
Else: End If
If ActiveSheet.Range("G2") <> "" Then
Label3.Caption = ActiveSheet.Range("G2") & "  €"
Else: End If
End Sub

D'avance merci pour vos réponses.

 

[Dranreb]

Re : Mettre la virgule et les 2 zéros dans un label quand le nombre tombe juste

Bonjour

Label2.Caption = Format(ActiveSheet.Range("J1").Value, "0.00") & " €"

À +

 

[pierrejean]

Re : Mettre la virgule et les 2 zéros dans un label quand le nombre tombe juste

Bonjour libelule

Label2.Caption = Format(ActiveSheet.Range("J1"), "#,##0.00 €")

EDit : Salut Drandreb

 

[libellule85]

Re : Mettre la virgule et les 2 zéros dans un label quand le nombre tombe juste

Bonjour Dranreb,

Merci beaucoup pour ta réponse et la rapidité de celle-ci. C'est exactement ce que je voulais.
Encore merci et bonne journée

 

[libellule85]

Re : Mettre la virgule et les 2 zéros dans un label quand le nombre tombe juste

Bonjour PierreJean,

Merci beaucoup pour ta réponse, c'est sympa.
Bonne journée