formule si cellule non vide

[B52]

Bonsoir à tous,

je voudrais pourvoir comparer deux dates afin d'afficher une msgbox si la différence de ces 2 dates est supérieure à 30 jous.

J'ai donc inclus ce code:

if range ('A1').value > Now then
msgbox 'date dépassée'
End if

cela marche pour un ligne.

mais je voudrais pouvoir comparer toute les lignes de mon fichier en ignorant bien sur les lignes qui ont des cellules vides.

en espérant avoir été clair pour tous, je vous souhaite uen bonne soirée.

@+
Stéphane

 

[PascalXLD]

Bonjour

Un code du genre

dim x as integer
dim message as string

For x = 1 to range('A65536').end(xlup).row
if range('A' & x)<>'' And RANGE('A'& x)>Date then
message =message & ', ' & x
end if
next

If message<>'' then msgbox 'Date dépassée aux lignes ' & message

 

[B52]

Bonsoir Pascal76,

merci pour ton code, je vais essayer de suite !

@+

Stéphane

 

[B52]

re,

ça marche Pascal76, cependant je voudrais afficher les lignes dont la date de la colonne A sont supérieure de 30 jours à la date du jour.
Par avance merci.

Stéphane

 

[Robert]

Bonsoir B52, Pascal, le forum,

Modifie alors le code de Pascal comme suit :

If Range('A' & x) <> '' And Range('A' & x) > DateAdd('d', 30, Date) Then

 

[B52]

bonsoir Robert, Pascal, le forum,

J'ai remplacer le code comme tu me la indiqué, mais cela ne marche pas.
A quoi correspond le: 'd' ? je pense que c'est cela qui ne marche pas.
Merci

 

[B52]

Oups...

En fait ça marche mais c'est moi qui me suis mal exprimé...
J'ai demandé : 'date de la colonne A sont
supérieure de 30 jours à la date du jour' alors que je veux que se soit INFERIEUR de 30 jours à la date du jour... désolé

 

[Robert]

Bonsoir Stéphane, Pascal, bonsoir le forum,

Ha ! Tu me rassures, je t'avais préparé la pièce jointe pour t'expliquer. [file name=Stephane_date.zip size=12988]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Stephane_date.zip[/file]