Discussion :

[typhoon751]

Bonjour à tous,

je débute en vba, j'ai récupéré un code qui me permet de faire une recherche entre 2 dates.
Je voudrais afficher les lignes des cellules retournées dans ma listbox.
Càd: mon tableau comprend un champs "nom", "prenom",...et "date" et je voudrais que quand je boucle sur la colonne 3(celle de mes dates), j'affiche dans ma listbox toutes les lignes correspondant aux dates trouvées

si quelqu'un pourrait m'aider svp, merci d'avance, voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Dat1 As Date, Dat2 As Date, i As Long
 
Dat1 = Me.TextBoxDate1
Dat2 = Me.TextBoxDate2
 
With Sheets("base")
    For i = 2 To .Cells(Rows.Count, 3).End(xlUp).Row '<-- boucle sur la 3ème colonne, de la ligne 2 à la dernière ligne
        If .Cells(i, 3) >= Dat1 And .Cells(i, 3) <= Dat2 Then
            'procédure de remplissage de la listbox
        End If
    Next
End With

cordialement,

typhoon

[Jean-Philippe André]

Salut,

l'ajout d'element dans une listbox passe par la methode AddItem

L'aide en ligne donne des exemples faciles a suivre.

Reste a savoir si tu veux ajouter une seule colonne ou plusieurs dans ton code