Positionner le curseur dans une combobox à l'ouverture
Résolu
Landry85
Messages postés
96
Statut
Membre
-
Landry85 Messages postés 96 Statut Membre -
Landry85 Messages postés 96 Statut Membre -
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
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
-
Pour le deuxieme temps, j'ai trouvé :
If OptionButton5.Value = True Then Me.ComboBox1.Activate
Plus que le premier :-) -
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 -
Je viens de tester :
Private Sub WorkBook_Activate()
Me.ComboBox2.Select
Me.ComboBox2.Activate
End Sub
Marche pas mieux... :-(-
-
- https://www.cjoint.com/ pour créer un lien et le coller ici
-
-
https://mon-partage.fr/f/q7O9ZgGv/
ci joint, un fichier de principe, pour mes essais :-)
Merci -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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