Bug position affichage listview

[Florian53]

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]

Bonjour Florian,

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

À+
Philippe

 

[Florian53]

effectivement oubli de ma part

 

[pierrejean]

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]

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]

Re

Private Sub UserForm_Initialize()

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

End Sub

 

[laetitia90]

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

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

 

[Florian53]

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]

Re
A tester

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

 

[Florian53]

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]

re tous
exemple avec ton fichier

 

[Florian53]

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]

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]

Re
Que dis-tu de celui ci ?

 

[Florian53]

Merci à tous les 2:

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