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