Discussion :

[Pierre67]

Bonjour à tous

je suis en train de réaliser un userform avec une listview et me suis basé sur un code qui propose un usf et une combobox de filtre et une textbox de recherche. (simple ajustement de code).

Or je constate que dans ma listview il manque la dernière ligne de mon tableau excel!
Est ce normal ? (idem dans le code récupéré) ?
Quelle astuce pour récupérer cette dernière ligne .
bien a vous

[Daniel.C]

Bonjour,

Est ce normal ? (idem dans le code récupéré) ?

Oui, c'est une erreur de programmation, certainement pas un bug.

Si tu publiais ton code ?

[Philippe Tulliez]

Bonjour,
Ce site ne s'appelle pas devinez.com et nous n'avons pas de boules de cristal.
Comment veux-tu recevoir de l'aide sans publier la procédure qui te pose problème et en donnant un minimum d'explication sur l'organisation des données concernées par le contrôle ListView.

A lire, le tutoriel Utiliser le contrôle ListView en VBA Excel

[Pierre67]

Bonjour à vous

je vous joins le fichier sur lequel je me suis appuyé où la derniere ligne est absente

[Philippe Tulliez]

Bonjour,

je vous joins le fichier sur lequel je me suis appuyé où la derniere ligne est absente

Il y a des intervenants qui n'ouvrent pas d'emblée les fichiers téléchargeables donc si tu veux un maximum de réponses, je te rappelle

Comment veux-tu recevoir de l'aide sans publier la procédure qui te pose problème et en donnant un minimum d'explication sur l'organisation des données concernées par le contrôle ListView.

J'ajouterais que plusieurs d'entre-nous prennent la peine dans leurs interventions d'expliquer et d'étayer leurs réponses.
J'ose espérer que ceux qui posent des questions fassent un minimum d'effort pour expliquer ce qui leur pose problème, c'est tout bénéfice pour eux.

[Daniel.C]

En l'occurrence, il suffisait de publier le code. Dans la macro LVW_Fill, au moment de traiter la dernière ligne, le test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do Until oRng.Offset(1, 0).Value = ""

te fait sortir de la boucle, donc tu ne traites pas la dernière ligne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do Until oRng.Value = ""

devrait faire l'affaire.

[Pierre67]

Effectivement Daniel en modifiant le code selon ta proposition toutes les lignes du tableau
figurent dans la listview


merci beaucoup