Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Recuperer Ligner En Fonction De Certaines Valeurs

  • Initiateur de la discussion Initiateur de la discussion jeanphi
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jeanphi

XLDnaute Occasionnel
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
 
Re : Recuperer Ligner En Fonction De Certaines Valeurs

Bonsoir Jeanphi

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

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

bonne soirée
@+
 
Re : Recuperer Ligner En Fonction De Certaines Valeurs

bonjour à tous,

jeanphi à dit:
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 :

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

Personnellement testé et approuvé...
 
Re : Recuperer Ligner En Fonction De Certaines Valeurs

Bonsoir le fil,

Je n'ai pas testé et ne peut donc approuver😀
Mais :
Code:
If cell.Offset(0, 2) = "Oui" And cell.Offset(0, 8).Value = Date -7 Then
et
Code:
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
 
Re : Recuperer Ligner En Fonction De Certaines Valeurs

Bonsoir à tous,

Spitnolan08 à dit:
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 ...
 
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? 😡
 
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.

@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
Réponses
2
Affichages
718
M
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…