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

Résolu
arbilus Messages postés 93 Date d'inscription dimanche 6 juin 2010 Statut Membre Dernière intervention 20 avril 2015 - 4 avril 2013 à 13:36
arbilus Messages postés 93 Date d'inscription dimanche 6 juin 2010 Statut Membre Dernière intervention 20 avril 2015 - 4 avril 2013 à 14:33
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

ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 212
4 avril 2013 à 14:24
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.
3
NHenry Messages postés 15083 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 19 septembre 2023 159
4 avril 2013 à 14:01
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
0
arbilus Messages postés 93 Date d'inscription dimanche 6 juin 2010 Statut Membre Dernière intervention 20 avril 2015
4 avril 2013 à 14:33
Hehe :) . Merci ! En effet c'était bien ça:

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


Merci pour votre aide !
0
Rejoignez-nous