Re : Trucs et astuces sur base de données
Bonsoir,
la liste déroulante:
y indiquer dans 'ThisWorkbook' ou directemement dans la feuille 'feuil1'
qu'est affiché dans la liste déroulante :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A2:A20], Target) Is Nothing Then
SendKeys "%{down}"
If Target = "" Then
Target = Range("data")(1) '(1) = y prend le 1ier texte de la liste déroulante
End If
End If
ci-joint fichier explicite,
à adapter à ton fichier,
pour la rubrique 'Rechercher
reste à être résolu encore, par toi, ou év. d'astuces d'autres,