Discussion :

[Daniel MOREAU]

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 :

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

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Tu peux replacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Daniel MOREAU]

Super ça fonctionne