Bonjour à tous.

J'ai une feuille de base reprennant tous mes documents et je souhaiterais afficher dans un userform comprenant une combobox et me permettant d'afficher les documents concernés par le choix dans la combobox.

Sachant qu'il faut considérer que le document appartient au choix si et seulement si la valeur correspond à la conne du choix est numérique et non nulle.

J'ai donc créé une listview cependant quand je fais un test, j'obtiens une listview qui reprend bien ems critères etc mais les lignes de sont pas complètes. Je n'ai pas non plus mes titres de colonnes.
Je vous mets en pj si possible un screen shot de ce que j'obtiens.

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
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
Private Sub Combobox1_change()
 
Dim Cell As Range
Dim X As Byte
Dim Derlig  As Integer
 
 
If ComboBox1 = "blablaaaaa" Then
 
    Derlig = Sheets("MIF").Range("A" & Application.Rows.Count).End(xlUp).Row
    Set sht = Sheets("MIF")
    'Les données sont dans MIF
    'La premiere ligne contient les entêtes.
    With ListView1
        With .ColumnHeaders
            .Clear
            .Add , , "Référence", 90
            .Add , , "Langue", 30
            .Add , , "Nom", 500
            .Add , , "Emplacement", 78
            .Add , , "Valide", 55
            .Add , , "Spécifique", 78
            .Add , , "MAJ", 90
            .Add , , "Ordre", 30
 
        End With
 
        'Les autres lignes contiennent les données
        For lig = 2 To Derlig
        If sht.Range("B" & lig) = "FR" And sht.Range("G" & lig) = "OUI" And IsNumeric(sht.Range("L" & lig)) And Not IsEmpty(sht.Range("L" & lig)) Then
             X = X + 1
            .ListItems.Add , , sht.Range("A" & lig)
            .ListItems(X).ListSubItems.Add , , sht.Range("B" & lig)
            .ListItems(X).ListSubItems.Add , , sht.Range("C" & lig)
            .ListItems(X).ListSubItems.Add , , sht.Range("F" & lig)
            .ListItems(X).ListSubItems.Add , , sht.Range("G" & lig)
            .ListItems(X).ListSubItems.Add , , sht.Range("H" & lig)
            .ListItems(X).ListSubItems.Add , , sht.Range("I" & lig)
            .ListItems(X).ListSubItems.Add , , sht.Range("L" & lig)
        End If
        Next
 
    End With
End If
End Sub
Merci pour votre aide.