Yldie
XLDnaute Junior
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
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