Bonjour,
Je suis en charge de gérer les inscriptions d’un évènement sportif et ses disciplines associées.
Dans un onglet « Inscriptions », un grand tableau recense toutes les inscriptions d’un certain nombre de pays
Dans un autre onglet et dans un tableau propre à une discipline, je crée (à partir du tableau onglet Inscriptions ) une liste déroulante de noms, associée au pays dont la cellule est contigüe.
Cela fonctionne parfaitement, sauf quand la liste de noms est trop importante, soit plus d’une vingtaine de noms !
Y a-t-il la possibilité d’augmenter la taille de cette liste ?
Merci beaucoup pour votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Set Insc = Sheets("Inscriptions")
Set Dico = CreateObject("Scripting.Dictionary")
 
'Si les conditions sont respectées (PAYS), le dictionnaire est rempli
For Each C In Insc.Range("E8:E" & Insc.Range("E" & Rows.Count).End(xlUp).Row)
    	If Target.Offset(, Nom_Pays) = C Then
        		'Prise en compte 1ère lettre du Prénom et Nom entier
        		Dico(Left(C.Offset(, -1), 1) & ". " & (C.Offset(, -2))) = ","
    	End If
Next C
 
'Création de la liste déroulante à partir du dictionnaire
Target.Validation.Add xlValidateList, Formula1:=Join(Dico.keys, ",")