Vidé les textes box et autres en fonction de la combobox

[Arnaud_Dubarre]

Bonjour à tous,

Je viens vers vous car j’ai un petit souci et je n’arrive pas à trouver la solution dans mon formulaire dans la combobox qui reçois les noms des tableaux cela me permet de chercher des tableaux mais aussi de rentrer des nouveaux tableaux.

Voilà mon problème quand je rentre les premières lettres de mon nouveau tableau il me propose ce qu’il y a dans la liste déjà et me remplit les autres éléments style texbox et label si besoin mon problème est que si je mets un nom qui n’est pas dans la liste je voudrais qu’il vide les autres

comment cela est-il possible s’il vous plaît en vous remerciant d’avance.

Gestion_Tableaux_v002.xlsm (61,2 Ko)

[FFO]

Bonjour

Ci-joint ton fichier adapté
Testes et dis moi

Gestion_Tableaux_v003.xlsm (60,2 Ko)

[Arnaud_Dubarre]

bonjours merci tes trop fort par contre tu me détaillé à quoi sert trouve = ok et if trouve stp

For ligne = 2 To fin
    
        If Sheets("BDDtableaux").Cells(ligne, 5).Value = Me.ComboBox1.Value Then
        
            Me.Lblid.Caption = Sheets("BDDtableaux").Cells(ligne, 1).Value 'ID
            Me.TextBox1.Value = Sheets("BDDtableaux").Cells(ligne, 3).Value
            Me.TextBox2.Value = Sheets("BDDtableaux").Cells(ligne, 4).Value
            Me.ComboBox2.Value = Sheets("BDDtableaux").Cells(ligne, 6).Value
            Me.ComboBox3.Value = Sheets("BDDtableaux").Cells(ligne, 7).Value
            Me.ComboBox4.Value = Sheets("BDDtableaux").Cells(ligne, 8).Value
            Me.TextBox3.Value = Sheets("BDDtableaux").Cells(ligne, 9).Value
            Me.TextBox4.Value = Sheets("BDDtableaux").Cells(ligne, 10).Value
            Me.TextBox5.Value = Sheets("BDDtableaux").Cells(ligne, 11).Value
            Me.ComboBox5.Value = Sheets("BDDtableaux").Cells(ligne, 12).Value
            Me.TextBox6.Value = Sheets("BDDtableaux").Cells(ligne, 13).Value
            Me.Image1.Picture = LoadPicture(Sheets("BDDtableaux").Cells(ligne, 14).Value)
        trouve = "OK"

        End If

Next
If trouve = «  » Then
Me.Lblid.Caption = Sheets(« BDDtableaux »).Cells(ligne, 1).Value 'ID
Me.TextBox1.Value = «  »
Me.TextBox2.Value = «  »
Me.ComboBox2.Value = «  »
Me.ComboBox3.Value = «  »
Me.ComboBox4.Value = «  »
Me.TextBox3.Value = «  »
Me.TextBox4.Value = «  »
Me.TextBox5.Value = «  »
Me.ComboBox5.Value = «  »
Me.TextBox6.Value = «  »
Me.Image1 = «  »
End If

[FFO]

J’ai mis une variable « trouve » à nulle au départ du traitement
Si celle-ci reste à nulle et ne prend pas la valeur si un enregistrement est trouvé (ici j’ai opté pour « OK » mais on pouvais mettre n’importe quelle valeur autre que nulle « toto » « tata » « tutu » etc…) je vide l’ensemble des textbox combobox et image

Voilà pour l’explication

Tu peux si tu le souhaites lorsqu’un enregistrement est trouvé changer la valeur de la variable à ta convenance l’essentiel étant qu’elle ne reste pas à nulle

[Arnaud_Dubarre]

d’accord je comprend merci de l’explication cordialement sujet clos