Selection d'une ligne via combobox [Fermé]

Signaler
Messages postés
25
Date d'inscription
vendredi 8 avril 2016
Statut
Membre
Dernière intervention
20 janvier 2017
-
Messages postés
7370
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
7 mai 2021
-
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

Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 414
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
Messages postés
25
Date d'inscription
vendredi 8 avril 2016
Statut
Membre
Dernière intervention
20 janvier 2017

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.
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 414
Bonjour,

Comment tu fais "apparaitre les données de cette ligne dans le userform" ?
Messages postés
7370
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
7 mai 2021
632
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

Merci pour ta reponse ; je vais le tester et te faire signe. Merci
Messages postés
7370
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
7 mai 2021
632 > 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à