Utilisation de NumberFormat

Bonjour à tous,

je m'arrache les cheveux sur cette problématique pourtant simple...

Dans une colonne, je veux m'assurer qu'il n'y a que des chiffres avec le format X,XX (si il y a autre chose, quoique ce soit, je vide la cellule)

du coup je tente d'utiliser NumberFormat de cette façon:

Code:

---

If NumberFormat.(Cells(ligne, colbarre)) <> "0,00" Then Cells(ligne, colbarre).Value = ""

---

ça ne marche pas du tout, et je ne trouve pas comment utiliser NumberFormat comme condition.

Je doute même que cela fonctionne mais j'aimerai réussir à le tester.

D'avance merci pour votre aide.

Bonjour,
Avec cette syntaxe cela irait beaucoup mieux

Code:

---

If Cells(ligne, colbarre).NumberFormat <> "0.00" Then Cells(ligne, colbarre).Value = ""

---

Bonjour,

En effet ça ne fonctionnera pas, tu peux avoir ta cellule au format "0,00" et avoir du texte comme contenu.

Si je comprend bien :
2,5 c'est bon ?
1936,35 c'est bon ?
50 c'est pas bon, il faut supprimer ?
12,125 c'est pas bon, il faut supprimer ?

@corona: merci, je l'avais pris de travers :) ça marche déjà mieux comme ça.

@fring: en fait, ça marche. Si je met du texte, il le retire bien. Par contre, il efface aussi certaines de mes valeurs. En fait non, je ne checkais pas toutes le lignes -_-

C'est une colonne de prix, donc, tous les chiffres avec 2 chiffres après la virgule sont valident. pour reprendre tes exemples.
sont valident: 2,5 ; 1936,35 ; 50
n'est pas valide: 12,125

je pense que numberformat n'est pas la bonne solution... je vais chercher autre chose, si vous avez des idées, je suis preneur ^^

teste ceci :

Code:

---

1 2 3 4 5 6 7

If IsNumeric(Cells(ligne, colbarre)) Then If InStr(Cells(ligne, colbarre), ",") > 0 Then If Len(Split(Cells(ligne, colbarre), ",")(1)) > 2 Then Cells(ligne, colbarre) = "" End If Else Cells(ligne, colbarre) = "" End If

---

J'en étais un peu au même point que toi:

Code:

---

1 2	If Right(Cells(ligne, colbarre), Len(Cells(ligne, colbarre)) - InStr(",", Cells(ligne, colbarre))) > 2 Then Cells(ligne, colbarre).Value = ""

---

ça n'est pas fonctionnel... ils a des erreurs là dedans

mais j'ai finalement utiliser split comme tu le suggère et c'est bien mieux:

Code:

---

1 2 3 4 5 6

For ligne = 2 To LigneFin If Not IsNumeric(Cells(ligne, colbarre)) Then Cells(ligne, colbarre).Value = "" If InStr(Cells(ligne, colbarre), ",") > 0 Then If Len(Split(Cells(ligne, colbarre), ",")(1)) > 2 Then Cells(ligne, colbarre).Value = "" End If Next

---

problème réglé, merci Fring et Corona,
Bonne continuation.