Sélectionner la ligne dans la feuille qui correspond a l'item dans une listebox avec double click

**nacereddine mourad** · 03/07/2022, 18h05

Bonjour:

Mon tableau est créé avec (l'outil de tableau)

le code ci-dessous sélectionne la ligne en dessus

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("personnel").Activate
Sheets("personnel").Rows(Me.ListBox1.List(Me.ListBox1.ListIndex)).Select
End Sub

Merci, salutation.

**modus57** · 03/07/2022, 18h31

Bonjour nacereddine mourad,

Voilà une solution parmi d'autre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    LaLigne = ListBox1.List(ListBox1.ListIndex, 1)
    MsgBox LaLigne
    Cells.Find(What:=LaLigne, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.EntireRow.Select
End Sub

Ça fonctionne aussi avec un simple clic.