Bonjour,

J'ai un petit soucis avec une listBox, enfete sur la feuil1 j'ai un bouton qui me permet de récupérer la liste des différents onglets du classeur
et qui me permet de naviguer vers celle-ci en double-cliquant dessus.

Jusqu'ici tous vas bien mais quand j'arrive sur la page voulu le userform ce ferme donc, mais la molette de la souris reste sur la feuil1 quand je décent , il ne ce passe rien sur ma page mais la feuil1 décent.

je ne sais pas si je suis claire

voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Option Explicit
 
'Initialisation du UserForm Selectionner Page
Private Sub UserForm_Initialize()
 
    'Declaration des varibles
    Dim Ligne As Integer
    Dim DerniereLigne As Integer
    Dim i As Integer
 
        'Liste Des onglet du classeur
        With Sheets("Listes")
            DerniereLigne = .Range("K21").End(xlDown).Row
            For Ligne = 21 To DerniereLigne
                Me.ListBox1.AddItem .Range("K" & Ligne)
            Next Ligne
        End With
 
End Sub
 
'Affectation du boutton OK
'Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
    'Declaration des varibles
    Dim i As Integer
    Dim Txt As String
 
        'Selection de la page voulu dans la liste
        For i = 0 To ListBox1.ListCount
            If ListBox1.Selected(i) = True Then
                Txt = ListBox1.List(i)
            End If
        Next i
 
        'Navigation vers la page voulu
        Sheets(Txt).Select
        Range("a20").Select
 
    'Déchargement du UserForm
    Unload Me
 
End Sub
merci