Chers XLDnautes,
Voici mon code qui fonctionne très bien avec un nombre raisonnable d'items :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect ("a")
If Not Intersect([I5:I671], Target) Is Nothing And Target.Count = 1 Then
For Each c In [AG1:AG9]
p = 0
For Each k In [I5:I671]
If k = c Then p = p + 1
Next k
For n = 1 To c.Offset(0, 1) - p
temp = temp & c & ","
Next n
Next c
On Error Resume Next
Target.Validation.Delete
Target.Validation.Add xlValidateList, Formula1:=Left(temp, Len(temp) - 1)
ActiveSheet.Protect ("a")
End If
End Sub
Or mon problème persiste dès lors que j'augmente les items notamment en colonne AH......
Savez combien d'items la liste de validation est-elle capable de gérer ?
Merci beaucoup pour votre aide, j'aimerais vraiment qu'elle puisse en gérer au moins une soixantaine !?!?
Encore merci
Yldie