Utilisation de cells.find
Bonjour à tous,
J'ai un fichier Excel avec dans une colonne tous les jours de l'année.
J'aimerais grâce à une macro me positionner par défaut sur la cellule du jour actuel. J'ai fait le code suivant qui est très simple mais à chaque fois que je l'exécute, j'ai l'erreur suivante : "Variable objet ou variable de bloc With non définie".
Code:
1 2 3 4 5 6 7 8
| Sub test()
Dim nom As String
nom = Left(Date, 2) & "/" & Mid(Date, 4, 2)
Cells.Find(What:=nom).Activate
End Sub |
Pourriez-vous m'aider ?