Discussion :

[CaraLePoke]

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 :

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

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.

[Philippe Tulliez]

Bonjour,
Avec cette syntaxe cela irait beaucoup mieux

Code :

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

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

[fring]

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 ?

[CaraLePoke]

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

[fring]

teste ceci :

Code :

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

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

[CaraLePoke]

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

Code :

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

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 :

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

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.