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