Positionner le curseur dans une combobox à l'ouverture

Résolu
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


5 réponses

Landry85 Messages postés 96 Statut Membre 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 697 Statut Membre 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 96 Statut Membre 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 96 Statut Membre 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 697 Statut Membre 59
 
et dans thisworkbook_open?
0
Landry85 Messages postés 96 Statut Membre 2 > fabien25000 Messages postés 697 Statut Membre
 
pas mieux ...
0
fabien25000 Messages postés 697 Statut Membre 59
 
pouvez mettre un lien de votre fichier anonymisé?
0
fabien25000 Messages postés 697 Statut Membre 59 > fabien25000 Messages postés 697 Statut Membre
 
https://www.cjoint.com/ pour créer un lien et le coller ici
0
Landry85 Messages postés 96 Statut Membre 2 > fabien25000 Messages postés 697 Statut Membre
 
https://mon-partage.fr/f/q7O9ZgGv/
0
Landry85 Messages postés 96 Statut Membre 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 697 Statut Membre 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 96 Statut Membre 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