Afficher ligne

Résolu/Fermé
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 - 19 août 2020 à 10:11
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 21 août 2020 à 14:01
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

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié le 19 août 2020 à 14:54
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!!!!!!!!!!!!

0
mic6259 Messages postés 342 Date d'inscription mercredi 4 mars 2015 Statut Membre Dernière intervention 11 décembre 2023 1
19 août 2020 à 14:56
Bonjour Le Pivert
Çà fonctionne a merveille
Un grand merci
Cordialement
0
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 082
21 août 2020 à 14:01
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
0