Choix du prénom pour un nom
-L'opérateur choisit un nom en A2.
-S'il y a plusieurs prénoms pour le nom --> choix du prénom en B2
DvNomPrenom
Liste des noms en I2:
=INDEX(Noms;MIN(SI(Noms<>"";SI(NB.SI(I$1:I1;Noms)=0;LIGNE(INDIRECT("1:"&LIGNES(Noms)));LIGNES(Noms)))))
Données/Validation en B2:
=DECALER(Prenoms;EQUIV($A$2;Noms;0)-1;;NB.SI(Noms;$A$2))
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
Target.Offset(0, 1) = Empty
n = Application.CountIf([CP], Target)
Select Case n
Case 1
Target.Offset(0, 1) = [CP].Find(Target, LookAt:=xlWhole).Offset(0, 1)
Case Is > 1
Target.Offset(0, 1).Select
SendKeys "%{down}"
End Select
End If
End Sub