Vba excel fonction find [Résolu/Fermé]

Signaler
Messages postés
11
Date d'inscription
mardi 18 juillet 2017
Statut
Membre
Dernière intervention
24 octobre 2017
-
yg_be
Messages postés
9618
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 février 2020
-
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

2 réponses

Messages postés
219
Date d'inscription
jeudi 2 mai 2013
Statut
Membre
Dernière intervention
15 juillet 2019
19
Bonjour

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


K
Messages postés
11
Date d'inscription
mardi 18 juillet 2017
Statut
Membre
Dernière intervention
24 octobre 2017

merci bcp kalissi, en effet j'oublie tjs le SET !!!!!!!
yg_be
Messages postés
9618
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
16 février 2020
526
bonsoir, peux-tu alors marquer ce sujet comme résolu?