Tester une valeur monétaire €

Bonjour,

Je voudrais savoir comment tester une valeur monétaire dans une feuille excel.

J'ai le code suivant et je souhaiterais traiter uniquement les valeurs monétaires.

Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    'Définit une variable qui va représenter un classeur
    Dim Wb As Workbook
    'Définit une variable qui va représenter une feuille de calcul
    Dim Ws As Worksheet
    'Définit une variable qui va représenter une cellule
    Dim Cell As Range
    Dim Coeff As Double
 
    'Boucle sur chaque classeur de l'application Excel
    For Each Wb In Application.Workbooks
        'Boucle sur chaque feuille de chaque classeur
        For Each Ws In Wb.Worksheets
 
            For Each Cell In Ws.Range("A1:L100")
 
                If IsNumeric(Cell.Value) And Not IsNull(Cell.Value) And (Cell.Value) <> "" Then Cell.Value = 2
 
          Next Cell
        Next Ws
    Next Wb

Pouvez-vous m'aider ?

Merci d'avance.

Daniel

Bonjour,

Si toute fois la cellule est au format monétaire ??
Code:

1 2 3 if Cell.NumberFormat = "#,##0.00 $" then 'Code end if
Citation:

If IsNumeric(Cell.Value) And Not IsNull(Cell.Value) And (Cell.Value) <> "" Then Cell.Value = 2

Tu peux replacer par

Code:

If IsNumeric(Cell.Value) And trim("" & Cell.Value) <> ""

Super ça fonctionne :ccool: