Re : Recuperer le TOP et LEFT d'une cellule
Bonjour, essaie en remplaçant ton code par ceci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Fin, Ligne
Application.ScreenUpdating = False
LB3.Visible = False 'masque par defaut la ListBox
Colonne = Target.Column
Ligne = Target.Row
Select Case Target.Address
Case Is = "$B$7"
tablo = 9
Case Is = "$B$8"
tablo = 10
Case Is = "$B$10"
tablo = 11
Case Is = "$D$9"
tablo = 12
Case Else
Exit Sub
End Select
LB3.Visible = True
LB3.Left = ActiveCell(Ligne, 2).Left
LB3.Top = ActiveCell(1, Colonne).Top
While Worksheets("Main").LB3.ListCount <> 0
Worksheets("Main").LB3.RemoveItem (0)
Wend
For x = 2 To Sheets("Data Base").Cells(65536, tablo).End(xlUp).Row
Worksheets("Main").LB3.AddItem Sheets("Data Base").Cells(x, tablo).Value
Next x
End Sub
Ceci t'évite une fonction supplémentaire.
Cependant, Données/Validation, le fait très bien aussi, il suffit de lui coller une liste..
bon courage