Positionner le curseur dans une combobox à l'ouverture

Résolu
Landry85 Messages postés 94 Date d'inscription   Statut Membre Dernière intervention   -  
Landry85 Messages postés 94 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   2
 
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   Statut Membre Dernière intervention   59
 
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   Statut Membre Dernière intervention   2
 
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   Statut Membre Dernière intervention   2
 
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   Statut Membre Dernière intervention   59
 
et dans thisworkbook_open?
0
Landry85 Messages postés 94 Date d'inscription   Statut Membre Dernière intervention   2 > fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention  
 
pas mieux ...
0
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   59
 
pouvez mettre un lien de votre fichier anonymisé?
0
fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   59 > fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention  
 
https://www.cjoint.com/ pour créer un lien et le coller ici
0
Landry85 Messages postés 94 Date d'inscription   Statut Membre Dernière intervention   2 > fabien25000 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention  
 
https://mon-partage.fr/f/q7O9ZgGv/
0
Landry85 Messages postés 94 Date d'inscription   Statut Membre Dernière intervention   2
 
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   Statut Membre Dernière intervention   59
 
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   Statut Membre Dernière intervention   2
 
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