[VB6 -> VBA] [Problème] Conditions et type de variable [Résolu]

Signaler
Messages postés
93
Date d'inscription
dimanche 6 juin 2010
Statut
Membre
Dernière intervention
20 avril 2015
-
Messages postés
93
Date d'inscription
dimanche 6 juin 2010
Statut
Membre
Dernière intervention
20 avril 2015
-
Bonjour, j'ai un problème avec mon programme VBA. J'ai une condition avec une égalité:
Cells(Li, C).Value <> consult1_ct.Value .

Où consult1_ct est une liste déroulante comportant des numéros de contrats. Le problème c'est qu'il y a une erreur si le contrat ne comporte que des chiffres. En effet cela donnerait alors Cells(Li, C).Value <> "4508378" . Et je pense qu'il y a une erreur car cela aurait dû être Cells(Li, C).Value <> 4508378 .

Avec des lettres, on est plus sur du numérique, donc Cells(Li, C).Value <> "HJK4508378" fonctionne par exemple.

Ma question est donc de savoir comment je peux faire pour que cette condition fonctionne aussi avec des numéros de contrat que numériques.


Je vous remercie pour l'attention que vous portez à mon problème

3 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
229
Bonjour,
tout simplement : utiliser la propriété text au lieu de la propriété Value ===>>
ex :
If Cells(Li, C).text <> "4508378" then ....


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Messages postés
14733
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
12 octobre 2020
146
Bonjour,

Utilises CStr() pour forcer l'interprétation en String.

v----Signature--------v----------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site
Messages postés
93
Date d'inscription
dimanche 6 juin 2010
Statut
Membre
Dernière intervention
20 avril 2015

Hehe :) . Merci ! En effet c'était bien ça:

Cells(Li, C).Text <> consult1_ct.Value


Merci pour votre aide !