XL 2019 Actualisation ListView

[MedAliS]

Bonjour

Je viens de faire une base de données, mais après l’avoir achevé je m'aperçois que la ListView n'affiche pas les données que j'ai déjà saisie, sauf si je rajoute de nouvelles données
Je voudrais savoir s’il y a une procédure pour affichée les données de ma base de données sur la listeView au lancement de la UserForm.

Merci

 

[ChTi160]

Bonsoir MedAlis
Bienvenue
Sans un fichier exemple de ce que tu as et de ce que tu veux (sans données confidentielles)
tu n'auras pas de réponse .
jean marie

 

[MedAliS]

Bonsoir MedAlis
Bienvenue
Sans un fichier exemple de ce que tu as et de ce que tu veux (sans données confidentielles)
tu n'auras pas de réponse .
jean marie

Bonsoir

ci-joint le ficher, c'est mon premier code VBA un peut compliquée j’espère qu'il est réussie

 

[ChTi160]

Bonjour MedAlis
Il manque toujours quelque chose ! Lol
Bonne journée
Jean marie

 

[MedAliS]

Bonjour MedAlis
Il manque toujours quelque chose ! Lol
Bonne

 

[ChTi160]

Re
je vois que nous ne nous comprenons pas , dommage !
je quitte ce post !
Bonne continuation
jean marie

 

[MedAliS]

désolé pour l'erreur
😇😇😇

 

[ChTi160]

Re
ce que j'ai modifié et semble répondre a la demande

 Lr = f.Range("A" & Rows.Count).End(xlUp).Row        
        If Lr = 1 Then Exit Sub 'J'ai mis 1 au lieu de ligne 2          
        Ligne = 1
        For Each c In f.Range("A2:A" & Lr)
        'If Lr = 2 Then Exit Sub 'isolé car double emploi à supprimer'
            .ListItems.Add , , c

jean marie

 

[MedAliS]

Re
ce que j'ai modifié et semble répondre a la demande

 Lr = f.Range("A" & Rows.Count).End(xlUp).Row       
        If Lr = 1 Then Exit Sub 'J'ai mis 1 au lieu de ligne 2         
        Ligne = 1
        For Each c In f.Range("A2:A" & Lr)
        'If Lr = 2 Then Exit Sub 'isolé car double emploi à supprimer'
            .ListItems.Add , , c

jean marie

merci beaucoup ca à résolu mon probléme

 

[ChTi160]

Re
Ok
N'hésite pas si besoin!
Jean marie