Discussion :

[philippe6]

Bonjour,

J'ai un classeur de plusieurs feuilles (une vingtaine pour l'instant), dans un premier temps, j'ai crée un userform qui s'alimentait du nom des feuilles, un DblClick les mettait au premier plan, maintenant, j'essai pour gagner de la place (prévisionnel) de créer des combobox (j'appelle ça des listes déroulantes, peut-être à tord)

Voici le 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
 
Private Sub UserForm_Initialize()
' Rajoute les feuilles créées dans Excel à la liste du formulaire
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Sheets
If Sh.Name Like "co*" Then
ComboBox1.AddItem Sh.Name
 
End If
Next
 
End Sub
 
Private Sub UserForm_Activate()
'pour passer en plein écran
    With Me
        .StartUpPosition = 3
        .Width = Application.Width
        .Height = Application.Height
        .Left = 0
        .Top = 0
    End With
End Sub

Il se remplit par famille (ici "co*" récupère les feuilles ayant un nom commençant par collège, mais lorsque je selectionne un de ces noms, rien ne se passe.

Auriez vous un conseil ?

Merci

Cordialement

[illight]

Tu n'as que ces 2 macros sur ton formulaire ? Tu n'as aucune action sur la sélection dans ta liste, ou par un click de bouton ?

Le seul truc que tu fais ici c'est que tu agrandis ton formulaire, et tu initialise ta liste déroulante avec le nom de tes feuilles, rien de plus effectivement.

Il faut que tu créé un évènement :
- soit à la sélection d'un élément de ta ComboBox
- soit au click sur un bouton, tu sélectionne la feuille inscrit dans la valeur choisie dans ta liste déroulante (j'ai peur que cette phrase soit incompréhensible )

[philippe6]

Je venais de m'en apercevoir, merci tt de même !
juste un truc, quelle est la différence entre tes deux solutions, (j'ai reussi à comprendre la deuxieme) !

[illight]

ça fait un click en plus ça dépend après ce que tu veux faire derrière

=> l'activation de la feuille sur la sélection de la Combobox te permet de sélectionner la feuille "de suite"
=> l'activation par un bouton te permettra par exemple d'abord de sélectionner la feuille, et une fois que tu as cliqué sur le bouton, alors ta feuille est sélectionnée et à ce moment tu peux par exemple fermer ton formulaire. Pour ma part, je préfère toujours fermer un formulaire après un bouton, qu'à la sélection dans une liste déroulante.


Comme dit, ça dépend ce que tu fais après

[philippe6]

Peut-être suis-je à coté de la plaque mais en plein écran qu''elle est l'utilité ?
Il est la le formulaire mais on ne le vois pas !

Philippe

[illight]

Bah je sais pas c'est dans ton code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub UserForm_Activate()
'pour passer en plein écran
    With Me
        .StartUpPosition = 3
        .Width = Application.Width
        .Height = Application.Height
        .Left = 0
        .Top = 0
    End With
End Sub

C'est toi qui l'a écrit pas moi mais si ça t'embete enlève le

[philippe6]

Je veux dire qu'elle est l'utilité de fermer le formulaire, si la feuille sélectionnée occupe tte la place ? (mais, ça, c'est surement un malentendu)

Il y a plus grave, en fait j'ai créé deux userform le premier avec une listBox qui recense les items isolés, un bouton nommé groupe de données renvoie à un deuxieme userform et c'est sur celui là que se trouve le combobox auquel, jeviens de rajouter pour selectionner les items, le code suivant :

Code :

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

1
2
3
4
5
6
 
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ThisWorkbook.Sheets(ComboBox1.Text).Select
UserForm2.Hide
 End Sub
et, bizarrement, je suis renvoyé à la ListBox du premier userform au lieu d'attérir sur la feuille du classeur !!?

[illight]

Je veux dire qu'elle est l'utilité de fermer le formulaire, si la feuille sélectionnée occupe tte la place ? (mais, ça, c'est surement un malentendu)

Par la macro, c'est pas la feuille que tu mets en plein écran c'est le formulaire

Il y a plus grave, en fait j'ai créé deux userform le premier avec une listBox qui recense les items isolés, un bouton nommé groupe de données renvoie à un deuxieme userform et c'est sur celui là que se trouve le combobox auquel, jeviens de rajouter pour selectionner les items, le code suivant :

Code :

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

1
2
3
4
5
6
 
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ThisWorkbook.Sheets(ComboBox1.Text).Select
UserForm2.Hide
 End Sub
et, bizarrement, je suis renvoyé à la ListBox du premier userform au lieu d'attérir sur la feuille du classeur !!?

Là, j'ai pas compris

[philippe6]

J'ai trouvé, il faur ajouter

Code :

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

1
2
 
UserForm1.Hide

après

Code :

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

1
2
 
UserForm2.Hide

Merci beaucoup

[philippe6]

Je répond à ta remarque précédente, je pense que tu ne peux pas avoir le formulaire en plein écran même avec la macro si la feuille ne l'est pas, i.e. si ton Excel n'est pas en plein écran.