Discussion :

[stéphanie123]

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

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Textbox2.visible = false

Précise ta demande.
A+

[stéphanie123]

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:

[fring]

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

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

[stéphanie123]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[fring]

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 ?