VBA - Comparer 2 variables (Type mismatch)

Fermé

DarthLighter - Modifié le 12 juil. 2019 à 12:34
DarthLighter - 12 juil. 2019 à 14:57

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...
Je sais il n'arrive pas à les comparer à cause de leur type mais vu que R est déclaré en variant, je ne vois pas pourquoi il ne veut pas...

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 retour

A voir également:

VBA - Comparer 2 variables (Type mismatch)
2 ecran pc - Guide
Word numéro de page 1/2 - Guide
Find vba - Astuces et Solutions
3 bip long 2 bip court hp - Forum BIOS
Vba attendre 1 seconde ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

DarthLighter
12 juil. 2019 à 12:36

J'ai essayé un forçage de type mais là non plus, ça n'a pas fonctionné...

DarthLighter
12 juil. 2019 à 13:24

Vu que R est déclaré en variant, il ne devrait pas me poser de problème vu qu'il n'a pas de type précis...?

DarthLighter > DarthLighter
12 juil. 2019 à 14:57

Qqn saurait-il m'aider?

Discussions similaires

Voxbone ? qui est-ce ?

Bonjour,

J'ai reçu plusieurs appels aujourd'hui d'un n° de téléphone qui m'était inconnu (des numéros commençant par 09 48 ou 01 62 en général), après avoir recherché sur le net j'ai su qu'il s'agissait de VoxBone à Brussels. Je ne comprend pas comment ils peuvent me téléphoner alors que je suis à France télécom et orange et que je paie pour le stop secret, donc la personne devait se présenter.

Je me demande qui ils sont car, je n'ai rien compris. Y a T-il quelqu'un qui connait ? car j'étais absente et comment ils arrivent à passer outre "stop secret"

Merci pour l'explication

A vous lire Configuration: Windows 7 / Internet Explorer 9.0

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Erreur exécution 13 : incompatibilité de type

Bonjour,

Débutant sur Vba je rencontre une erreur d’exécution 13 au niveau de la ligne "If not application.intersect..."
Voilà mon code :
J'ai ajouté la première partie "Option explicit et dim" mais j'ai toujours une erreur dès que j'insère un ligne ou déplace une cellule sur ma feuille.

Option Explicit
Dim wsh As String
Dim sh As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C7")) Is Nothing And Target "" Then
wsh = Target
With Worksheets(wsh)
.Visible = True
.Activate
End With
Fo...

Great Teacher Onizuka SAISON 2

Bonjour A Tous !

Je Voudrais Savoir si la Saison 2 de GTO va arriver ou non .. Car on m'avais dis que après les vacances d'été 2010 elle sortirais .. Enfin Bref je suis au courant qu'il y a eu des problèmes mais bon voila ça fait extremement longtemps que j'attend la saison 2 et je trouve ça dommage si elle n'a pas lieu !

Dois je perdre espoir ou non ??

Merci d'avance a tous !

Configuration: Windows XP / Internet Explorer 7.0

Faiblesse des pokémon spectre

Bonjour,
qu'est ce que c la faiblesse des pokémon spectreConfiguration: Windows XP
Internet Explorer 7.0