Autres Position Listview dans formulaire

bernardrustrel

XLDnaute Occasionnel
Bonjour à tous.
Une fois de plus je vous appelle à l'aide, et vous en remercie par avance.
Vos réponses m'aident à progresser dans la connaissance d'excel vba.
Enfin voici mon souci.
Dans le fichier joint, à l'ouverture du formulaire si je sélectionne la page "Inventaire", la listview se trouve décaler de sa position.
Or si avec la souris on déplace le formulaire, elle reprend la position souhaitée.
En paramétrant la mulitpage1.value=3, dans l'initialisation du formulaire, cette dernière reste sur la position voulue.
Mais il faut impérativement que mulitpage1.value=0 au démarrage du formulaire.

L'un de vous aurait il une suggestion sur ce déplacement inopiné de la listview. Pour ma part je suis noir total.
Encore un grand merci pour conseils et aide.
Cordialement, Bernard.
 

Pièces jointes

  • Imprimer.xls
    139.5 KB · Affichages: 10
Solution
Bonjour bernardrustrel
Bonjour le Fil ,le Forum
Il m'est souvent arrivé de constater ce phénomène
une solution .
je place ma ListView dans une Frame (superposition) , ces deux Controls ayant les mêmes dimensions.
a voir Donc !(fichier joint)
j'ai aussi supprimé dans le Code le positionnement de la ListView !
il peut y avoir d'autres solution !
tu peux aussi mettre l'initialisation de la ListView dans le Initialise du Userform une fois pour toute et ainsi éviter cette opération a chaque recherche.
Edit : j'ai changé le fichier
Bonne journée
jean marie

ChTi160

XLDnaute Barbatruc
Bonjour bernardrustrel
Bonjour le Fil ,le Forum
Il m'est souvent arrivé de constater ce phénomène
une solution .
je place ma ListView dans une Frame (superposition) , ces deux Controls ayant les mêmes dimensions.
a voir Donc !(fichier joint)
j'ai aussi supprimé dans le Code le positionnement de la ListView !
il peut y avoir d'autres solution !
tu peux aussi mettre l'initialisation de la ListView dans le Initialise du Userform une fois pour toute et ainsi éviter cette opération a chaque recherche.
Edit : j'ai changé le fichier
Bonne journée
jean marie

 

Pièces jointes

  • Imprimer Chti160.xls
    113 KB · Affichages: 16
Dernière édition:

youky(BJ)

XLDnaute Barbatruc
Bonjour Bernard et Chti,
J'ai longtemps galéré avec ce truc aussi.
Ma solution est d'activer le multipage en question et ensuite activer le multipage de départ.
Bruno
VB:
Private Sub UserForm_Initialize()

    Dim F, i, G, Temp
    Dim C As Range
    Dim MaListe, DerLigne
    
    MultiPage1.Value = 3
    TblChoix = Array("Tous costumes", "Costumes disponibles", "Costumes prêtés", "Costumes indisponibles")
                                        CbInventaire.List = TblChoix
    CbInventaire = "Tous costumes"
    AlimenteListInventaire
    MultiPage1.Value = 0
End Sub
 

Discussions similaires

Statistiques des forums

Discussions
315 096
Messages
2 116 175
Membres
112 677
dernier inscrit
Justine11