Bonsoir à tous et à toutes

Je sèche sur le sujet suivant.

Peut être que j'aurai pu attendre quelques semaines car je viens de m'inscrire pour 2 journées de formation VBA

Je souhaite filtrer les données apparaissant dans la listbox

Cette listbox présente 2 colonnes

Je souhaite que les données soient filtrées selon le critère suivant : seules apparaissent les lignes où le dernier caractère de la 2e colonne est un "D"


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
Private Sub UserForm_Initialize()
 
Dim fichier As String
Dim LastLig As Long
 
fichier = "e:\MaterBAse.xls"
 
Set Wbk = Workbooks.Open(fichier)
 
With Sheets("BASEliste").Range("AL3")
             Me.ListBox1.RowSource = Range(.Cells, .End(xlDown)(1, 2)).Address(External:=True)
End With
 
 
End Sub
Merci pour votre aide

Daniel S