Formatage cellule (chiffre est texte)

Hello,

Excellente année 2020.

Je souhaiterais que ma macro formate le chiffre rencontré dans la cellule (2 décimales) et rajoute du texte (caché) provenant d'une variable.

Si le contenu de la variable était "€", ce serait l'équivalent de :

Quelqu'un saurait-il comment adapter :

Selection.NumberFormat = "0.00"" €"""

pour inclure la variable:

UniteMonnetaire = "€"

J'ai fait différents essais non concluants jusque là

Merci d'avance.

Fab

Bonjour

Selection.NumberFormat = "#,##0.00 €"

Bonjour,

Comme ceci :

Option Explicit
Public UniteMonetaire As String

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  UniteMonetaire = "€"
  Selection.NumberFormat = "0.00 " & UniteMonetaire
End Sub

M12 a écrit :

Bonjour

Selection.NumberFormat = "#,##0.00 €"

Hello,

Merci pour d'avoir pris le temps de regarder mon problème.

Toutefois, je n'ai pas été assez clair.

Mon problème est que l'unité monétaire peut varier, ce n'est pas toujours "€".

Je souhaiterais donc qu'il ajoute le contenu de la variable UniteMonetaire

Fab

oxydum a écrit :

Bonjour,

Comme ceci :

Option Explicit
Public UniteMonetaire As String

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  UniteMonetaire = "€"
  Selection.NumberFormat = "0.00 " & UniteMonetaire
End Sub

Hello,

Merci pour ta réponse.

Mais je dois faire quelque chose de faux, car la macro plante sur la dernière ligne du code

Fab

Re,

remplace Selection par Target

Option Explicit
Public UniteMonetaire As String

Private Sub Worksheet_Change(ByVal Target As Range)
  UniteMonetaire = "€"
  Target.NumberFormat = "0.00 " & UniteMonetaire
End Sub

à mettre dans la feuille concernée

M12 a écrit :

Re,

remplace Selection par Target

Option Explicit
Public UniteMonetaire As String

Private Sub Worksheet_Change(ByVal Target As Range)
  UniteMonetaire = "€"
  Target.NumberFormat = "0.00 " & UniteMonetaire
End Sub

à mettre dans la feuille concernée

Hello,

Merci du support, mais ça ne fonctionne toujours pas.

Bon dimanche.

Fab

Bonjour,

Moi çà fonctionne