Combobox efface textbox

Bonjour

Je viens vers vous car j'ai un petit problème j'ai une combobox qui s'alimente avec la colonne des noms donc quand je tape une lettre si il existe il me rempli et rempli les autres textbox

Je voudrais que si le nom n'existe pas il puisse effacer les autres textbox exemple si je tape la lettre D il me présente Dupont ce qui est normal car il existe dans tableau

mais par exemple si je rajoute ensuite la lettre A par exemple pour Dallas je voudrais qu'ils puissent effacer les autres texbox

s'il vous plaît

En remerciant d'avance

Bonjour

Un essai à tester. Te convient-il ?

Private Sub ComboBox1_Change()

Dim Fin As Integer
    Fin = Feuil1.Range("B" & Rows.Count).End(xlUp).Row
            If Me.ComboBox1.Value <> "" Then
                    For ligne = 2 To Fin
                        If Feuil1.Cells(ligne, 2).Value = Me.ComboBox1.Value Then
                            Me.Label5.Caption = Feuil1.Cells(ligne, 1).Value
                            Me.TextBox1.Value = Feuil1.Cells(ligne, 3).Value
                            Me.TextBox2.Value = Feuil1.Cells(ligne, 4).Value
                        Else
                            Me.Label5.Caption = "" ' Feuil1.Cells(ligne, 1).Value
                            Me.TextBox1.Value = "" 'Feuil1.Cells(ligne, 3).Value
                            Me.TextBox2.Value = "" 'Feuil1.Cells(ligne, 4).Value
                        End If
                    Next ligne
                Else
                    If Me.ComboBox1.Value <> Feuil1.Range("B" & Rows.Count).End(xlUp).Row Then

                                Me.Label5.Caption = Clear
                                Me.TextBox1.Value = Clear
                                Me.TextBox2.Value = Clear
            End If
End Sub

Bye !

voilà réponse valide

Dim Fin As Integer

    Fin = Feuil1.Range("B" & Rows.Count).End(xlUp).Row

            If Me.ComboBox1.Value <> "" Then
                 Me.Label5.Caption = Clear
                 Me.TextBox1.Value = Clear
                 Me.TextBox2.Value = Clear
                    For ligne = 2 To Fin

                        If Feuil1.Cells(ligne, 2).Value = Me.ComboBox1.Value Then
                            Me.Label5.Caption = Feuil1.Cells(ligne, 1).Value
                            Me.TextBox1.Value = Feuil1.Cells(ligne, 3).Value
                            Me.TextBox2.Value = Feuil1.Cells(ligne, 4).Value
                        End If

                    Next ligne

            End If

merci à vous!