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