Filtre à la veille (date)
Bonsoir,
Je me tourne vers vous pour raisons que je ne trouve pas de solution à mon soucis.
Je réalise un filtre sur la colonne B qui est censé me faire apparaître que les lignes du tableau qui sont daté de la veille.
la macro fonctionne sauf le lundi. En effet le passage du week end fait que je me retrouve sans aucune ligne daté de la veille et je ne sais pas comment allée rechercher le dernier jours ouvré. (soit le vendredi) je parle de jours ouvré pour raison que le problème va se répété après un jours férié.
Est ce que vous auriez une idée de comment me dépannée.
merci d'avance de votre aide.
Salut le Forum
Bienvenue comme nouveau membre Krilo
Sans fichier exemple c'est assez difficile.
Mytå
Bonjour,
le fichier est assez imposant d'ou le fait que je ne l'avais pas mis.
Voici le passage coder qui fait référence au filtre d'hier.
ActiveSheet.Range("$A$1:$CQ$22345").AutoFilter Field:=6, Criteria1:= _
xlFilterYesterday, Operator:=xlFilterDynamic
J'ai un second soucis qui vient d'apparaître.
rajout de la formule pour la moyenne du TAT en BX
nbreligne_tat4 variable ok le nombre de ligne dans mon tableau est bien compter.
Range("BX" & nbreligne_tat4 + 1).Select ' ok la cellule est bien sélectionner.
ActiveCell.FormulaR1C1 = "=moyenne(BX2:"BX"&nbreligne_tat4)" '<== marche pas pas moyen de déclarer ma variable
merci d'avance de votre aide
Bonjour,
1)
tu ajoutes une colonne pour filtrer dessus avec :
=SERIE.JOUR.OUVRE(B2;-1;fériés)
férié étant une plage où tu as établis la liste des fériés de l'année
2)
'<== marche pas pas moyen de déclarer ma variable
marche pas ne veut strictement rien dire.
pas moyen de déclarer ma variable on déclare une variable avec Dim ce qui n'a rien à voir
Essaie avec :
ActiveCell.FormulaR1C1 = "=moyenne(BX2:BX"& nbreligne_tat4 & ")"
le fichier est assez imposant d'ou le fait que je ne l'avais pas mis.
Dans ce cas il faut le réduire en ne laissant que qcq lignes, ou sinon en créer un avec le nécessaire pour la compréhension.
eric
eriiic a écrit :Essaie avec :
ActiveCell.FormulaR1C1 = "=moyenne(BX2:BX"& nbreligne_tat4 & ")"
Salut Eric,
ta commande "=moyenne" ne sera pas reconnue en VBA,
il faudrait remplacer la ligne par un code du genre
ActiveCell.FormulaR1C1 = Application.WorksheetFunction.Average(Range("BX2:BX" & nbreligne_tat4 & ""))Cordialement
Bonjour Game Over,
ta commande "=moyenne" ne sera pas reconnue en VBA,
il faudrait remplacer la ligne par un code du genre
Il me semble que le demandeur veut la formule dans la cellule et non son résultat calculé.
C'est vrai que j'ai plus regardé les paramètres mal saisis et qu'il faudrait mieux mettre :
ActiveCell.FormulaLocal = "=moyenne(BX2:BX" & nbreligne_tat4 & ")"
eric
Bonjour
merci pour vos retours.
je vient de tester la formule pour la moyenne ca fonctionne nickel.
il ne me reste plus cas faire le nécessaire pour la date.
j'essaye ça cette après midi et faire le sujet si cela fonctionne.
A suivre ...
@eriiic
j'ai peut être mal compris alors, autant pour moi
Bonjour
Je vient de faire le tri dans le fichier afin de pouvoir vous le faire parvenir.
N'ayant pas réussi à appliquer ce que me recommandais eriiic je reviens vers vous.
donc je rappel mon soucis
j'ai une macro qui tourne tout les jours et qui va récupérer les données de la veille.
Elle fonctionne relativement bien avec ce morceau de macro sauf les lundi et lendemain de jour férié.
'Date d'arrivé à hier
'
ActiveSheet.Range("$A$1:$CQ$22345").AutoFilter Field:=6, Criteria1:= _
xlFilterYesterday, Operator:=xlFilterDynamic
Merci d'avance de votre aide.
Bonjour,
Vu que te recherches les dates de la veille tu aurais pu en mettre et éviter de t'arrêter au 11/04...
Exemple avec bouton à 2 états
eric
humm retour intéressant mais qui ne me convient pas complètement.
Dans l'exemple fournit ça retire systhématiquement un jour.
Hors dans ma situation aujourd'hui on est le 24/04 j'ai donc ce matin récupérer tout les dates d'arrivé d'hier, et lundi je viendrait choper tout les date d'arrivé de vendredi.
et il faudra que ca se réalise via macro
désoler d'être un peu lourd et merci encore de votre aide.
Pas bonjour non plus,
10 jours plus tard, tu ne fais pas un gros effort de suivi...
Dans l'exemple fournit ça retire systématiquement un jour.
C'est la définition de 'la veille'.
Et si tu faisais un effort tu verrais que ça en retire 2 le dimanche.
Et dans un autre effort tu recopies les formules sur toutes les lignes qui t'intéressent, peut-être que ça marchera mieux.
et il faudra que ca se réalise via macroC'est en vba...
Et même avec des explications plus complètes je vais m'arrêter là je pense.
A toi de modifier les formules si ça ne va pas et compléter le vba si besoin.
eric