Filtre apres liste deroulante

Re forum

La macro qui marche bien si "F" est cellule, ne l'est plus si "F" contien une liste deroulante,

comme si que la valeur de la cellule apres choix dans la liste est egal à zero?

Une solutaion?

Sub test()

Sheets("statis").Range("A11:B65536").ClearContents

For N = 11 To Sheets("Réclamation RC").Range("F65536").End(xlUp).Row

Set C = Sheets("statis").Columns(1).Find(Sheets("Réclamation RC").Range("F" & N), LookIn:=xlValues, lookat:=xlWhole)

If Not C Is Nothing Then

C.Offset(0, 1) = C.Offset(0, 1) + 1

Else

Sheets("statis").Range("A65536").End(xlUp).Offset(1, 0) = Sheets("Réclamation RC").Range("F" & N)

Sheets("statis").Range("A65536").End(xlUp).Offset(0, 1) = 1

End If

Next N

End Sub

Crdt,

Bonjour kikim78, forum,

Tu auras plus de chances d'avoir de l'aide en joignant un bout de fichier kikim78.