Vba excel fonction find [Résolu]

xicamaria 11 Messages postés mardi 18 juillet 2017Date d'inscription 24 octobre 2017 Dernière intervention - 28 sept. 2017 à 16:42 - Dernière réponse : yg_be 4149 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 15 décembre 2017 Dernière intervention
- 28 sept. 2017 à 21:40
Bonjour,

Dans la ligne 1 de la feuile 1 j'ai mis de dates de la colonne "A3 à la colonne "H".
J'essaie de voir si la date 01/12/2016 s'y trouve avec la macro ci-dessous.
Mais j'ai l'erreur 91 : erreur Variabe objet ou variable with not definie.
Merci de votre réponse !

Code :

Sub yyy()

Dim jour As Date
Dim trouve As Range

jour = DateSerial(2016, 12, 1)
trouve = Sheets("Feuil1").Range("A1:H1").Cells.Find(what:=jour, LookAt:=xlWhole)
If trouve Is Nothing Then
MsgBox "trouve is nothing"
Else
MsgBox "trouvé !"
End If

End Sub
Afficher la suite 

3 réponses

Répondre au sujet
Kalissi 162 Messages postés jeudi 2 mai 2013Date d'inscription 1 décembre 2017 Dernière intervention - 28 sept. 2017 à 17:10
0
Utile
Bonjour

Set trouve = Sheets("Feuil1").Range("A1:H1").Cells.Find(what:=jour, LookAt:=xlWhole) 


K
Commenter la réponse de Kalissi
xicamaria 11 Messages postés mardi 18 juillet 2017Date d'inscription 24 octobre 2017 Dernière intervention - 28 sept. 2017 à 17:21
0
Utile
1
merci bcp kalissi, en effet j'oublie tjs le SET !!!!!!!
yg_be 4149 Messages postés lundi 9 juin 2008Date d'inscriptionContributeurStatut 15 décembre 2017 Dernière intervention - 28 sept. 2017 à 21:40
bonsoir, peux-tu alors marquer ce sujet comme résolu?
Commenter la réponse de xicamaria