Problème pour écrire une macro IF

[vba95]

Bonjour à tous,

J’ai un problème avec IF dans ma macro.
Voila …
Je souhaite que ma macro « ExcelDowloadsRechercheDateDuJourcherche » recherche dans la Feuil2 si la date du jour est présente.
Si elle est absente elle exécute ma macro « ExcelDowloadsInsertDateDuJour » et si elle est présente elle exécute directement ma macro « ExcelDownloadsFiltreCopierColler »

Je m’arrive pas rédiger correctement ma condition avec IF.
Est-ce que quelqu’un pourrais m’aider.

Je mets en pièce jointe le fichier pour plus de clareté.

Merci par avance.

 

[Pierrot93]

Re : Problème pour écrire une macro IF

Bonjour,

regarde ceci, devrait te permettre d'avancer :

Sub ExcelDowloadsRechercheDateDuJour()
Dim x As Range
With Worksheets("Feuill2")
    .Activate
    Set x = .Columns(1).Find(Date, , xlValues, xlWhole, , , False)
End With
If x Is Nothing Then macropastrouve Else macrotrouve
End Sub

bonne journée
@+

 

[vba95]

Re : Problème pour écrire une macro IF

Bonjour Pierrot93,

Super ça fonctionne parfaitement.

UN GRAND MERCI.

A @