Positionner le curseur dans une combobox à l'ouverture

Résolu/Fermé
Landry85 Messages postés 94 Date d'inscription mardi 5 novembre 2013 Statut Membre Dernière intervention 16 octobre 2017 - 31 août 2017 à 23:32
Landry85 Messages postés 94 Date d'inscription mardi 5 novembre 2013 Statut Membre Dernière intervention 16 octobre 2017 - 1 sept. 2017 à 22:05
Bonsoir,

Impossible de trouver un code qui fonctionne, quelqu'un aurait il cela?

Je souhaiterais, dans un premier temps, qu'à l'ouverture de mon classeur, le curseur (j'entends par "curseur" la barre qui clignote, pas la flêche de la sourie (pardon pour la précision, mais je ne suis pas certain d'utiliser les bons termes)) se positionne dans ma combobox2.

Puis, dans un deuxième temps, après avoir cocher une case d'option ou une autre, que ce curseur se positionne dans la combobox1.

Merci d'avance pour votre aide


5 réponses

Landry85 Messages postés 94 Date d'inscription mardi 5 novembre 2013 Statut Membre Dernière intervention 16 octobre 2017 2
1 sept. 2017 à 01:09
Pour le deuxieme temps, j'ai trouvé :

If OptionButton5.Value = True Then Me.ComboBox1.Activate


Plus que le premier :-)
0
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 58
Modifié le 1 sept. 2017 à 08:52
Bonjour,
une proposition:
Private Sub OptionButton1_Click()
    
    ComboBox1.SetFocus

End Sub

Private Sub OptionButton2_Click()

    ComboBox1.SetFocus

End Sub


Private Sub UserForm_Initialize()

    ComboBox2.SetFocus

End Sub
0
Landry85 Messages postés 94 Date d'inscription mardi 5 novembre 2013 Statut Membre Dernière intervention 16 octobre 2017 2
1 sept. 2017 à 10:08
Merci, mais ça ne fonctionne pas...

Je n'utilise pas de UserForm, je suis sur une feuille excel classique.
0
Landry85 Messages postés 94 Date d'inscription mardi 5 novembre 2013 Statut Membre Dernière intervention 16 octobre 2017 2
1 sept. 2017 à 10:09
Je viens de tester :

Private Sub WorkBook_Activate()
Me.ComboBox2.Select
Me.ComboBox2.Activate

End Sub

Marche pas mieux... :-(
0
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 58
1 sept. 2017 à 11:08
et dans thisworkbook_open?
0
Landry85 Messages postés 94 Date d'inscription mardi 5 novembre 2013 Statut Membre Dernière intervention 16 octobre 2017 2 > fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022
1 sept. 2017 à 11:17
pas mieux ...
0
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 58
1 sept. 2017 à 11:20
pouvez mettre un lien de votre fichier anonymisé?
0
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 58 > fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022
1 sept. 2017 à 11:23
https://www.cjoint.com/ pour créer un lien et le coller ici
0
Landry85 Messages postés 94 Date d'inscription mardi 5 novembre 2013 Statut Membre Dernière intervention 16 octobre 2017 2 > fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022
1 sept. 2017 à 11:28
https://mon-partage.fr/f/q7O9ZgGv/
0
Landry85 Messages postés 94 Date d'inscription mardi 5 novembre 2013 Statut Membre Dernière intervention 16 octobre 2017 2
1 sept. 2017 à 11:28
https://mon-partage.fr/f/q7O9ZgGv/

ci joint, un fichier de principe, pour mes essais :-)
Merci
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 58
Modifié le 1 sept. 2017 à 11:51
j'ai réussi en ecrivant :
Private Sub Workbook_Open()
With Worksheets("Recherche").ComboBox1
.Select
.Activate
End With

End Sub

dans la feuille thisworkbook en dessous de feuille 5 événement open
0
Landry85 Messages postés 94 Date d'inscription mardi 5 novembre 2013 Statut Membre Dernière intervention 16 octobre 2017 2
1 sept. 2017 à 22:05
Super Merci !!! Il est vrai que je suis resté bloqué dans ma feuille de travail et n'avait même pas eu la moindre idée qu'on pouvait placer un code global pour le classeur.

Merci encore
0