re-aide correction copie avec trie

Fariri

XLDnaute Junior
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
VB:
 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
'
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re

Voila, on moins on a de quoi tester
Donc voici déjà une macro (test OK sur ton fichier)
VB:
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

XLDnaute Junior
Re

Voila, on moins on a de quoi tester
Donc voici déjà une macro (test OK sur ton fichier)
VB:
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 :
VB:
Sheets("Agents").Range("Tableau1[#All]").AdvancedFilter _
                Action:=xlFilterCopy, _
                CriteriaRange:=f.Range("K1:K2"), _
                CopyToRange:=f.Range("L1:AB1"), _
                Unique:=False
 

Pièces jointes

  • TOOTOO.xlsm
    24.1 KB · Affichages: 1

Staple1600

XLDnaute Barbatruc
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 ? :rolleyes:
Dim vDate As Date
 

Staple1600

XLDnaute Barbatruc
Re

Essaie la précédente macro ainsi modifiée
(test OK sur mon PC avec ton fichier exemple)
VB:
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

XLDnaute Junior
o_O
Re

Essaie la précédente macro ainsi modifiée
(test OK sur mon PC avec ton fichier exemple)
VB:
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" :oops:o_O
 

Pièces jointes

  • TOOTOO.xlsm
    24.5 KB · Affichages: 1

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 912
Membres
101 837
dernier inscrit
Ugo