Supprimer des lignes en fonction d'une valeur qui est variable

Bonjour,

Nouveau problème sur Excel : j'ai sur une feuille intitulée "Heure entrée-sortie" deux valeurs la première l'heure d'entrée (c'est une date + une heure) et l'heure de sortie (idem).
Dans une autre feuille intitulée "Données brutes", j'ai une extraction de données via un logiciel qui me remonte en fonction de l'heure et de la date (attention cette fois c'est dans deux colonnes différentes) un nombre de données qui varie en fonction de la plage horaire. Généralement le plage d'acquisition des données est un peu plus grande que je le souhaite et j'aimerai pouvoir faire une petite macro de manière à supprimer les lignes avant mon heure d'entrée et après mon heure de sortie. Sachant qu'il faudra qu'il n'y ai pas de trou, il faut vraiment supprimer les lignes et non pas les données.
Quelqu'un aurait-il une idée ?

Bonjour, tu devrais lire ceci: http://philippetulliez.developpez.co...dvancedfilter/

Alors en effet y'a des choses intéressantes notamment le filtre en fonction d'une date que j'essaie d'adapter mais ça marche pas ...

Code:

---

1 2 3 4 5 6 7 8

Sub Filter() Sheets("Données brutes").Select Range("C3:H10000").AdvancedFilter _ Action:=xlFilterInPlace, _ Sheets("Données").Select CriteriaRange:=Range("D2:E2"), _ Unique:=False End Sub

---

Ma feuille où mes données étant à trier s'appelle "Données brutes" avec la plage spécifiée et mes critères de sélections étant dans une autre feuille appelée "Données". Qu'est-ce que je déclare mal ?

Autre point est-ce que le critère comme cela ça le fait ?
Pièce jointe 301313

Citation:

---

Envoyé par jeffvb93

mais ça marche pas ...

---

Peux-tu être un peu plus précis? quel est le problème? un message d'erreur si oui lequel et a quel ligne? si non que se passe-t-il, tu n'obtiens pas le résultat attendu?

Vire tes select c'est inutile.

Code:

---

1 2 3 4 5 6 7

Sub Filter() Sheets("Données brutes").Range("C3:H10000").AdvancedFilter _ Action:=xlFilterInPlace, _ CriteriaRange:=Sheets("Données").Range("D2:E2"), _ Unique:=False End Sub

---

devrais déjà être mieux, cependant il me semble que les critères doivent être sur la même feuille que l'endroit où tu copies les données

Justement le soucis c'est qu'il ne se passe rien quand j'exécute la macro ça tourne mais aucun trie dans ma plage de données ... même en mettant tout sur la meme feuille. Déjà est-ce que la capture d'écran ci-après est correct pour définir les critères ?
Pièce jointe 301333

et le code associé

Code:

---

1 2 3 4 5 6

Sub Filter() Sheets("Données brutes").Range("C3:H10000").AdvancedFilter _ Action:=xlFilterInPlace, _ CriteriaRange:=Range("M2:N2"), _ Unique:=False End Sub

---

Bonjour,
Dans la zone des critères il faut faire la concaténation de l'opérateur de comparaison avec la référence à la cellule.
Exemple

Code:

---

=">=" & K1

---

Du coup tu aurais un code de ce type

Code:

---

1 2 3 4 5 6

Sub Filter() Sheets("Données brutes").Range("C3:H10000").AdvancedFilter _ Action:=xlFilterInPlace, _ CriteriaRange:="<=" & K2, _ Unique:=False End Sub

---

Le soucis c'est que quand j'exécute ça me renvoie référence non valide :/

Citation:

---

Envoyé par jeffvb93

CriteriaRange:="<=" & K2, _

---

Tu ne peux pas mettre un calcul là ou vba attend une plage ...
C'est dans l'écriture de tes critères (M2 et N2) que tu dois faire les modifications que te propose Philippe Tulliez

Salut.

Regarde le tutoriel de Philippe Tulliez à ce sujet, et particulièrement son chapitre sur VBA (http://philippetulliez.developpez.co...edfilter/#LXII). Il y a une illustration d'une plage de critères utilisée en VBA.

Ah pardon j'avais pas compris comme y'a eu une ligne de code ... Du coup j'ai fait ce que vous m'avez dis mais je pense que la où ça coince c'est ça
Pièce jointe 301352

Le format de K1 K2 est en hh:mm:ss mais dans la formule y'a bien une date associée, ça va poser problème ça pour trier mes données non ?

Construit ainsi, tu dois utiliser un critère formulé en rédigeant la formule par rapport à la première ligne de données de ta table et en faisant attention aux références relatives et absolues. Dans l'illustration jointe, tu verras que j'ai mis A6 sans $ (Excel interprétera cela comme étant A6 puis A7 en évaluant les critères ligne par ligne) et D$1, D$2 pour que la formule pointe toujours vers ces cellules en bouclant sur les lignes du tableau.

Pièce jointe 301373

C'est très bien expliqué dans le tuto de Philippe ( http://philippetulliez.developpez.co...cedfilter/#LVI ). C'est pour Excel mais le fonctionnement est évidemment le même en VBA. Philippe explique bien la mécanique à mettre en place.

Bonjour,

Citation:

---

Le format de K1 K2 est en hh:mm:ss mais dans la formule y'a bien une date associée, ça va poser problème ça pour trier mes données non ?

---

On ne peut effectivement pas comparer des chèvres et des choux.
Si dans ta base de données les colonnes contenant les dates et les heures sont séparées, tu ne peux évidemment pas utiliser tes critères comme tu l'as fait.

Deux solutions possibles

1. Tu ajoutes une colonne à ta liste de données (colonne I) où tu places une formule qui additionne la date (colonne G) et l'heure (Colonne H) avec comme étiquette par exemple (Date+heure) et tu remplaces les étiquettes des critères (Heure par Date+heure)
2. Tu modifies les critères
   Pour l'heure, tu soustrais la valeur entière de la valeur de K1 et la même chose pour K2 (voir ci-dessous)
   
   Code:

   ---

   =">=" & K1-ENT(K1)

   ---

   Pour la date, tu prends la valeur entière de K1 et si la date est différente entre K1 et K2 tu fais la même chose pour K2 soit 3 ou 4 critères (1 ou 2 pour la date et 2 pour les heures (voir ci-dessous)
   
   Code:

   ---

   =ENT(K1)

   ---

Même après avoir mis le bon format dans mes critères cad une heure (et il n'y a que l'heure dans la case la formule) et que j'actionne la macro rien ne se passe ...
En même temps dans cette macro y'a aucune ligne qui spécifie de supprimer au dessus et en dessous des critères ...

Code:

---

1 2 3 4 5 6

Sub Filter() Range("C3:H8600").AdvancedFilter _ Action:=xlFilterInPlace, _ CriteriaRange:=Range("M2:N2"), _ Unique:=False End Sub

---

Est-ce normal que en M2 et N2 le renvoie de la mise en forme ne soit pas le même avec que le format l'est :roll: ?
Pièce jointe 301403

Je te renvoie à l'exemple que je t'ai fourni tout à l'heure. Il illustre exactement ce que tu souhaites réaliser. Dans cet exemple, c'est la zone A1:A2 qui est la zone de critère.

N'hésite pas à lire le tuto de Philippe!!

Oui j'ai lu et je pense que j'ai compris.
Ce que j'arrive pas à faire c'est l'adapter en macro, je comprend pas pourquoi la macro agit sans rien faire ... Personne a une idée de code que je pourrai appliquer avec tout ce que j'ai filé en screen et en info ? Parce que je veux pas masquer les lignes je veux justement les supprimer sachant que déjà ça filtre pas correctement ... Je passe de ça
Pièce jointe 301445
avec le code suivant

Code:

---

1 2 3 4 5 6

Sub Filter() Range("C3:H8600").AdvancedFilter _ Action:=xlFilterInPlace, _ CriteriaRange:=Range("M1:M2"), _ Unique:=False End Sub

---

A ça ...
Pièce jointe 301450

Bonjour,

Citation:

---

Même après avoir mis le bon format dans mes critères cad une heure (et il n'y a que l'heure dans la case la formule) et que j'actionne la macro rien ne se passe ...

---

Outre la lecture du tutoriel, relis ma réponse précédente qui t'explique les deux cas de figure pour isoler la date et l'heure ou les rassembler suivant le cas choisi. Je t'assure cela fonctionne parfaitement car je teste toutes mes réponses.

Code:

---

En même temps dans cette macro y'a aucune ligne qui spécifie de supprimer au dessus et en dessous des critères ...

---

En effet, il y a trois étapes à suivre dans ta demande

1. Filtrer sur place suivant critères
2. Supprimer les lignes visibles
3. Désactiver le filtre

A lire ce billet Excel VBA – Supprimer des lignes suivant critères avec la méthode AdvancedFilter

Dans l'exemple que tu donnes, tu utilises M2:N2 comme plage de critère. Une plage de critères doit toujours contenir au moins deux lignes (celle des entêtes de colonne et au moins une pour l'expression des critères). Tu devrais donc utiliser M1:N2.

Cela étant, si tu utilises une formule comme je le préconise, tu pourrais utiliser M1:M2 en saisissant la formule en M2, mais la valeur en M1 ne peut alors pas être un nom de colonne de la plage de données.

J'ai ajouté des infos au précédent message si vous pouvez me dire ce que vous en pensez ...
Philippe les trois étapes sont réalisables par VBA ?

Désolé, mon exemple était extrait d'un Excel anglais. Ce n'est pas AND mais ET (si tu as une version française d'Excel). Et comme dit dans mon message précédent, si tu utilises une formule, le texte en M1 ne peut pas être un intitulé de colonne.

Dans ta formule, tu as aussi oublié les dollars sur K$1 et K$2. Relis bien mon post et le chapitre du tuto de Philippe qui explique le critère formulé. Si tu n'es pas à l'aise avec les $ => http://fauconnier.developpez.com/exc...es/references/ ;)

Je viens de modifier la formule !
Du coup j'ai mis en intitulé formule au dessus et non plus heure, par contre la zone de critère du coup c'est quoi juste la case ou y'a la formule ou le texte("formule") + la formule (ET....) juste en dessous ? Parce que pour le moment en ayant modifier la formule et le nom et en sélectionnant les deux cases comme critère ça me vire toutes les lignes sauf la première (same screen que le message au dessus) ...
Un autre problème j'arrive pas à ajouter la date et l'heure dans une même case. Pourtant j'ai bien une case définie en format date celle à cote en format heure et pourtant quand je fais une simple addition ça me renvoie #VALEUR ...