XL 2016 VBA

[fredmo]

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

 

[dg62]

Bonjour Fredmo,

petit bout de code à adapter à tes besoins

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

 

[Dranreb]

Bonjour.
Si vous affectez préalablement la valeur de la colonne à la List de la ComboBox vous avez directement l'info par ComboBox1.MatchFound

 

[fredmo]

Bonjour.
Si vous affectez préalablement la valeur de la colonne à la List de la ComboBox vous avez directement l'info par ComboBox1.MatchFound

Bonjour et merci pour votre réponse si vous pouviez me donner un morceau du code cela m'aiderait beaucoup.

Cordialement

 

[Dranreb]

Ben ça, quoi :

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

 

[fredmo]

Ben ça, quoi :

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,