Macro qui ne fonctionne

Bonjour à toutes et à tous,

Après quelques jours de recherche, je ne parviens toujours pas à faire marcher ma macro.

Je vous explique le problème:

Je veux que si la valeur du combobox est égale à une valeur de ma plage de cellule alors cette macro me retourne oui.

Pour le moment, la macro ne fonctionne pas

Voici le code:

Private Sub CommandButton1_Click()

Dim rng As Range
Dim cel As Range
Set rng = Application.Range("DATA!D3:D65536").Cells
For Each cel In rng
    If cel.Value = Me.ComboBox1.Value Then
        MsgBox "Oui"
        Else
        MsgBox "Non"
        End If
    Next

 End Sub

Merci d'avance

PS: J'ai joint le fichier

Bonjour,

voici un code qui je pense fonctionne :

Private Sub CommandButton1_Click()

Dim rng As Range
Dim cel As Range
Dim lastRow As Integer
lastRow = Sheets("DATA").Range("D" & Rows.Count).End(xlUp).Row
Set rng = Application.Range("DATA!D3:D" & lastRow).Cells
For Each cel In rng
    If cel.Value = Me.ComboBox1.Value Then
        MsgBox "Oui"
        Exit Sub
    End If
Next cel
MsgBox "Non"

End Sub

Mais je ne comprend pas l'utilité de cette fonction. En effet tu remplis la liste déroulante avec les données de la colonne D et après tu vérifie que la valeur choisit est bien présente dans la colonne D ...

RemBabar

Merci beaucoup ça fonctionne

Pour le moment je voulais juste faire un test simple. Le but final n'étant pas celui-ci

En tout cas merci bien