la séléction dans un combobox

Version imprimable

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:

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

12/12/2013, 15h31
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 :mrgreen:)
12/12/2013, 15h35
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) !
12/12/2013, 15h42
illight

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

=> 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 :mrgreen: 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 ;)
12/12/2013, 15h46
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

Bah je sais pas c'est dans ton code :

Code:

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 :mrgreen: mais si ça t'embete enlève le :mrgreen:

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:

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

Citation:

Envoyé par 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)

Par la macro, c'est pas la feuille que tu mets en plein écran :mrgreen: c'est le formulaire :P
Citation:
Envoyé par philippe6
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:

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

12/12/2013, 16h02
philippe6
J'ai trouvé, il faur ajouter
Code:

1 2 UserForm1.Hide
après
Code:

1 2 UserForm2.Hide
Merci beaucoup
12/12/2013, 16h07
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.