Probleme ListBox Userform

Version imprimable

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 :P

voici mon code:

Code:

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

04/10/2015, 19h51
clementmarcotte
Bonjour,

Citation:

Envoyé par crywiddo

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
merci

Pourquoi faire une liste dans une feuille quand tu peux remplir ton Listbox directement:

Pas testé, mais cela devrait ressembler à cela
Code:

1 2 3 4 5 Sub IlFautRemplirLeListbox() for Each feuille in activeworkbook.sheets Listbox1.additem(feuille.name) next end sub
P.S. Ceci marche chez moi et la cellule "A40" est sélectionnée et visible en plein milieu de l'écran:

Code:

Sheets("feuil1").Range("A40").Activate

Boujour,

Oui tout a fait cela sera plus rapide.(je suis débutant donc pas encore assez instinctif)

mais cela ne répond pas a m'as question,

J'ai trouvé un programme plus simple encore :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub CommandButton1_Click() Unload Me End Sub Private Sub ListBox1_Click() Sheets(ListBox1.Value).Select Unload Me End Sub Private Sub UserForm_Initialize() For i = 1 To Sheets.Count ListBox1.AddItem Sheets(i).Name Next i End Sub
c'est exactement ça mais le problème c'est que cela ne résoud pas mon soucis de molette qui reste sur la première page...

Quelqu'un a une idée?

05/10/2015, 22h43
patricktoulon

re

bonsoir

je crois comprendre to soucis mais si j'ai raison il n'y a pas de solution simple en tout cas

la molette ne fonctionne nativement qu'avec une listview et non une listbox

tu trouvera parci par la et meme sur DVP un module qui fait fonctionner la molette sur une listebox mais c'est bancale et pour moi inutile

sert toi plutot d'une listview sinon c'est mort
il y a bien une autre solution mais elle est plus compliqué a mettre en place

et la on parle
d'une frame
de controls ajouté dynamiquement
du reglage de la scroll de la frame
etc......
et la oui tes items défileront avec la molette
06/10/2015, 11h02
SfJ5Rpw8

Bonjour,

comment appelle-tu l'userform .. ( code ?)
06/10/2015, 18h30
crywiddo

1 pièce(s) jointe(s)

Bonjour,

Tous d'abord merci pour vos réponses.

Attention je pense que vous ne m'avais pas bien compris :), je ne cherche pas a faire fonctionner ma molette SUR la listBox mais sur la FEUILLE que je viens de sélectionner dans ma listBox. j'ai un peut de mal expliqué .

Prenons un exemple d'un classeur avec 3 Feuilles 1-2-3 sur lesquels il y a 3 tableaux avec 1 ligne figée en haut

un bouton sur les 3 feuilles avec un userform composé d'une listbox sélectionnable qui affiche toutes les feuilles présente dans le classeurs (ajout régulé de page par macro...) qui renvoi vers les 3 pages.

si j'active le userform alors que je suis sur la Feuille 1 et que je choisi la feuille 3 (par exemple) et que j'essai de descendre dans le tableau avec la molette vers le bas donc, la page reste figé mais le tableau de la page 1 descend ... oui oui je sais c'est con mais pourtant c'est le cas :D

Voici un fichier exemple: Pièce jointe 189554
06/10/2015, 18h33
SfJ5Rpw8

Citation:

Envoyé par bbil

Bonjour,

comment appelle-tu l'userform .. ( code ?)
06/10/2015, 18h36
crywiddo

oui désoler j'ai oublié de préciser: UserForm_SelectionnerPage et le code que j'ai posté ci-dessus ce trouve sur ce userform avec en macro1 un simple userform.show
06/10/2015, 18h38
SfJ5Rpw8

Quand je dis "appelle" je veux dire comment provoque tu l'appel de ton userForm ..,je ne vois pas le code .. ! utilise les balises de code [code] [/code] pour le poster sur le forum ...

voir peu-être : http://www.developpez.net/forums/d84...s-discussions/

Code:

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
Option Explicit
 
'Initialisation du UserForm Selectionner Page
Private Sub UserForm_Initialize()
 
    'Declaration des varibles
    Dim i As Integer
 
        'Liste Des onglet du classeur
        For i = 1 To Sheets.Count
            ListBox1.AddItem Sheets(i).Name
        Next i
 
End Sub
 
'Affectation du boutton OK
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
        'Selection page dans la liste
        Sheets(ListBox1.Value).Select
 
    'Déchargement du UserForm
    Unload Me
 
End Sub

06/10/2015, 18h41
SfJ5Rpw8

non ce n'est pas le code d'appel de ton userform ...

ha pardon j'avais pas compris désolé

Code:

1
2
3
4
5
6
Sub SelectionnerPage()
 
    'Affectation Bouton Ajout Nouvelle Banque
    UserForm_SelectionnerPage.Show
 
End Sub

bonsoir
si ca n'est que ca
Code:

1 2 3 4 5 Sub SelectionnerPage() 'Affectation Bouton Ajout Nouvelle Banque UserForm_SelectionnerPage.Show 0 End Sub
le zero c'est pour le mode modless

07/10/2015, 10h44
crywiddo

Bonjour,

Oui c’était un truc tous bête je sais, mais je ne connaissais pas.

en tous cas merci beaucoup à vous tous pour avoir pris de votre temps pour résoudre mon problème.

Bonne journée. ;)