Discussion :

[boisgontierjacques]

Il faudrait un échantillon du fichier.

Boisgontier

[goninph]

Bonjour,

J'ai trouvé une solution qui fonctionne à merveille, un peu basique mais ça fonctionne

Merci t bonne soirée

Philippe

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Dim f, choix()
 
Private Sub UserForm_Initialize()
'====================================================================================================
'Pour avoir toutes et que les lignes pleines dans la ListBox, sans plus, car la formule est considérées comme celule pleine
'Formule en colonne B =C1&" "&D1&" "&E1&" "&F1
    Dim Plage_cellules_pleines As Variant
 
Application.ScreenUpdating = False ' Désactive le changement des pages à l'écran lors de l'éxécution de la macro
 
'Vider toutes les cellules de  colonne A
        Sheets("Data Commission adresse").Select
            Columns("A:A").Select
                 Selection.ClearContents
 
 
        Plage_cellules_pleines = Application.CountA([C1:C65000]) 'Compte le nombre de cellules pleine dans la colonne C
            Range("B" & Plage_cellules_pleines).Select 'Selectionne la cellule B de la même ligne
                Range(Selection, Selection.End(xlUp)).Select 'Sélectionne la plage contre le haut
 
' Copie la plage et colle que les valeurs en colonne A et largeur de colonne automatique
        Selection.Copy
            Range("A1").Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
                        Columns("A:A").EntireColumn.AutoFit
'====================================================================================================
 
Sheets("Commandes").Select
 
   Set f = Sheets("Data Commission adresse")
      Set Rng = f.Range("A2:A" & f.[A65000].End(xlUp).Row) ' Sélectionne toutes les lignes non vide, pas de ligne vide à la fin du formulaire
 
   choix = Application.Transpose(Rng)
   Me.ListBox1.List = choix
 
     Me.TextBox1.SetFocus 'Place le curseur dans la textbox
 
Application.ScreenUpdating = True ' Résactive le changement des pages à l'écran lors de l'éxécution de la macro
 
End Sub
Private Sub TextBox1_Change()
   mots = Split(Trim(Me.TextBox1), " ") ' Permet une recherche multiple, taper les requêtes en séparant par un espace
   tbl = choix
   For i = LBound(mots) To UBound(mots)
     tbl = Filter(tbl, mots(i), True, vbTextCompare)
   Next i
   Me.ListBox1.List = tbl
End Sub
Private Sub ListBox1_Click()
  ActiveCell = Me.ListBox1 'Inscrit le texte dans la cellule active
  Unload Me
End Sub

[goninph]

Bonjour,

Comment faire pour fermer l'UserForm via le bouton ESC du clavier ?

Comment faire défiler la LisBox via la roulette de la souris ?

Merci et excellente journée

Philippe

[boisgontierjacques]

Bonjour,

Recherche intuitive multi-colonnes et plusieurs mots dans le désordre en PJ

Boisgontier

[goninph]

Bonjour,

Comment faire pour fermer l'UserForm via le bouton ESC du clavier ?

Comment faire défiler la LisBox via la roulette de la souris ?

Merci et excellente journée

Philippe

J'ai trouvé pour fermer l'UserForm via le bouton ESC du clavier :

Code :

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

1
2
3
4
5
'Pour fermer l'UserForm avec le bouton ESC, le CommandButton1 est caché au bas de l'UserForm
'La propriété Cancel du CommandButton1 doit être à TRUE
Private Sub CommandButton1_Click()
Unload Me
End Sub

Reste ma deuxième question :

Comment faire défiler la LisBox via la roulette de la souris ?

Bonne soirée

Philippe