XL 2019 Actualisation ListView

MedAliS · 10 Mai 2021

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 · 11 Mai 2021

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

VB:

 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

ChTi160 · 10 Mai 2021

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 · 11 Mai 2021

ChTi160 à dit:
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 · 11 Mai 2021

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

MedAliS · 11 Mai 2021

ChTi160 à dit:
Bonjour MedAlis
Il manque toujours quelque chose ! Lol
Bonne

ChTi160 · 11 Mai 2021

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

MedAliS · 11 Mai 2021

désolé pour l'erreur

ChTi160 · 11 Mai 2021

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

VB:

 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 · 11 Mai 2021

ChTi160 à dit:

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

VB:

 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 · 11 Mai 2021

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

XL 2019 Actualisation ListView

MedAliS

XLDnaute Nouveau

ChTi160

ChTi160

XLDnaute Barbatruc

MedAliS

XLDnaute Nouveau

ChTi160

XLDnaute Barbatruc

MedAliS

XLDnaute Nouveau

ChTi160

XLDnaute Barbatruc

MedAliS

XLDnaute Nouveau

Pièces jointes

ChTi160

XLDnaute Barbatruc

MedAliS

XLDnaute Nouveau

ChTi160

XLDnaute Barbatruc

Discussions similaires