bonjour,

j'ai une boite de dialogue qui me permet d'intérroger ma base de donnée situé en feuil4 de mon programme.
Un combobox1 permet d'orienté l'utilisateur vers 3 choix possible.
un textbox1 permet de saisir la requête.

si la colonne 5 de la feuil4 est identique à la requête "texbox1" alors textbox2 ="Existant" et copie dans listbox1 sans doublons les données trouvées colonne 5 feuil4.Sinon si la colonne 5 est diférente de la la reqûête textbox1 alors textbox2="non existant".

le programme que j'ai réussi à faire me permet seulement d'interroger la base de donnée et d'afficher dans textbox2=le résultat de la requête.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub UserForm_Initialize()
    'Titre dans la liste déroulante
    With ComboBox1
        .AddItem "P.C.F"
        .AddItem "Shémas 9S"
        .AddItem "Actionneur"
    End With
End Sub
 
Private Sub Valider_Click()
    Dim Valx, i As Integer
    Valx = Me.ComboBox1.Value
 
      With Sheets("Feuil4")
       For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
       If .Cells(i, 5) = TextBox1 Then
       TextBox2 = "     EXISTANT   "
 
       End If
       Next i
  End With
End Sub