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
Partager