Traitement liste multicolonnes [Résolu]

[mécano41]

Bonjour,

Je joins un morceau de code pour traiter une liste multicolonnes dans une boîte de dialogue. Mes questions sont :

- Pourquoi subsiste-t-il une ligne vierge sélectionnable en fin de liste ?
- Pourquoi, si j'efface cette ligne avec ma commande "supprimer", j'ai une erreur lorsque j'effectue ensuite un ajout?
- Y-a-t-il des méthodes plus simples pour faire le même travail

Merci d'avance

Cordialement

[mécano41]

Bonjour,

Je ne comprends toujours pas pourquoi il y a cette ligne mais j'ai trouvé comment éviter l'erreur.

En fait, cette ligne semble s'ajouter à la dernière ligne de Sub AfficheListe ; si l'on vérifie ListIndex avant et après, on voit que ListIndex s'est incrémenté de 1.

J'ai enlevé le premier test de Sub BoutonSupprimer et j'ai ajouté au début de

Code :

1
2
3
Sub SupprimeItem :
 
If ElémentAsupprimer = ListeAtraiter.ListCount-1 Then Exit Sub

Cela fonctionne. Au fait...personne n'a plus simple?

Cordialement

PS : il manquait aussi un Redim Preserve avant le Call... dans Sub SupprimeItem mais c'est un détail !