Discussion :

[Shadam]

Bonjour tout le monde,

J'ai un petit souci sur un test :

Code :

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

If DGVParametres.Rows.Item(DGVParametres.Rows.Count - 1).Cells.Item("code").Value.ToString.ToLower <> ("logo" Or "produit" Or "langue") Then

En déboguage visual me dit :

La conversion de la chaîne "test" en type 'Double' n'est pas valide.

et je ne comprends pas bien pourquoi, est ce mon test qui n'est pas bon?

[Pol63]

je voterais pour le "a" or "b" or "c"
or sert à additionner des nombres au niveau binaire
enfin dans tous les cas on ne peut pas écrire si simplement si une chaine <> une chaine ou une autre
il faut faire une chaine <> une chaine or une chaine <> une autre chaine
ou éventuellement faire une collections de chaine à tester et utiliser contains

[asmduty]

Je ne suis pas sur de ma réponse, mais je te propose de vérifier :

Code :

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

1
2
3
Dim mavaleur as string = DGVParametres.Rows.Item(DGVParametres.Rows.Count - 1).Cells.Item("code").Value.ToString.ToLower
 
If mavaleur <> "logo" and mavaleur <> "produit" and mavaleur <> "langue" Then

Il me semble en effet que l'on ne peut pas spécifier une liste de valeurs entre parenthèses comme tu l'as fait.


EDIT : Mis trop de temps à répondre, mais même avis que la personne du dessus, ce qui semble confirmer l'origine du problème.

[Shadam]

ok c'est bon merci de vos réponses

Code :

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

1
2
3
4
 
If Not (DGVParametres.Rows.Item(DGVParametres.Rows.Count - 1).Cells.Item("code").Value.ToString.ToLower <> "logo" Or
                DGVParametres.Rows.Item(DGVParametres.Rows.Count - 1).Cells.Item("code").Value.ToString.ToLower <> "produit" Or
                        DGVParametres.Rows.Item(DGVParametres.Rows.Count - 1).Cells.Item("code").Value.ToString.ToLower <> "langue") Then

[Pol63]

Code :

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

1
2
dim valeurdgv as string = DGVParametres.Rows.Item(DGVParametres.Rows.Count - 1).Cells.Item("code").Value.ToString.ToLower
If {"logo", "produit", "langue"}.Contains(valeurdgv) Then

plus lisible

[Shadam]

Oui mais finalement j'ai fait un mix de vos 2 solutions

Code :

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

1
2
Dim monCode As String = DGVParametres.Rows.Item(DGVParametres.Rows.Count - 1).Cells.Item("code").Value.ToString.ToLower
        If Not (monCode = "logo" Or monCode = "produit" Or monCode = "langue") Then

encore merci