Comparer 2 variables (Type mismatch)

Bonjour à tous,

Je viens vers vous car j'essaye de comparer 2 variables mais j'ai un erreur de type mismatch...

Je ne vois pas très bien d'où ça peut venir...

Dim numCde
numCde = Val(TextBox1)

Dim R As Variant
R = Application.VLookup(numCde, CommandTable, 1, False)

If R <> numCde Then
MsgBox "ok"
Else
MsgBox "not ok"
End If

Je vous remercie d'avance pour vos retours

DarthLighter a écrit :

Bonjour à tous,

Je viens vers vous car j'essaye de comparer 2 variables mais j'ai un erreur de type mismatch...

Je ne vois pas très bien d'où ça peut venir...

Dim numCde  
numCde = Val(TextBox1)

Dim R As Variant
R = Application.VLookup(numCde, CommandTable, 1, False)

If R <> numCde Then
MsgBox "ok"
Else
MsgBox "not ok"
End If

Je vous remercie d'avance pour vos retours

Dim numCde ok mais quoi ? as string as integer ?

Ensuite : numCde = Val(TextBox1) c'est plutôt :

numCde = Textbox1.value

<> de en vba il vaut mieux inverser pour donner la condition si = à

Dim numCde  As String
numCde = TextBox1.value

Dim R As Variant
R = Application.VLookup(numCde, CommandTable, 1, False)

If R = numCde Then
MsgBox "Not ok"
Else
MsgBox "Ok"
End If

Bonjour Xmenpl,

Mon numCde est en fait un Integer.

Merci de tes conseils pour la comparaison

J'ai fait les modifications mais j'ai toujours un Type mismatch...

Dim numCde  As Integer
numCde = TextBox1.value

Dim R As Variant
R = Application.VLookup(numCde, CommandTable, 1, False)

If R = numCde Then
MsgBox "Not ok"
Else
MsgBox "Ok"
End If

Sans doute quand il ne trouve pas la valeur de R si le numéro n'est pas dans la liste.

Dim numCde  As Integer
numCde = TextBox1.value
Dim R As Variant

On Error GoTo messagefin
R = Application.VLookup(numCde, CommandTable, 1, False)

If R = numCde Then
MsgBox "Not ok"
Else

messagefin
MsgBox "Ok"
End If

Bonjour Xmenpl,

Merci de ton aide.

Cependant depuis que j'ai rajouté ces lignes là j'ai une erreur : Sub of Fonction not defined.

Je n'avait pas cette erreur avant...

Se pourrait-il que cela vienne du code que tu m'as donné?

Cdt.

DarthLighter a écrit :

Bonjour Xmenpl,

Merci de ton aide.

Cependant depuis que j'ai rajouté ces lignes là j'ai une erreur : Sub of Fonction not defined.

Je n'avait pas cette erreur avant...

Se pourrait-il que cela vienne du code que tu m'as donné?

Cdt.

Tu as bien un end Sub à la fin de ton code ? il sélectionne en jaune une ligne en particulier quand il y a l'erreur ?

Oui il y a en effet un End Sub à la fin de mon code.

Justement, c'est ça que je trouve bizarre car ce qui est surligné est le Sub ajout_Click()...

DarthLighter a écrit :

Oui il y a en effet un End Sub à la fin de mon code.

Justement, c'est ça que je trouve bizarre car ce qui est surligné est le Sub ajout_Click()...

L'évènement sub tu l'as écris toi même ou tu as utilisé bouton droit sur le "Bouton" et option "Code" ?

Difficile de voir plus sans fichier

L'événement sub s'est généré à la création du bouton.

Je sais que c'est dur sans fichier. Il faut que j'enlève les informations à caractère confidentiel et je ferais un partage.

Bonjour,

Voilà le fichier

Cdt.

Bonjour,

Dans les lignes de code sur le deuxième messagefin il manque deux points juste après.

On Error GoTo messagefin

...

messagefin:

Par ailleurs ta condition est inversée non ? si il trouve R=numCde alors il doit aller à messagefin

Bonjour,

Merci bcp !

Oui en effet ^^

Les conditions doivent être inversées.

Merci encore

Cdt.

DarthLighter a écrit :

Bonjour,

Merci bcp !

Oui en effet ^^

Les conditions doivent être inversées.

Merci encore

Cdt.

De rien c'est de ma faute en relisant mon post j'ai vu que j'avais oublié les " : "