Identifier les listes déroulante

Salutation,

Sub ife()
Dim i As Integer
Dim fin As Integer

Sheets("test").Select
For i = 1 To 28 Step 1

    Cells(i, 1).Select
    With Selection.Validation 'Cells(i, 1).Select

        If .InCellDropdown = True Then

        'Sheets("21-Range").Range("A8").Value = "=NOW()")
         Cells(i, 2) = 11111 ')

        Else
               Cells(i, 2) = 0

        End If
    End With
Next

Cells(1, 1).Select
End Sub

Mon problème est simple, je recherche un outil VBA pour pouvoir identifier une liste déroulante via VBA . J'ai crée un programme pour y arriver mais sans succès que voici. L'erreur afficher est "error 1004"

Bonjour,

Voici un essai en supposant qu'il n'y a pas de validation autre que par des listes :

sub test()
on error resume next
with range("ref") '<<<< adapter la référence de la plage de recherche
    .specialcells(xlCellTypeAllValidation).interior.color = 255
end with
end sub

Cdlt,

Sans succès, la ligne "with Range" est en surbrillance et le message d'erreur suivant s'affiche :

Bonjour LaventureEstivene, 3GB,

Avec le code ci-dessous, tu pourras sortir sans erreur 1004.

Sub Essai()
Dim X As Boolean
For i = 1 To 28
X = False: On Error Resume Next
X = Cells(i, 1).Validation.InCellDropdown
Cells(i, 2) = IIf(X = True, 11111, 0)
Next i
End Sub

Merci