Selection d'une ligne via combobox

Fermé
DAMMON Messages postés 25 Date d'inscription vendredi 8 avril 2016 Statut Membre Dernière intervention 20 janvier 2017 - 5 juil. 2016 à 17:56
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 11 juil. 2016 à 17:53
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



2 réponses

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
5 juil. 2016 à 21:27
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
DAMMON Messages postés 25 Date d'inscription vendredi 8 avril 2016 Statut Membre Dernière intervention 20 janvier 2017
9 juil. 2016 à 17:35
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
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
9 juil. 2016 à 18:38
Bonjour,

Comment tu fais "apparaitre les données de cette ligne dans le userform" ?
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
9 juil. 2016 à 19:54
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
Merci pour ta reponse ; je vais le tester et te faire signe. Merci
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728 > DAMMON
11 juil. 2016 à 17:53
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