Salut Bernard,
Salut l'équipe,
j'arrive à un résultat intéressant, je pense.
Le code est dans le module de la feuille 'Emprunt Livres'.
J'ai supprimé toutes les ListBox de la colonne 'Adhérents'.
Par contre, j'ai créé un contrôle ComboBox ActiveX, invisible lorsque inutilisé, qui apparaît sur la cellule en colonne [F:F] que tu sélectionneras.
Ce ComboBox contiendra ta BDD 'Adhérents'.
- au fur et à mesure que tu taperas les lettres , la sélection te proposera le premier nom de la BDD correspondant à ces lettres ;
- ENTER pour le sélectionner et afficher le nom sur la cellule sélectionnée ;
- si tu changes d'avis, tu cliques en dehors de la colonne et rien ne change ;
- pour effacer un nom malencontreusement encodé, un clic-droit sur la cellule suffit.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Dim tTab, tREC()
'
Me.cbREC.Visible = False
If Not Intersect(Target, Columns(6)) Is Nothing Then
Me.cbREC.Clear
Me.cbREC.Top = Target.Top
Me.cbREC.Left = Target.Left
Me.cbREC.Height = ActiveCell.RowHeight + 1
Me.cbREC.ColumnWidths = ActiveCell.ColumnWidth
With Worksheets("_data")
tTab = .Range("C2:D" & .Range("C" & Rows.Count).End(xlUp).Row).Value
End With
For x = 1 To UBound(tTab, 1)
Me.cbREC.AddItem tTab(x, 1) & " " & tTab(x, 2)
Next
Me.cbREC.Visible = True
Me.cbREC.Activate
End If
'
End Sub
A+