Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion fredmo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fredmo

XLDnaute Nouveau
Bonjour,
Je n'arrive pas à résoudre un pb VBA, j'utilise un userform pour remplir une base de données à chauqe ligne correspond un code que je demande de rentrer dans une combobox, cependant je n'arrive pas vérifier que le code est déjà existant et avertir l'utilisateur.
Merci pour votre aide
 
Bonjour Fredmo,

petit bout de code à adapter à tes besoins

VB:
Sub ComboBox1_Change()
valeurcherchée = ComboBox1.Value
'Range à adapter en fonction du tableau réel
Ref = Application.WorksheetFunction.VLookup(valeurcherchée, Sheets("Tarif").Range("A1:C56"), 2, False)

If IsError(Ref) Then
    MsgBox "Valeur inexistante"
Else
   Msgbox "La valeur existe"

End If

End Sub
 
Ben ça, quoi :
VB:
Sub ComboBox1_Change()
If ComboBox1.MatchFound Then
   Msgbox "La valeur existe"
 Else
   MsgBox "Valeur inexistante"
   End If
End Sub
Rappel: la liste de la ComboBox doit être définie. Si ce sont des nombres et si la frappe doit pouvoir les reconnaitre il peut être nécessaire de les convertir préalablement en textes avant de les affecter à ComboBox1.List
 
Merci beaucoup, je vais tester pour voir si cela marche.

Cordialement,
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
223
Réponses
5
Affichages
391
Réponses
3
Affichages
153
Réponses
9
Affichages
207
  • Question Question
Autres Code VBA
Réponses
11
Affichages
257
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…