Listbox avec des cases à cocher

Bonjour,

Je viens de créer un USF et j'aimerais pouvoir le développer

J'aimerais pouvoir lister le contenu du dossier "C:\Ronibo\Facture" dans la listbox puis mettre des cases à cocher à coté de chaque fichier.

Ce qui me permettra de sélectionner les fichier voulu.

Merci m'avance

Je joint un fichier exemple à extraire dans c:/ s'il vous plaît

https://www.cjoint.com/c/CIEspmJlD1C

A+

Bonsoir,

A mettre dans le module de la Form :

Private Sub UserForm_Initialize()

    Dim Fichier As String
    Dim Chemin As String

    Chemin = "C:\Ronibo\Facture\"

    Fichier = Dir(Chemin)

    With Liste
        Do While (Len(Fichier) > 0)

            Liste.AddItem Fichier

            Fichier = Dir()

        Loop

        .MultiSelect = 1
        .ListStyle = 1

    End With

End Sub

Hervé.

Bonsoir,

merci beaucoup

On peut rajouter un msgbox lorsque j'appuie sur le bouton "créer l'attestation de tva"

En faite je souhaiterais ajouter un message lorsque il n'y a pas de fichier sélectionné et qu'on appuie sur le bouton

Un message comme,

Veuillez sélectionner au moins une facture pour faire l'attestation de TVA

Merci encore

a+