recherche avec textbox

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:

---

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

---

Qu'est-ce qui te manque ? La recherche ? La manière de masquer Textbox2

Code:

---

Textbox2.visible = false

---

Précise ta demande.
A+

voici le code que j'ai tapé il me reste à remplir la listbox1 et aussi de marquer dans textbox2 si la valeur est différente de la colonne 5 écrire "non éxistant".

voilà

je joint une démo de ce que je veux faire , cela est plus explicite:

Citation:

---

Envoyé par stéphanie123

je joint une démo de ce que je veux faire , cela est plus explicite:

---

Bin...je ne trouve pas ça très explicite.
Si l'utilisateur choisis "P.C.F" on cherche toujours dans la colonne 5 ?
Peu importe la colonne de recherche, on copie dans la ListBox les valeurs de la colonne 5 ?
Dans ton fichier joint, il n'y a rien dans la colonne 5 :aie:

Donne un exemple concret d'une recherche et de ce qui doit apparaître dans la ListBox sinon on est reparti pour un échange interminable de questions/réponses

non le combobox sert seulement à s'orienté, il ne faut pas le prendre en compte.

je vais allez étape par étape

l'action que je veux faire au début

ce serait si la colonne 2 est égale à la valeur dans le textbox1 alors écrire dans texbox2 "Existant".
sinon si la colonne 2 n'est pas égal à la valeur dans texbox1 alors écrire dans texbox2 "NON éxistant".

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

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, 2) = TextBox1 Then TextBox2 = " EXISTANT " else:Texbox2<>""NON éxistant"   End If Next i End With

---

En même temps que cette égalité est vérifié il faut copié et collé les valeurs qui sont éxistante dans texbox2 dans la listbox1

j'espére que j'ai été plus claire, :(

Citation:

---

Envoyé par stéphanie123

En même temps que cette égalité est vérifié il faut copié et collé les valeurs qui sont éxistante dans texbox2 dans la listbox1

---

les valeurs de quelle colonne ? pas de la même colonne je suppose ?

non

par exemple si on rentre une valeur qui se trouve dans la colonne shémas 9S dans le texbox1 alors l faire apparaitre dans le texbox2 existant ou sinon non existant et faire apparaitre dans la listbox les valeurs de la colonne PCF .Et vis versa si on fait le contraire. Cela explique aussi l'utilité du combobox, il permet d'orienté sur se que l'on décide de recherché et de faire apparaitre soit une valeur dans shémas 9s soit PCF.

Cela devrait ressembler à ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

Private Sub Lancer_Click() Dim i As Integer, ColR As Byte, ColV As Byte Dim Colect As New Collection, Result As Boolean Result = False   If Me.TextBox1.Value = "" Then MsgBox "Veuillez préciser la donnée à rechercher", vbExclamation Exit Sub End If   If Me.ComboBox1.Value = "" Then MsgBox "Veuillez sélectionner le type de recherche", vbExclamation Exit Sub End If   Select Case Me.ComboBox1.Value Case "P.C.F" ColR = 3 ColV = 2 Case "Schémas 9S" ColR = 2 ColV = 3 End Select   With Sheets("Feuil4") For i = 2 To .Cells(Rows.Count, ColR).End(xlUp).Row If .Cells(i, ColR).Text = Me.TextBox1 Then Result = True Colect.Add .Cells(i, ColV).Text, CStr(.Cells(i, ColV)) End If Next i End With   If Result = True Then Me.TextBox2 = "EXISTANT" For i = 1 To Colect.Count Me.ListBox1.AddItem Colect.Item(i) Next Else Me.TextBox2 = "INEXISTANT" End If   End Sub

---

j'ai introduit ton code dans mon programme, mais quand je veux compilée j'ai une erreur dans cette partie là:

Code:

---

For i = 2 To .Cells(Rows.Count, ColR).End(xlUp).Row

---

j'ai beau vérifié tous le code mais je trouve pas ce qui bloque.

c bon merci fring , j'ai trouvé le pti Pb.