Bug vba Excel listview sur multipage

Bonjour,

J'ai parcouru les forums à la recherche de la solution de ces bugs, mais je n'ai trouvé que des problèmes similaires sans solution.

Les bugs :
1) Lorsque l'on insert une listview sur un onglet d'une multipage et que l'on lance notre application, si l'onglet de départ n'est pas celui qui contient la listview, alors, lorsque l'on passe sur cet onglet, nous obtenons un bug d'affichage (genre page non rafraichie avec un peu de n'importe quoi dedans). Le fait de rechanger a nouveau de page et de revenir supprime ce bug, mais c'est un peu lourd comme procédé...

2) Si l'on utilise des checkbox dans la listview, dès que l'on change de page et que l'on revient sur la listview, les checkbox sont invisibles. Elle sont toujours présentes car un clic sur leur emplacement les fait réapparaitre. Pire, dès que l'on clic dessus, justement pour les faire réapparaitre, elle reviennent automatiquement dans l'état "décoché" quelque soit leur état précédent.

J'ai essayé de rafraichir la form, mais aucun résultat.

Merci de votre aide.

Salut,

J'ai deja eu le meme probleme et la seule facon que j'ai trouve pour
palier a ca c'est de deplacer la form d'1pixel et de la remettre a ca place
quand on active l'onglet.
C'est invisible pour l'utilisateur et pour moi ca a regle le probleme.

A defaut de mieu, je te suggere d'essayer ca.


++
Minick

Ok pour le point n°1 Minick, ca fonctionne bien avec une modif de la position de la listview sur évènement "change" de la multipage.

Par contre cela ne me ramène pas mes checkbox du bug n°2...

Si quelques idées :D

Je continue mon investigation :

J'ai donc 2 pages dans ma multipage. Sur la seconde, j'ai ma listview avec mes checkbox.
I - Je charge mon programme en commencant par la page 1. Je passe à la page 2 ==> les checkbox sont visibles.
Je refais un va et viens page 1 puis page 2 ==> Plus de checkbox.
II - Je charge mon programme en commencant par la page 2 ==> les checkbox sont visibles.
Je refais un va et viens page 1 puis page 2 ==> Plus de checkbox.


J'ai testé les valeurs des checkbox lorsque je me trouve sur la page 1, et quelque soit l'état de départ en page 2, toutes les checkbox sont à l'état 1 dès que l'on quitte la page 2.

Je pense à créer un tableau contenant les valeurs des checkbox, actualisé à chaque modification des checkbox et utilisé afin de remettre à jour les checkbox à chaque fois que je change de page... Car pour info, appliquer la valeur true ou false sur un checkbox le fait réapparaitre...

Je pense que cela va marcher comme çà, mais c'est un peu une usine à gaz pour pas grand chose... Surtout que c'est visiblement un bug à la base...

t'a essayer de faire un repaint ?

Oui, j'ai essayé. Le repaint de la userForm ne change rien...

Re,

Tu n'aurais pas un code evenementielle qui te reinitialiserait tes checkbox?

Sinon, est ce que tu peux mettre un fichier "light"?

++
Minick

Je viens de reprendre mon code, et n'ayant toujours aucune solution, j'ai codé façon usine à gaz...

Donc tableau public dynamique qui s'initialise avec les valeurs des checkBox, qui se met a jour à chaque changement de statut d'une box et qui remet en place ces dernières lorsque l'on reviens sur la frame les contenant.

Pour ceux que cela intéresse, voici les parties de codes :

Dans mon programme principal, avant de redonner la main à l'utilisateur :

Code:

---

UserFormMail.MAJTabPJ

---

Dans le UserFormMail, pour initialisation :

Code:

---

1 2 3 4 5 6 7 8 9

Friend Sub MAJTabPJ()   Dim iBcl As Integer ReDim Preserve bTabItemChecked(ListViewPJ.ListItems.Count) For iBcl = 1 To ListViewPJ.ListItems.Count bTabItemChecked(iBcl) = UserFormMail.ListViewPJ.ListItems(iBcl).Checked Next iBcl   End Sub

---

Dans le UserFormMail, pour la mise à jour lorsque les checkbox sont modifiées :

Code:

---

1 2 3 4 5 6 7 8

Private Sub ListViewPJ_ItemCheck(ByVal Item As MSComctlLib.ListItem)   If UBound(bTabItemChecked) < Item.Index Then ReDim Preserve bTabItemChecked(Item.Index) End If bTabItemChecked(Item.Index) = UserFormMail.ListViewPJ.ListItems(Item.Index).Checked   End Sub

---

et enfin dans le UserFormMail, pour la remise en place des checkbox :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub MultiPage1_Change()   Dim iBcl As Integer ' Pour le bug d'affichage des checkbox lorsque changement de frame... For iBcl = 1 To UBound(bTabItemChecked) UserFormMail.ListViewPJ.ListItems(iBcl).Checked = bTabItemChecked(iBcl) Next iBcl   ' Pour le bug d'affichage de la listview dans une multipage... ListViewClientsPotentiels.Left = 437 ListViewClientsPotentiels.Left = 438   End Sub

---

Ah, et ne pas oublier de déclarer le tableau en public dans un module :

Code:

---

Public bTabItemChecked() As Boolean

---

Voili voilou... Si jamais quelqu'un trouve quelque chose de moins barbare, n'hésitez pas à poster ;)

Bonne journée