Discussion :

[Mimosa777]

Bonjour a tous et a toutes,

je possede une feuille avec plusieurs colonnes. Je desire simplement verifier que toutes les cellules de la colonne 3 soit des chiffres (entier ou double) mais pas d'autres caracteres, sinon j'affiche un message d'erreur

P.S : le formatage de mes cellules sont tous monetaires tel que $555.99, $333.56, etc...

Pouvez-vous me donner une piste svp ?

Merci

[DidierLoche]

Bonsoir,

Il te suffit de balayer les cellules de colonne C et de tester si c'est un nombre avec IsNumber, par exemple comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub verif()
ligne = 1
Do While Cells(ligne, 3) <> ""
    If Application.WorksheetFunction.IsNumber(Cells(ligne, 3)) = False Then
        MsgBox "Erreur à la ligne " & ligne
        Rows(ligne).Select
    End If
    ligne = ligne + 1
Loop
End Sub

Didier

[Mimosa777]

Merci Didier. Je test et je te dis.

[Mimosa777]

Bonjour Didier,

la procedure fonctionne bien sauf lorsqu'il y a une cellule vide dans la colonne. Il repere bien les cellules non numeriques mais des qu<il y a une cellule vide, il arrete et ne continue pas la validation des autres cellules en dessous. Ya t-il un moyen de dire a la macro de parcourir toute la colonne meme lorsqu'il voit une celulle vide (il faut simplement ne pas en tenir compte)

merci pour l'aide

[Godzestla]

Bonsoir Mimosa,

le procédure de didier est faite pour s'arrêter à la première cellule vide, ce qu'elle fait apparement bien.

Si tu veux balayer la colonne J jusqu'en bas, ou jusqu'à trouver une erreur, il faut limiter la boucle autrement :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub verif()
For Each cell In Range(Range("C65536").End(xlUp), Range("C2"))
    ligne = cell.Row
    If Application.WorksheetFunction.IsNumber(cell) = False And cell <> "" Then
        MsgBox "Erreur à la ligne " & ligne
        Exit For
    End If
Next cell
End Sub

Dans ce code, je suppose que en C1 il y a le titre de la colonne.

[Mimosa777]

Merci beaucoup Godzestla. Ca marches !!!