re-aide correction copie avec trie

Fariri · 30 Avril 2019

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
'

Staple1600 · 30 Avril 2019

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 · 1 Mai 2019

Staple1600 à dit:
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 · 1 Mai 2019

Bonjour,

Fariri à dit:
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 · 1 Mai 2019

Staple1600 à dit:
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 · 1 Mai 2019

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 · 1 Mai 2019

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

Staple1600 · 1 Mai 2019

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 · 1 Mai 2019

Staple1600 à dit:
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 · 1 Mai 2019

Re

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

Fariri · 1 Mai 2019

Staple1600 à dit:
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 · 1 Mai 2019

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 · 1 Mai 2019

Staple1600 à dit:

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"

Staple1600 · 1 Mai 2019

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 · 1 Mai 2019

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

re-aide correction copie avec trie

Fariri

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

Fariri

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

Fariri

XLDnaute Junior

Pièces jointes

Staple1600

XLDnaute Barbatruc

Fariri

XLDnaute Junior

Pièces jointes

Staple1600

XLDnaute Barbatruc

Fariri

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

Fariri

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

Fariri

XLDnaute Junior

Pièces jointes

Staple1600

XLDnaute Barbatruc

Fariri

XLDnaute Junior

Discussions similaires