Selection d'une ligne via combobox

DAMMON Messages postés 25 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
Bonjour,
Merci pour les réponses à nos différents besoins.
Je viens une fois encore demander comment sélectionner automatiquement le ligne correspondante au donnée d'une cellule que je sélectionne dans le combobox?

J'ai un combo box alimenté à partir d'une feuille; qui me permet de sélectionner le "nom" dans la colonne "Nom" de la feuille, et par un bouton "Valider" , je fais apparaitre les données de cette ligne dans le userform qui contient plusieurs textbox. Maintenant je voudrais que lorsque je clique sur le bouton "Valider", que la ligne correspondante aux données qui apparaissent soit automatiquement sélectionnée.

Merci d'avance pour la réponse



--
"La prunelle des yeux de l'Eternel"

2 réponses

  1. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    Bonjour,

    je fais apparaitre les données de cette ligne dans le userform

    Donc tu as le "numéro de ligne" et il te suffit de faire :
    Rows("numéro de ligne").Activate
    ou
    Rows("numéro de ligne").Select
    0
    1. DAMMON Messages postés 25 Date d'inscription   Statut Membre Dernière intervention  
       
      Salut
      Il n'y a pas de ligne fixe. Sa pourait être n'importe quelle ligne. C'est là meme ma demande. Si le numero de la ligne est connu il n'y a aucun souci.
      0
    2. gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
       
      Bonjour,

      Comment tu fais "apparaitre les données de cette ligne dans le userform" ?
      0
  2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    en se servant de l'index de la comboBox tout simplement, comme ceci:

    Option Explicit
    Private Sub CommandButton1_Click()
    Dim ligne As Integer
    ligne = ComboBox1.ListIndex
    Range(ligne + 1 & ":" & ligne + 1).Select
    End Sub
    Private Sub UserForm_Initialize()
        Dim j As Integer
        'Récupère les données de la colonne A...
        For j = 1 To Range("A65536").End(xlUp).Row
            ComboBox1 = Range("A" & j)
            '...et filtre les doublons
            If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j)
        Next j
    End Sub
    

    0
    1. DAMMON
       
      Merci pour ta reponse ; je vais le tester et te faire signe. Merci
      0
      1. cs_Le Pivert Messages postés 8437 Statut Contributeur 730 > DAMMON
         
        Mets comme te l'a indiqué gbinform( que je salue)

        Rows(ligne + 1).Select


        a la place de:

        Range(ligne + 1 & ":" & ligne + 1).Select


        voilà
        0