Problème avec le style currency en vba

Bonjour tout le monde,

A l'aide d'une procédure vba, j'essaie de mettre en forme une plage de cellule au format ou style monétaire (€). Mais a priori Excel me joue des tours.

Voici ma procédure

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub test() Dim Rng1 As Range, ZoneRng1 As Range Set Rng1 = Sheets("Feuil1").Range(Cells(1, 1), Cells(1, Range("IV1").End(xlToLeft).Column)).Find("puht", lookat:=xlWhole) If Rng1 Is Nothing Then Cancel = True Else LminRng1 = Rng1.Row + 1 CminRng1 = Rng1.Column LmaxRng1 = Sheets("DONNEES").Range("A65536").End(xlUp).Row Set ZoneRng1 = Range(Cells(LminRng1, CminRng1), Cells(LmaxRng1, CminRng1)) With ZoneRng1 '.NumberFormat = "#,##0.00 _€" .Style = "currency" End With End If End Sub

---

Si j'utilise .Style "Currency" la procédure m'affecte bien un style monétaire, mais en Franc. Et si j'utilise .NumberFormat, j'ai bien un style personnalisé mais sans le symbole monétaire €.

D'où vient le problème ?

Je travaille sur Excel 2003 Pro - SP3 et les paramètres régionaux de mon PC sont ok.

Merci d'avance.

Bonjour,

j'ai testé ton code sans problème pour "currency" et je l'ai testé avec l'autre code en ajoutant un "_" et ça fonctionne

Code:

---

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

---

bonne journée

Bonjour,
le code ci-dessous fonctionne aussi

Code:

---

.NumberFormat = "#,##0.00 €"

---

Merci.