Positionner le curseur dans une combobox à l'ouverture

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

  1. 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
    1. 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
  2. https://mon-partage.fr/f/q7O9ZgGv/

    ci joint, un fichier de principe, pour mes essais :-)
    Merci
    0
    1. Je viens de tester :

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

      End Sub

      Marche pas mieux... :-(
      0
      1. et dans thisworkbook_open?
        0
      2. @fabien25000pas mieux ...
        0
      3. pouvez mettre un lien de votre fichier anonymisé?
        0
      4. @fabien25000https://mon-partage.fr/f/q7O9ZgGv/
        0
    2. 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
      1. Merci, mais ça ne fonctionne pas...

        Je n'utilise pas de UserForm, je suis sur une feuille excel classique.
        0
    3. Pour le deuxieme temps, j'ai trouvé :

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

      Plus que le premier :-)
      0