Afficher ligne

Résolu
Bonjour,
Dans le Formulaire, pourriez-vous, quand on clique sur un nom, afficher dans la feuille DB la ligne correspondante au nom choisi. Pourriez-vous aussi m’expliquer comment vous avez fait, car j'apprend le langage VBA, le Formulaire je l'ai trouvé dans Google.
Merci beaucoup

https://cjoint.com/c/JHtiglbRW5l

2 réponses

  • Votes
  • Date
  • Date décroissante
  1. Contributeur
    Bonjour,

    comme ceci:

    Private Sub ListBox1_Click()
      For i = 1 To NbCol
        tmp = Me.ListBox1.Column(i - 1)
        If Not IsError(tmp) Then Me("textbox" & i) = tmp
      Next i
      Me.Enreg = Me.ListBox1.Column(NbCol)
      Sheets("BD").Activate
      Rows(ListBox1.ListIndex + 2 & ":" & ListBox1.ListIndex + 2).Select
    End Sub


    on met le code dans l'évement click de la ListBox

    ListBox1.ListIndex est le numéro de l'index cliqué.

    Cela commence à 0 il faut donc ajouter 1 et 1 pour la ligne d'en-tête cela fait 2

    Voilà c'est tout simple

    car j'apprend le langage VBA,

    depuis 2015, ce n'est pas récent!!!!!!!!!!!!

    1. Bonjour Le Pivert
      Çà fonctionne a merveille
      Un grand merci
      Cordialement
  2. Salut le fil,

    mic6259, en Message Privé je t'ai posté un correctif sur une discussion que j'ai traité avant l'été sur un tirage loto
    jette y un œil