Bug position affichage listview

phlaurent55

Nous a quittés en 2020

Repose en paix

• 9 Mai 2017

• #2

Bonjour Florian,

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

À+
Philippe

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 9 Mai 2017

• #3

effectivement oubli de ma part 🙂

 

Pièces jointes

• test.xlsm

  372.1 KB · Affichages: 55

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 9 Mai 2017

• #4

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 !!!!

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 9 Mai 2017

• #5

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 .

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 9 Mai 2017

• #6

Re

Code:

Private Sub UserForm_Initialize()

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

End Sub

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 9 Mai 2017

• #7

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

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 9 Mai 2017

• #8

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 ?

 

Pièces jointes

• test.xlsm

  372.2 KB · Affichages: 41

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 9 Mai 2017

• #9

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

 

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 9 Mai 2017

• #10

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

 

Pièces jointes

• test.xlsm

  369.9 KB · Affichages: 36

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 9 Mai 2017

• #11

re tous 🙂
exemple avec ton fichier

 

Pièces jointes

• frame.xlsm

  367.8 KB · Affichages: 60

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 9 Mai 2017

• #12

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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 9 Mai 2017

• #13

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

 

Dernière édition: 9 Mai 2017

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 9 Mai 2017

• #14

Re
Que dis-tu de celui ci ?

 

Pièces jointes

• test (38).xlsm

  310.7 KB · Affichages: 61

Vote positif 0 Vote négatif

F

Florian53

XLDnaute Impliqué

• 9 Mai 2017

• #15

Merci à tous les 2:

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

 

Vote positif 0 Vote négatif