Recuperer Ligner En Fonction De Certaines Valeurs

[jeanphi]

bonjour


dans une macro je souhaite que si la cellule (0,8) est égale à la date système moins 7 jours alors....
j'ai mis = date mais cà ne marche pas 😡
comment puis je faire svp???
merci bcp

For Each cell In Sheets("FEB").Range("E7:E" & Sheets("FEB").Range("E65536").End(xlUp).Row)

If cell.Value = "Validation ACHATS" Or cell.Value = "Traitement ACHATS" Then
If cell.Offset(0, 2) = "Oui" And cell.Offset(0, 8).Value = Date -7 Then

 

[Pierrot93]

Re : Recuperer Ligner En Fonction De Certaines Valeurs

Bonsoir Jeanphi

essaye peut être avec la fonction "DateDiff" cmme dans l'exemple ci dessous (à adapter) :

If DateDiff("d", Range("A1").Value, Date) < 7 And DateDiff("d", Range("A1").Value, Date) > 0 Then MsgBox "ok inf"

bonne soirée
@+

 

[gbinforme]

Re : Recuperer Ligner En Fonction De Certaines Valeurs

bonjour à tous,

If cell.Offset(0, 2) = "Oui" And cell.Offset(0, 8).Value = Date -7 Then

Il me semble que c'est tout bon si tu mets :

If cell.Offset(0, 2) = "Oui" And cell.Offset(0, 8).Value = (Date -7) Then

Personnellement testé et approuvé...

 

[Spitnolan08]

Re : Recuperer Ligner En Fonction De Certaines Valeurs

Bonsoir le fil,

Je n'ai pas testé et ne peut donc approuver😀
Mais :

If cell.Offset(0, 2) = "Oui" And cell.Offset(0, 8).Value = Date -7 Then

et

If cell.Offset(0, 2) = "Oui" And cell.Offset(0, 8).Value = (Date -7) Then

sont équivalents...

En conséquence si la 2ème formulation fonctionne chez Gbinforme c'est que le pb est ailleurs...

Cordialement

 

[gbinforme]

Re : Recuperer Ligner En Fonction De Certaines Valeurs

Bonsoir à tous,

En conséquence si la 2ème formulation fonctionne chez Gbinforme c'est que le pb est ailleurs...

ou que le problème détecté n'existe pas !

Il fait chaud, c'est le temps des mirages ... peut-être ...

 

[jeanphi]

Re : Recuperer Ligner En Fonction De Certaines Valeurs

Bonjour


j'ai essayé,

If cell.Offset(0, 2) = "Oui" And cell.Offset(0, 8).Value = (Date -7) Then

pas de débogage mais rien ne se produit
n'y a t'il pas un pb au niveau de la déclaration des variables? 😡

 

[Pierrot93]

Re : Recuperer Ligner En Fonction De Certaines Valeurs

Bonjour JeanPhi, Spitnolan, Gbinforme

pour que l'on t'en dise plus, mets peut être ton fichier en pièce jointe sans données confidentielles.

@+