Code pour trouver une date

[Linebaker]

Bonjour,

Je cherche la manière d'écrire mon code pour qu'il trouve un date dans une colonne dont voici le début :

If ActiveCell > «date» Then

Si la date contenu dans ma cellule est plus grande que la date inscrite dans mon code alors ...

Merci de m'aider.

 

[jeromegmc]

Salut,

If ActiveCell.Value > Date Then

A+

 

[Linebaker]

Merci pour ton aide. Une partie de corrigée que j'avais oublié (.Value). Il me reste toujours la façon d'écrire la date : est-ce que je dois écrire la valeur numérique de la date ou bien écrire de la même manière que dans me cellule (aaaa-mm-jj) ?
:unsure:

 

[jeromegmc]

Tu peux d'une part aller chercher la date dans un autre cellule :

Range ('Z30').value)

et pour l'autre solution: écrire la date dans le code:

madate = '#6/16/2005#'

Les 2 '..' de chaque coté des 'dieses' ne sont pas utile mais sinon les 'dieses' ne s'affiche pas

Attention écrit la date en français jj/mm/aa et VBA te la remet en anglais tout seul mm/jj/aa.

Pour info: DATE = date d'aujourd'hui dans VBA

Message édité par: jeromegmc, à: 16/06/2005 17:02

Message édité par: jeromegmc, à: 16/06/2005 17:03

Message édité par: jeromegmc, à: 16/06/2005 17:05

 

[Linebaker]

Merci beaucoup.
Ta première solution fonctionne très bien. J'ai essayé la deuxième mais sans succès.

Encore une fois merci.