XL 2019 Déplacement de la liste view

ARaul à dit:

Oui mais le problème persiste

Cliquez pour agrandir...

Private Sub MultiPage1_Change()
   If MultiPage1.Value = 1 Then
        ListView2.Visible = False
        ListView2.Visible = True
    End If
End Sub

nullosse à dit:

C'est bizarre car moi en excel 2021 si je lance le formulaire avec l'onglet Poste actif et que je passe à l'onglet Enregistrement j'ai la ListView2 qui est mal positionnée, si je repasse sur l'onglet Poste et puis sur l'onglet Enregistrement la ListView2 est à sa bonne position et si je rajoute ce code dans le formulaire :

VB:

Private Sub MultiPage1_Change()
   If MultiPage1.Value = 1 Then
        ListView2.Visible = False
        ListView2.Visible = True
    End If
End Sub

Si je lance le formulaire avec l'onglet Poste actif et que je passe à l'onglet Enregistrement, la ListView2 est à la bonne position

Cliquez pour agrandir...

Private Sub MultiPage1_Change()
   If MultiPage1.Value = 1 Then
        ListView12.Visible = False
        ListView12.Visible = True
    End If
End Sub

ARaul à dit:

C'est bon maintenant. Maintenant je l'ai appliqué dans un autre projet mais ça ne répond pas.
Voilà ce que j'ai mis:

Cest ListView12

VB:

Private Sub MultiPage1_Change()
   If MultiPage1.Value = 1 Then
        ListView12.Visible = False
        ListView12.Visible = True
    End If
End Sub

Cliquez pour agrandir...

nullosse à dit:

oui mais est-ce que ListView12 est sur le deuxième onglet ( MultiPage1.Value) ?
Il faut faire le test If MultiPage1.Value = x en fonction de l'onglet où se trouve la listeView :
0 : 1er onglet
1 : 2ème ongle

Cliquez pour agrandir...

nullosse à dit:

oui mais est-ce que ListView12 est sur le deuxième onglet ( MultiPage1.Value) ?
Il faut faire le test If MultiPage1.Value = x en fonction de l'onglet où se trouve la listeView :
0 : 1er onglet
1 : 2ème onglet
2 : 3ème onglet etc..

Cliquez pour agrandir...

nullosse à dit:

Une astuce qui a l'air de fonctionner pour tous les listviews des onglets :

VB:

Private Sub MultiPage1_Change()
   Me.Top = Me.Top + 1
   Me.Top = Me.Top - 1
   DoEvents
End Sub

on déplace le formulaire d'un pixel et on le remet en place , ce qui déclenche un rafraîchissement de l'onglet , et les listview se repositionnent.

Cliquez pour agrandir...

ARaul à dit:

D'accord. merci beaucoup à vous. J'ai eu satisfaction

Cliquez pour agrandir...