ListBox filtrer et exporter sur nouveau fichier Excel

bonjour à tous,

j'ai suivi des tutoriels sur les créations des ListBox mais je me suis perdu au milieu, cependant je fais recours aux experts du métier comme d'habitude pour une résolution parfaite

d'abord, j'ai une base de données que je veux afficher sur ListBox et faire des filtres, mais le plus important de ces filtres c'est l'intervalle de la date (date début a la date fin) les autres filtres on peut les laisser comme il est sur la présente ListBox ou bien faire seulement deux champs : - un de critère de recherche et l'autre de champs de recherches
je crois le deuxième choix il me paraît plus efficace
ainsi après le filtrage je voulais exporter les données filtres sur un nouveau fichier Excel

un autre petit problème, c'est quand je fais supprimer toutes la ligne un message d'erreur d'exécution '13' m'apparaitre car il y a des macros sur la feuille pour ajustement des informations

NB: mon tableau dans le fichier ci-joint est extrais d'un fichier ou il y a d'autres feuilles notamment avec des codes VBA, a force de confidentialité j'ai mis que la forme avec des valeurs proche de l'originale

je vous remercie d'avance

Hello,

J'ai pas tout compris cette histoire de filtre ...

J'ai corrigé quelques bug sur ta listbox et sur ton evènement de feuille :

Sub AlimenterListbox()

Dim ws_1 As Worksheet
Dim Lr As Long
Dim Compteur As Integer
Dim Ligne As Integer
Dim colonne As Integer
Dim Tablo() As String

Set ws_1 = ThisWorkbook.Sheets("RECAP")
Lr = ws_1.Range("A" & Rows.Count).End(xlUp).Row

If Lr = 4 Then
    Set ws_1 = Nothing
    Exit Sub
End If

Compteur = Lr - 4
Counter = Lr - 4

ReDim Tablo(Counter, 17)

For Ligne = 5 To Counter + 4
    For colonne = 1 To 17
        Tablo(Ligne - 4, colonne) = ws_1.Cells(Ligne, colonne).Value
    Next colonne
Next Ligne

Me.ListBox1.Clear
Me.ListBox1.List = Tablo

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

Dim col_D As Range
Dim col_P As Range
Dim Derlig&, i&, RechZone As Range, Ws As Worksheet

Set col_P = Feuil5.Range(Feuil5.Cells(5, 17), Feuil5.Cells(9999, 17))
Set col_D = Feuil5.Range(Feuil5.Cells(5, 5), Feuil5.Cells(9999, 5))
Set Ws = ThisWorkbook.Sheets("RECAP")

If Target.Count = 1 Then
    Derlig = Ws.Range("G" & Rows.Count).End(xlUp).Row
    Set RechZone = Ws.Range("G5:G" & Derlig)
    With Ws
        For i = Derlig To 2 Step -1
            If WorksheetFunction.CountIf(RechZone, .Range("G" & i)) > 1 Then
                .Range("G" & i).Value = .Range("G" & i).Value & ".bis"

                    ElseIf Target.Value = "ommerciale" Then
                    Target.Value = "SVC"
                    ElseIf Target.Value = "Uniquement pour Douane" Then
                    Target.Value = "pr Douane"
                    Else: Exit Sub
                Debug.Print mymodule

        End If
        Next
    End With
End If
Set Ws = Nothing

Debug.Print mymodule

End Sub

Merci RAG02700

Mais le plus important c’est les filtres par date de début et de fin aussi un autre filtre par caractère

Encore exporter la résultât de filtre sur un nouveau fichier

Bref ma listbox manque de tout 😕

Quelqu’un peux m’aider pour compléter ma ListBox

- Filtrer données par caractère et par date de début et fin

- Exporter le résultat des filtres vers un nouveau fichier excel

- Nombre de ligne sur la ListBox

Merci.

Bonjour,

Pourriez-vous svp me porter une réponse !!!

y a t'il une attention a ma demande !!!