Affichage tableau dans userform

Bonjour le forum ,je cherche une solution pour afficher mon tableau 2 dans mon userform ,mais je ne souhaite pas afficher la totalité ,simplement 5 ou 10 lignes avec un menu déroulant . Est-ce possible ? . Par avance je vous remercie

16fichier-de-calcul.zip (528.96 Ko)

J'ai tenté d'intégrer une listview dans USF mais je rencontre une erreur au démarrage mais je ne trouve pas la cause du problème !

12fichier-de-calcul.zip (532.42 Ko)

Bonjour

J'essaie de t'aider, je ne suis pas aussi malin qu'Excel, mais dans ta fonction show_data_in_listView

il y a une boucle: For c = F To 11

Excel et moi on se pose la question F c'est combien?

Tes données n'ont aucune entete....

Que faut il afficher dans la listview?

A+ François

Bonjour

Relire la chartre....

Une question=1 site

Question déjà posé sur autre site

A+ François

Bonjour François ,effectivement j'ai posé la question sur un autre site car je manquait de temps pour modifier mon fichier . J'ai trouvé l'erreur mais je galère avec les réglages de la listview et c'est la raison pour laquelle je vais surement revenir a une Listbox .Merci

Function show_data_in_listView()
    Dim r As Integer, c As Integer
    Dim lastrow As Long
    Dim li As Object
    ThisWorkbook.Sheets("Données").Activate
    lastrow = Sheets("Données").Cells(Rows.Count, 14).End(xlUp).Row
    With ListView1
        .View = lvwReport
        .CheckBoxes = False
        .FullRowSelect = True
        .Gridlines = True
        For c = 1 To 12
            With .ColumnHeaders
                .Add , , Sheets("Données").Cells(1, c), Sheets("Données").Cells(1, c).Width
                Worksheets("Données").UsedRange.EntireColumn.AutoFit
            End With
        Next c
        For r = 13 To lastrow
            Set li = .ListItems.Add(, , Cells(r, 1))
            For c = 6 To 18
                li.ListSubItems.Add , , Cells(r, c)
            Next c
        Next r
    End With
End Function
Rechercher des sujets similaires à "affichage tableau userform"