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

  1. 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
  2. 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
    1. 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
  3. 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
    1. fabien25000 Messages postés 697 Statut Membre 59
       
      et dans thisworkbook_open?
      0
      1. Landry85 Messages postés 96 Statut Membre 2 > fabien25000 Messages postés 697 Statut Membre
         
        pas mieux ...
        0
    2. fabien25000 Messages postés 697 Statut Membre 59
       
      pouvez mettre un lien de votre fichier anonymisé?
      0
      1. 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
      2. Landry85 Messages postés 96 Statut Membre 2 > fabien25000 Messages postés 697 Statut Membre
         
        https://mon-partage.fr/f/q7O9ZgGv/
        0
  4. 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
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. 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
    1. 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