Vba excel fonction find

Résolu/Fermé

xicamaria Messages postés 11 Date d'inscription mardi 18 juillet 2017 Statut Membre Dernière intervention 24 octobre 2017 - 28 sept. 2017 à 16:42
yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 - 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

A voir également:

Vba excel fonction find
Liste déroulante excel - Guide
Excel fonction si et - Guide
Formule excel - Guide
Fonction somme excel - Guide
Fonction moyenne excel - Guide

2 réponses

Réponse 1 / 2

Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20
28 sept. 2017 à 17:10

Bonjour

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

Réponse 2 / 2

xicamaria Messages postés 11 Date d'inscription mardi 18 juillet 2017 Statut Membre Dernière intervention 24 octobre 2017
28 sept. 2017 à 17:21

merci bcp kalissi, en effet j'oublie tjs le SET !!!!!!!

yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471
28 sept. 2017 à 21:40

bonsoir, peux-tu alors marquer ce sujet comme résolu?

Discussions similaires

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters