Microsoft 365 Userform filtre listbox

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

lesoldat9

XLDnaute Occasionnel
Bonjour à tous,

Une fois de plus je me tourne vers vous la team Excel,
j'aurai besoin aujourd'hui de filtrer ma listbox avec 3 ou 1 barre de recherche textbox selon mon besoin.

Je vous joins un fichier test.
 

Pièces jointes

Solution
fanch55
Le classeur a le Vbe protégé .
Mais je vois quand même le problème.
Certaines colonnes de la table ont un espace dans leur nom
Dans ce cas modifier le code pour en tenir compte en encadrant ces noms par des crochets :
VB: 
    If TextBox3 <> "" Then Where_String = Where_String & IIf(Where_String = "", "", " and ") & " [Ref Palette]='" & TextBox3 & "' "
( éviter de laisser des espaces en fin de champs aussi )
Trier par date Trier par votes
Le code ci-dessous va afficher le fichier supposé de ton classeur,
Peux tu me dire ce qu'il affiche ? ( nota: je suis absent ce jeudi après-midi )
VB: 
Public Function Get_Fields( _
        Target As Variant, _
        ByVal Select_String As String, _
        Optional ByVal Select_Base As String, _
        Optional Header As Boolean = False, _
        Optional Column_Widths As String = "-1") As Boolean
       
    Dim Base        As Object
    Dim Requete     As Object
   
    If InStr(1, ThisWorkbook.FullName, "https:", vbTextCompare) Then
        Fname = Environ("OneDrive")
        T = Split(ThisWorkbook.FullName, "/")
        For i = 4 To UBound(T)
            Fname = Fname & "\" & T(i)
        Next
    Else
        Fname = ThisWorkbook.FullName
    End If
    MsgBox "Fname=" & Fname

    Sql_Driver = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
                 "DBQ=" & Fname & ";READONLY=FALSE"
    If Select_Base = "" Then Select_Base = Sql_Driver
   
    On Error Resume Next
   
    Set Base = CreateObject("ADODB.Connection")
        Base.CursorLocation = 3 ' ne pas utiliser adUseClient ou adUseServer sinon renseigner les références vb
        Base.Open Select_Base
        Set Requete = CreateObject("ADODB.recordset")
            Requete.Open Select_String, Base
            Select Case True
            Case Err <> 0
                Get_Fields = False
                MsgBox "Erreur " & Err().Number & vbLf & Err().Description
            Case Requete.State = 0 ' Fermé <-- Update ou insert ou delete ( pas de retour ) "
                Get_Fields = True
            Case Requete.RecordCount = 0
                Get_Fields = False
            Case Else
                Get_Fields = True
                Select Case TypeName(Target)
                Case "ListBox", "ComboBox" ' Retour dans une Listbox
                    With Target
                        .Clear
                        .ColumnCount = Requete.Fields.Count
                        .ColumnWidths = Column_Widths
                        .Column = Requete.GetRows
                    End With
                 Case "Range"   ' une plage de cellules ou tableau excel
                        If Target.ListObject Is Nothing Then
                            If Header Then
                                For i = 0 To Requete.Fields.Count - 1
                                    Cells(Target.Row, Target.Column + i).Value = Requete.Fields(i).Name
                                    Cells(Target.Row, Target.Column + i).Interior.Color = 13553360
                                    Cells(Target.Row, Target.Column + i).Borders.LineStyle = xlDouble
                                Next
                                Set Target = Target.Offset(1)
                            End If
                        Else
                            If Not Target.ListObject.DataBodyRange Is Nothing _
                            Then Target.ListObject.DataBodyRange.Delete
                        End If
                        Target.CopyFromRecordset Requete
                 Case Else      ' Retour dans une variable tableau
                    Target = Requete.GetRows
                End Select
            End Select
            If Requete.State > 0 Then Requete.Close
        Set Requete = Nothing
        Base.Close
    Set Base = Nothing

End Function
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour
Désolé pour ce retour tardif j'avais pas vu ton retour.
ci joint ce que la formule affiche.
fanch55 à dit:
Le code ci-dessous va afficher le fichier supposé de ton classeur,
Peux tu me dire ce qu'il affiche ? ( nota: je suis absent ce jeudi après-midi )
VB: 
Public Function Get_Fields( _
        Target As Variant, _
        ByVal Select_String As String, _
        Optional ByVal Select_Base As String, _
        Optional Header As Boolean = False, _
        Optional Column_Widths As String = "-1") As Boolean
      
    Dim Base        As Object
    Dim Requete     As Object
  
    If InStr(1, ThisWorkbook.FullName, "https:", vbTextCompare) Then
        Fname = Environ("OneDrive")
        T = Split(ThisWorkbook.FullName, "/")
        For i = 4 To UBound(T)
            Fname = Fname & "\" & T(i)
        Next
    Else
        Fname = ThisWorkbook.FullName
    End If
    MsgBox "Fname=" & Fname

    Sql_Driver = "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
                 "DBQ=" & Fname & ";READONLY=FALSE"
    If Select_Base = "" Then Select_Base = Sql_Driver
  
    On Error Resume Next
  
    Set Base = CreateObject("ADODB.Connection")
        Base.CursorLocation = 3 ' ne pas utiliser adUseClient ou adUseServer sinon renseigner les références vb
        Base.Open Select_Base
        Set Requete = CreateObject("ADODB.recordset")
            Requete.Open Select_String, Base
            Select Case True
            Case Err <> 0
                Get_Fields = False
                MsgBox "Erreur " & Err().Number & vbLf & Err().Description
            Case Requete.State = 0 ' Fermé <-- Update ou insert ou delete ( pas de retour ) "
                Get_Fields = True
            Case Requete.RecordCount = 0
                Get_Fields = False
            Case Else
                Get_Fields = True
                Select Case TypeName(Target)
                Case "ListBox", "ComboBox" ' Retour dans une Listbox
                    With Target
                        .Clear
                        .ColumnCount = Requete.Fields.Count
                        .ColumnWidths = Column_Widths
                        .Column = Requete.GetRows
                    End With
                 Case "Range"   ' une plage de cellules ou tableau excel
                        If Target.ListObject Is Nothing Then
                            If Header Then
                                For i = 0 To Requete.Fields.Count - 1
                                    Cells(Target.Row, Target.Column + i).Value = Requete.Fields(i).Name
                                    Cells(Target.Row, Target.Column + i).Interior.Color = 13553360
                                    Cells(Target.Row, Target.Column + i).Borders.LineStyle = xlDouble
                                Next
                                Set Target = Target.Offset(1)
                            End If
                        Else
                            If Not Target.ListObject.DataBodyRange Is Nothing _
                            Then Target.ListObject.DataBodyRange.Delete
                        End If
                        Target.CopyFromRecordset Requete
                 Case Else      ' Retour dans une variable tableau
                    Target = Requete.GetRows
                End Select
            End Select
            If Requete.State > 0 Then Requete.Close
        Set Requete = Nothing
        Base.Close
    Set Base = Nothing

End Function
Cliquez pour agrandir...
 

Pièces jointes

  • Capture2.JPG
    Capture2.JPG
    63.2 KB · Affichages: 14
Vote positif 0 Vote négatif
Ok,
Peux-tu exécuter ce bout de code dans ton vbe et me dire ce qu'il affiche ?
VB: 
Sub OneFolder()
    Msgbox ">>" & Environ("Onedrive") & "<<"
End sub

Si rien n'est affiché, c'est que ce n'est pas un serveur Onedrive mais un Sharepoint online et là il faudra trouver une autre solution avec quelqu'un d'autre car je ne suis pas sous office 365 .
 
Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
Microsoft 365 Affichage , recherche et extraire des données .
Réponses
1
Affichages
151
vgendron
vgendron
A
  • Question Question
Microsoft 365 recherche ,remplissage userform
Réponses
3
Affichages
253
azzouziwalid
A
halecs93
  • Résolu(e)
XL 2016 Adapter hauteur d'un UserForm et d'un Listbox en fonction du contenu
Réponses
8
Affichages
237
halecs93
halecs93
A
  • Question Question
Microsoft 365 problème de remplissage de listbox
Réponses
8
Affichages
316
job75
job75
K
  • Résolu(e)
XL 2016 Filtre et affichage listbox
Réponses
9
Affichages
359
KRUG WOO
K
E
  • Résolu(e)
Microsoft 365 Filtre sur LISTBOX
2
Réponses
16
Affichages
1 K
eric72
E
halecs93
  • Résolu(e)
XL 2016 Obliger une saisie numéraire
Réponses
10
Affichages
237
halecs93
halecs93
K
  • Question Question
XL 2016 Modification dans userform et sheet
Réponses
13
Affichages
310
Valtrase
Valtrase
jcf6464
  • Résolu(e)
Microsoft 365 Userform Filtres ne fonctionne pas
2 3 4
Réponses
46
Affichages
1 K
jcf6464
jcf6464
D
  • Question Question
Microsoft 365 Filtrer sur la feuille 1 et que ce même filtre s'applique sur le feuil 2
Réponses
5
Affichages
241
desmonts
D
jeff1494
  • Résolu(e)
XL 2021 PB Alimentation Tableau structuré depuis un ListBox
2
Réponses
27
Affichages
765
jeff1494
jeff1494
E
  • Résolu(e)
Microsoft 365 Filtre avancé et Critère de Date
Réponses
4
Affichages
165
eric72
E
sousou
  • Question Question
XL 2010 gestion userform
Réponses
1
Affichages
252
Dranreb
Dranreb
jcf6464
  • Question Question
Microsoft 365 Filtre avec userform sur tableau structuré
2
Réponses
16
Affichages
500
jcf6464
jcf6464
J
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
416
TooFatBoy
TooFatBoy
K
  • Question Question
XL 2019 Créer des utilisateurs sur un fichier VBA
Réponses
9
Affichages
301
cathodique
cathodique
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
Dranreb
E
  • Résolu(e)
XL 2019 défiler listbox en même temps que textbox dans une frame
Réponses
5
Affichages
375
escudo
E
cathodique
  • Résolu(e)
XL 2010 Userform Plein Ecran VBA7
2
Réponses
16
Affichages
518
cathodique
cathodique
jeff1494
  • Question Question
XL 2021 Ajout de zones dans un USF par VBA
2
Réponses
16
Affichages
446
jeff1494
jeff1494
Retour