XL 2016 POsition Listview

[bernardrustrel]

Bonjour à tous.

Une fois de plus je viens vers vous afin de pallier à un souci sur la position d’une Listview après action. En effet elle ne reprend sa position initiale qu’après avoir fait glisser le USF.

Ci-joint le fichier de mes déboires en vous remerciant pleinement. Cordialement, Bernard

 

[bof]

Bonjour,
Pour mois ce classeur est inutilisable. Non compilable pour cause multiples.
A+

 

[bernardrustrel]

Bonjour,
Pour mois ce classeur est inutilisable. Non compilable pour cause multiples.
A+

 

[bernardrustrel]

Bonjour. N'étant pas à l'abri d'une erreur. J'ai pu ouvrir le fichier en question après l'avoir téléchargé.
Pourriez vous me preciser la nature des problèmes que vous avez rencontré.
Cordialement, Bernard

 

[jurassic pork]

Hello,
comme problème par exemple, ton classeur n'est pas compatible 64 bits (moi je suis en Excel 64 bits) à cause des déclarations d'API windows, il y a aussi des références à Adobe Acrobat et Adobe Distiller que tout le monde n'a pas. Il faudrait un classeur avec beaucoup moins de code, sans API windows, qui ne fait appaître que le problème des listviews ( celles qui sont dans UsfFichier ?). Et que se passe-t-il exactement dans le formulaire quand le problème apparaît ?
Ami calmant, J.P

 

[bernardrustrel]

Merci, pour vos remarques. Il est vrai que il y a beaucoup de code, je vais essayer de remédier à la chose.
Cordialement, B

 

[bof]

Bonjour,
Faites Débogage > Compiler VBA project vous promènera dans toutes les erreurs de codage. Je me suis arrêté aux 2 premières fonctions...
A+

 

[bernardrustrel]

Bonjour s
Je reviens avc mon souci de positionnement de la "listview1". J'ai allege le fichier, il est vra que c'etait le bazard pour etre poli. Je l'ai compile et pense y avoir upprimer les erreurs.

Voila ce qu'il faut faire pour avoir le probleme
1/ Click bouton "Video"
2/ Bouton "Dossier"
La listview1 est alimentee par une liste de video
3/Click bouton "Inventaire"
Listview2 et Listview3 apparaissent alimentées
4/ Double Click sur une ligne de la listview3 (celle de droite)
la listview1 apparait alimentée mais se trouve a cheval sur le bord superieur gauche de la Frame. En faisant glisser le USF elle reprend sa place, à l'iintérieur de la Frame.

J'aimerais que ce changement impromtu de position cesse.
Merci à tous pour votre aide et conseil.
Cordialement, Bernard

 

[jurassic pork]

Hello,
il y a encore pas mal d'erreurs dans le classeur. J'ai mis toutes les lignes en erreur en commentaire et je suis arrivé à ouvrir ton formulaire. J'ai trouvé une solution temporaire à ton problème (en attendant mieux) : dans la procédure de double clic de la Listview3 décaler le formulaire d'un pixel vers le bas :

Private Sub ListView3_DblClick()


Dim X As Long
 
    'With UsfFichier
        ListView3.FullRowSelect = True
        ListView3.Enabled = True
        For X = 1 To ListView3.ListItems.Count
            If ListView3.ListItems(X).Selected = True Then
                TextBox3 = ListView3.ListItems(X).Text
            End If
        Next X
      
        ListView1.Visible = True
       Me.Top = Me.Top + 1   ' Modif ici
    'End With
      
        AffichFilmActeur
        InitCritVideoGenea
      
End Sub

Ami calmant, J.P

 

[bernardrustrel]

BonjouR JP, merci pour cette solution, qui permet de pallier au défaut. En outre comment explique t on ce défaut, est ce un bug de VBA ou tout autre chose.
Encore merci a toi.
Cordialement, Bernard

 

[ChTi160]

Bonjour le Fil
il m'est souvent arrivé ce problème !
Ma solution Lol
mettre la ListView dans Un Frame dimensionné aux dimensions de la ListView.(je n'avais pas vu la superposition des Listview)
Bonne Journée
Jean marie
Edit : Après avoir décoché les Nombreuses références manquantes
Chez moi pas de problème d'affichage des ListView (en suivant la Liste des opérations a faire)

 

[jurassic pork]

En outre comment explique t on ce défaut, est ce un bug de VBA ou tout autre chose.

Je ne sais pas d'où cela vient. Et pour éviter de décaler le formulaire : après avoir décaler le formulaire d'un pixel vers le bas, le décaler d'un pixel vers le haut juste après :

Me.Top = Me.Top + 1
Me.Top = Me.Top - 1

 

[youky(BJ)]

Bonjour tous,
J'ai rencontré ce PB sur des listview sur multipage
Pour que la liste se retrouve à bonne hauteur il me fallait changer de page et revenir
Donc à l'ouverture je navigue sur toutes les pages et reviens à la 1ère
J'ai adapté le même principe sur la macro et c'est bon
Ajouter les 2 dernière lignes

En double_click de listview3
Next X
ListView1.Visible = True
'End With

AffichFilmActeur
InitCritVideoGenea
''''ces 2 lignes en plus
ListView1.Visible = False
ListView1.Visible = True
End Sub

Bruno