Bug position affichage listview

Florian53 · 9 Mai 2017

Bonjour le forum,

Je suis confrontais à 2 problèmes dont je ne trouve pas la solution.

Je dispose d'une frame qui intégre une Listview avec Checkbox ainsi que d'un bouton qui permet de faire apparaître ou non la frame.

Le 1er problème est que lors du 1er affichage, la listview se place en haut à gauche c'est à dire pas à la bonne position il suffit de la faire disparaître puis la faire re apparaître afin que sa position soit bonne. La position de la listview et bonne lors du 2eme affichage mais la visualisation des Checkbox eux disparaissent.

Le 2nd problème est que dés que je supprime une feuille de mon classeur, la macro ne veux plus s'exécuter.

Je suis vraiment à court d'idée pour résoudre ses problèmes, merci à vous.

Cordialement

phlaurent55 · 9 Mai 2017

Bonjour Florian,

Sans voir le fichier, la solution à ton problème risque de se faire attendre

À+
Philippe

Florian53 · 9 Mai 2017

effectivement oubli de ma part

pierrejean · 9 Mai 2017

Bonjour Florian
Salut Phillipe

Pour le 1er probleme
Dans les propriétés de Frame4 mettre Visible a True
Dans la macro initialize mettre Me.frame4.visible=false
Je n'ai pas vu le second !!!!

Florian53 · 9 Mai 2017

Merci Pierre Jean,

En effet avec cette technique la position est bonne mais les checkboxs ne sont plus apparente, le carré n'est plus visible il faut cliquer dessus pour le voir apparaître .

pierrejean · 9 Mai 2017

Re

Code:

Private Sub UserForm_Initialize()

    'Appel de l'alimentation de la Listview1 Frame 4
   Me.Frame4.Visible = False
    Inilistview_frame4

End Sub

laetitia90 · 9 Mai 2017

bonjour tous

,bises pierre

tu peus ruser frame 4 visible par defaut .... sur frame 4 tu rajoute un frame 5 couleur user sans contour
apres frame 5 visible ou pas

VB:

Private Sub ToggleButton1_Click()
  Frame5.Visible = IIf(ToggleButton1, 0, 1)
End Sub

Florian53 · 9 Mai 2017

je viens de faire la correction, mais sa ne fonctionne toujours pas.

Est ce un défaut de programmation un défaut propre au VBA ?

pierrejean · 9 Mai 2017

Re
A tester

Code:

Private Sub ToggleButton1_Click()
  If ToggleButton1.Value = False Then
        Frame4.Visible = False
    Else
         Frame4.Visible = True
        Call Inilistview_frame4
    End If
End Sub

Florian53 · 9 Mai 2017

Laetitia: j'ai essayé ta solution mais je pense qu'il doit y avoir un problème de code car sa ne fonctionne pas.

PierreJean: j'ai toujours la même erreur malgré le changement

laetitia90 · 9 Mai 2017

re tous
exemple avec ton fichier

Florian53 · 9 Mai 2017

Nickel, sa fonctionne cool pour l'astuce.
Du coup c'est un bug de visual basic, pourquoi ce défaut apparaît ?

Merci à vous 2

laetitia90 · 9 Mai 2017

re tous

helas !!!je peus pas te repondre arrive egalement avec multipage qui est un conteneur comme un frame mystere!!! souvent un simple repaint ressoud le pb.. souvent plein de souci avec les listviews c'est beau c'est tout je prefere les listboxs plus facile a coder & moins de pb...

ps: au lieu d'utiliser un frame supplementaire on peut egalement utiliser .top ou width ect...

avec .top par defaut -500 dans propriéte

code bouton
Private Sub ToggleButton1_Click()
Frame4.Top = IIf(ToggleButton1, 66, -500)
End Sub

pierrejean · 9 Mai 2017

Re
Que dis-tu de celui ci ?

Florian53 · 9 Mai 2017

Merci à tous les 2:

j'ai testé ta solution Pierrejean, elle fonctionne aussi parfaitement.

Bug position affichage listview

Florian53

XLDnaute Impliqué

phlaurent55

Nous a quittés en 2020

Florian53

XLDnaute Impliqué

Pièces jointes

pierrejean

XLDnaute Barbatruc

Florian53

XLDnaute Impliqué

pierrejean

XLDnaute Barbatruc

laetitia90

XLDnaute Barbatruc

Florian53

XLDnaute Impliqué

Pièces jointes

pierrejean

XLDnaute Barbatruc

Florian53

XLDnaute Impliqué

Pièces jointes

laetitia90

XLDnaute Barbatruc

Pièces jointes

Florian53

XLDnaute Impliqué

laetitia90

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

Pièces jointes

Florian53

XLDnaute Impliqué

Discussions similaires