Discussion :

[nacereddine.mourad]

Bonjour à tous

Information : la CommandButton4 recherche le mot écrit dans toute la feuille BDD, marche très bien.
Problématique : Les doublons dans ListBox1.
Solution idéel : enlever les doublons mais en basson sur la colonne A de la feuille BDD.

Pour afficher l’Userform1 : feuille Mouvementmatériels ---- Bouton La saisie, dans la Textbox taper a.

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
23
24
25
26
27
28
29
30
31
Private Sub CommandButton4_Click()
 
Dim Prem As String
Dim c As Range
 
With Me.ListBox1
    .Clear
    .ColumnCount = 2
    .BoundColumn = 2
    .ColumnWidths = "0;150"
End With
 
With Worksheets("BDD").UsedRange
    Set c = .Find(Me.TextBox14, LookIn:=xlValues, Lookat:=xlPart)
    If Not c Is Nothing Then
        Prem = c.Address
        Do
            With Me.ListBox1
                .AddItem c.Row
                .List(.ListCount - 1, 1) = c.Offset(, 2 - c.Column)
            End With
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> Prem
    End If
End With
 
If ListBox1.ListCount = 0 Then
MsgBox "Ce matériel n'existe pas dans la base de données"
End If
 
End Sub

Je vous remercie infiniment pour votre attention

[EricDgn]

Dans la routine CommandButton4_Click(), il convient de mieux spécifier la plage dans laquelle la recherche doit s'effectuer.

Code :

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

1
2
'With Worksheets("BDD").UsedRange        '--- UsedRange = A1:G11
With Worksheets("BDD").Range("B3:B11")   '--- la plage 'Descriptions'

Même problème sans doute au niveau de la TextBox2 (personnel)

Note: il est possible de changer les noms des différents contrôles en modifiant leurs (Name) dans la fenêtre Propriétés.

Bonne continuation.

[nacereddine.mourad]

Désoler de répondre aussi tardivement, merci EricDgn main ton code cherche uniquement dans la colonne A

l'idéal est de trouver le mot dans toute la feuille (c'est fait), et sans doublons.
par exemple dans la colonne A est écrit zz, dans B est écrit zz10; dans mon code le résultat s’affiche 2 fois dans ListBox1 si je cherche zz