Se magari ci spieghi cos'è una cascata...![]()
Comunque, dopo aver selezionato l'anno, prima di aggiungerlo al listbox, verifichi se esiste già:
codice:Dim i As Long Dim sAnno As String Dim bPresente As Boolean For i = 0 to Listbox1.ListCount - 1 If Listbox1.List(i) = sAnno then ' esiste già, esco bPresente = True Exit For End If Next i If bPresente Then Exit Sub Else ' Tuo codice che aggiunge l'anno al listbox End If![]()