Liste déroulante sans doublons et dynamique

Bonjour

J'ai une liste de personnel.

J'ai besoin de soir combien d'achats chacun fait par mois.

J'aimerais pouvoir sur une feuille de saisie, saisir les noms de personnes qui ont fait des achats, avec une liste déroulante qui me ressort les noms contenu dans la liste du personnel, et faire en sorte que pour la saisie du prénom, il se borne aux quelques personnes portant le même nom (et pas avoir la liste totale de tous les prénoms).

Avez vous une astuce en passant uniquement par des formules et non du VBA ?

Merci !

Je vous joins un fichier en exemple

Bonjour Kik, bonjour le forum,

Comme tu ne l'as pas demandé et par pur esprit de contradiction :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim OL As Worksheet
Dim TV As Variant
Dim L As String

If Target.Column <> 1 Or Target.Row = 1 Then Exit Sub
Set OL = Worksheets("Listes de noms")
TV = OL.Range("A1").CurrentRegion
If Target.Value = "" Then Target.Offset(0, 1).Value = "": Exit Sub
For I = 2 To UBound(TV, 1)
    If UCase(Target.Value) = UCase(TV(I, 1)) Then L = IIf(L = "", TV(I, 2), L & "," & TV(I, 2))
Next I
With Target.Offset(0, 1).Validation
    .Delete
    .Add xlValidateList, Formula1:=L
End With
If UBound(Split(L, ",")) = 0 Then Target.Offset(0, 1).Value = L
End Sub

Je n'ai pas commenté les codes, comme je le fais habituellement, pour ne pas t'offenser...

Bonjour,

Une proposition !?

Cdlt.

Merci ThauThème pour le code.... mais effectivement, je voudrais me passer au maximum du VBA (plus contraignant au niveau du réseau de notre boite, et pas juste pour être contrariant )

Merci Jean-Eric, ce n'est pas vraiment ce que j'avais imaginé, mais ça peut-être une bonne idée.