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
-
Messages postés
13334
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
27 novembre 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
218
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 !!!!!!!
Messages postés
13334
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
27 novembre 2020
748
bonsoir, peux-tu alors marquer ce sujet comme résolu?