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

Question

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

ucfoutu · Accepted Answer

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.

NHenry · Answer

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

arbilus · Answer

Hehe :) . Merci ! En effet c'était bien ça: 

Cells(Li, C).Text <> consult1_ct.Value

Merci pour votre aide !

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

3 réponses

Votre réponse

Discussions similaires