re-aide correction copie avec trie

[Fariri]

Bonsoir,

Je dois faire un filtre AVEC doublon et j'ai pour habitude d'utiliser le code ci-dessous, mon soucis est que celui ci filtre sans doublon.
mon second soucis est que si par exemple je veux retirer la valeur 2000 d' une cellule, le code ne prend pas en compte les valeurs contenant la valeur 2000 (par exemple le 08/08/2000).

Pourriez vous m'aider à corriger ce code
merci pour votre aide

Dans mon code j'ai besoin qu'il extrait toutes les valeurs contenant par exemple 2000 et non les valeurs = à 2000

 On Error GoTo gestionerreur: ' On déclenche la gestion des erreurs

   Feuil2.Range("AQ1").Value = ("YY") ' On affecte à la cellule AQ1 de la feuille Données  "le nom de l'adresse de la colonne" que l'on souhaite chercher dans la feuille Véhicule_Agent
   Feuil2.Range("AQ2").Value = ListBox7.List(ListBox7.ListIndex) ' On affecte à la cellule AQ2 de la feuille Données, la valeur que l'on a récupérer dans la ListBox7 en colonne 1
'



Feuil6.Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, criteriarange:=Feuil2.Range("AQ1:AQ2"), CopyToRange:=Feuil2.Range("AR1:AZ1"), Unique:=False  ' il copie les valeurs dans le tableau en plage AR1:AZ1
'

 

[Staple1600]

Bonsoir

Fariri
Joins un fichier exemple
Histoire qu'on ne perde pas notre temps à recréer un classeur qui existe déjà sur ton disque dur 😉

 

[Fariri]

Bonsoir

Fariri
Joins un fichier exemple
Histoire qu'on ne perde pas notre temps à recréer un classeur qui existe déjà sur ton disque dur 😉

Bonjour,

En fait je cherche juste à savoir comment insérer dans la dernière ligne l'instruction : LookAt:=XlWhole

merci

 

[Staple1600]

Bonjour,

Bonjour,
En fait je cherche juste à savoir comment insérer ...

Fariri
En fait, moi je cherche un demandeur qui prenne le temps de créer un fichier exemple
(histoire que les répondeurs ne perdent pas leur temps à recréer un fichier qui existe déjà sur le disque dur du demandeur 😉
Oui je sais me repète
😉

 

[Fariri]

😉

Bonjour,

Fariri
En fait, moi je cherche un demandeur qui prenne le temps de créer un fichier exemple
(histoire que les répondeurs ne perdent pas leur temps à recréer un fichier qui existe déjà sur le disque dur du demandeur 😉
Oui je sais me repète
😉

ok je me suis mise à la tache de suite et crée un tit fichier 😀 😉

 

[Staple1600]

Re

Voila, on moins on a de quoi tester
Donc voici déjà une macro (test OK sur ton fichier)

Private Sub CommandButton1_Click()
Dim vDate As Date
Set f = Sheets("Feuil2")
vDate = CDate(Format(TextBox2, "mm/dd/yyyy"))
f.Range("K1:K2").Value = Application.Transpose(Array("DATE DE DEBUT", vDate))
Sheets("Agents").Range("Tableau1[#All]").AdvancedFilter _
                Action:=xlFilterCopy, _
                CriteriaRange:=f.Range("K1:K2"), _
                CopyToRange:=f.Range("L1:AB1"), _
                Unique:=False
Me.Hide
End Sub

Elle recopie bien les données selon la date saisie dans le TextBox2.

 

[Fariri]

Re

Voila, on moins on a de quoi tester
Donc voici déjà une macro (test OK sur ton fichier)

Private Sub CommandButton1_Click()
Dim vDate As Date
Set f = Sheets("Feuil2")
vDate = CDate(Format(TextBox2, "mm/dd/yyyy"))
f.Range("K1:K2").Value = Application.Transpose(Array("DATE DE DEBUT", vDate))
Sheets("Agents").Range("Tableau1[#All]").AdvancedFilter _
                Action:=xlFilterCopy, _
                CriteriaRange:=f.Range("K1:K2"), _
                CopyToRange:=f.Range("L1:AB1"), _
                Unique:=False
Me.Hide
End Sub

Elle recopie bien les données selon la date saisie dans le TextBox2.

Merci pour le code, mais je l'ai testé et je retrouve une erreur 1004 "le champ est incorrect ou manquant dans la zone d'extraction", de plus en rentrant la valeur 2000 dans le TextBox2, vdate se trouve avec une valeur de : 22/06/19005
Et aucune donnée ne se copie dans la feuille données
Je te joins le fichier avec les modifs que j'ai fait (pourrais tu stp me dire ce qui ne va pas, merci)


l'erreur se trouve dans la ligne :

Sheets("Agents").Range("Tableau1[#All]").AdvancedFilter _
                Action:=xlFilterCopy, _
                CriteriaRange:=f.Range("K1:K2"), _
                CopyToRange:=f.Range("L1:AB1"), _
                Unique:=False

 

[Staple1600]

Re

Evidemment tel quel mon code attend qu'on saisisse une date valide dans le TextBox2
(Comme précisé, j'ai testé ma macro avant de la poster...)
D'ailleurs le nom de la variable et sa déclaration sont assez explicite, non ? 🙄
Dim vDate As Date

 

[Fariri]

Re

Evidemment tel quel mon code attend qu'on saisisse une date valide dans le TextBox2
(Comme précisé, j'ai testé ma macro avant de la poster...)

en fait ce que je recherche, c'est rentré une année dans la textbox et que toute les valeurs contenant la même année dans la colonne demandé soient recopier dans la feuille données
on s'est mal compris

 

[Staple1600]

Re

Comme dirait l'autre 😉
"Ce que l’on conçoit bien s’énonce clairement "

 

[Fariri]

😳

Re

Comme dirait l'autre 😉
"Ce que l’on conçoit bien s’énonce clairement "

😳 Y'a t-il un moyen simple pour rentrée l'année et retrouver toute les dates contenant cette année ?

 

[Staple1600]

Re

Essaie la précédente macro ainsi modifiée
(test OK sur mon PC avec ton fichier exemple)

Private Sub CommandButton1_Click()
Dim vAnnée
Set f = Sheets("Feuil2")
vAnnée = TextBox2.Value
f.Range("K2").FormulaR1C1 = "=YEAR(Agents!RC[-2])=" & vAnnée
Sheets("Agents").Range("Tableau1[#All]").AdvancedFilter _
                Action:=xlFilterCopy, _
                CriteriaRange:=f.Range("K1:K2"), _
                CopyToRange:=f.Range("L1:AB1"), _
                Unique:=False
Me.Hide
End Sub

 

[Fariri]

😵

Re

Essaie la précédente macro ainsi modifiée
(test OK sur mon PC avec ton fichier exemple)

Private Sub CommandButton1_Click()
Dim vAnnée
Set f = Sheets("Feuil2")
vAnnée = TextBox2.Value
f.Range("K2").FormulaR1C1 = "=YEAR(Agents!RC[-2])=" & vAnnée
Sheets("Agents").Range("Tableau1[#All]").AdvancedFilter _
                Action:=xlFilterCopy, _
                CriteriaRange:=f.Range("K1:K2"), _
                CopyToRange:=f.Range("L1:AB1"), _
                Unique:=False
Me.Hide
End Sub

merci pour la modif, je l'ai testé et je retrouve une erreur 1004 "le champ est incorrect ou manquant dans la zone d'extraction" 😳😵

 

[Staple1600]

Re

Peut-pas mieux dire 😉

(test OK sur mon PC avec ton fichier exemple)

A toi de relire attentivement ta discussion et de vérifier que
1) Les noms des feuilles sont bien tels que dans ma macro
2) que les plages de cellules sont identiques
etc...

 

[Fariri]

Re

Peut-pas mieux dire 😉


A toi de relire attentivement ta discussion et de vérifier que
1) Les noms des feuilles sont bien tels que dans ma macro
2) que les plages de cellules sont identiques
etc...

Effectivement, ça marche nickel. Je me suis totalement embrouillée avec les feuilles 😵, je vais essayé de mieux comprendre le truc
merci pour ton aide 😀