Discussion :

[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
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

[clementmarcotte]

Bonjour,

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[crywiddo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[patricktoulon]

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

[SfJ5Rpw8]

Bonjour,

comment appelle-tu l'userform .. ( code ?)

[crywiddo]

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

Voici un fichier exemple: 111.xls

[SfJ5Rpw8]

Bonjour,

comment appelle-tu l'userform .. ( code ?)

[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

[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/

[crywiddo]

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

[SfJ5Rpw8]

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

[crywiddo]

ha pardon j'avais pas compris désolé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

bonsoir
si ca n'est que ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.