Choix liste

Bonjour à tous,

je voudrais savoir comment effacer les valeurs de mes TextBox si le nom introduit n'es pas présent dans combo Choixlist_Click.

J'ai écrit de petit code qui fonctionne bien mais si l'utilisateur n'est pas présent les données avec l'utilisateur précédent restent dans les Combo et TextBox

Private Sub UserForm_Initialize()
   Set f = Sheets("SUPPLAGR")
   Me.ChoixNom.List = f.Range("f3:f" & f.[f65000].End(xlUp).Row).Value
   Me.ChoixNom.ListIndex = 0
End Sub

Private Sub ChoixNom_Click()
   ligne = f.[f3:f65000].Find(ChoixNom, LookIn:=xlValues).Row
   Me.Societe = f.Cells(ligne, 5)
   Me.nom = f.Cells(ligne, 6)
   Me.conf = f.Cells(ligne, 8)

Je joints le fichier au cas où mes explications seraient pas très claires.

Je suis vraiment débutant et toute votre aide serait appréciée, merci

Bonne journée

Bonjour Marcel, et bienvenue sur le Forum,

Marcel Dehousse a écrit :

je voudrais savoir comment effacer les valeurs de mes TextBox si le nom introduit n'es pas présent dans combo Choixlist_Click.

Il vaux mieux faire la recherche dans la source de ta ComboBox que dans la ComboBox elle même :

Private Sub ChoixNom_Change()
Dim c As Range
Set c = Sheets("SUPPLAGR").Columns(6).Find(ChoixNom.Value)
If c Is Nothing Then
    ChoixNom = ""
    nom = ""
    nom2 = ""
    Societe = ""
    MsgBox "Le nom saisie est inconnu", vbCritical
End If
End Sub

A chaque saisie dans ta ComboBox "ChoixNom" une recherche s'éxécute dans la colonne F de la Feuil SUPPLAGR, et si elle ne ressort aucun résultat, alors l'utilisateur est en train de saisir un nom inconnu à la liste

Un message d'erreur apparaît, et les TextBox sont remise à blanc

Je te laisse tester et revenir vers nous

Bonjour Juice,

cela fonctionne très bien.

Réponse super rapide et efficace, un grand merci

Bonne journée

Bien à toi

Marcel