Valider toules les cellules d'une colonne

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

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:

---

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

Merci Didier. Je test et je te dis. :king:

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

Bonsoir Mimosa,

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

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

Code:

---

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.

Merci beaucoup Godzestla. Ca marches !!! :yaisse2::king: