filtre élaboré vba

[albert]

Bonjour à tous et à toutes, forumiens, forumiennes,

J’ai une base de données à filtrer.
Elle contient 2 fois 54 lignes à dissocier et à répartir dans deux feuilles correspondant à leurs codes respectifs : A et ABX.
Le résultat est parfait dans la feuille ABX, mais non dans la feuille A, où la série est recopiée une seconde fois sous la 1ère série… c’est pourtant le même code !!!

Comment donc éviter de recopier 2 fois la série de données dans la feuille A ?

Sub filtre()
Sheets('BaseDonnées').Select
'-------------------------------------------------------------
For n = 1 To Cells(1, 10) '----Cells(1, 10)=Nombre de valeurs en cellule 'J1'
Sheets('BaseDonnées').Select
a = Cells(n + 1, 10) '--Nom de la valeur
'----------------------------Extraction des cours de la valeur
Sheets('BaseDonnées').Range('A1:H65000').AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets(a).Range('J1:J2'), _
CopyToRange:=Sheets(a).Range('A1:G65000'), Unique:=True
Next
End Sub

Merci d’avance pour toute réponse me donnant une piste
albert


[file name=FiltreElaboré_20050320132052.zip size=14760]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FiltreElaboré_20050320132052.zip[/file]

 

[albert]

File Attachment auurait échoué ? l’adresse renvoie sur 'Derniers messages Forum'
Je fais donc un nouvel essai
[file name=FiltreElaboré_20050320133215.zip size=14760]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FiltreElaboré_20050320133215.zip[/file]

 

[JeanMarie]

Bonjour Albert

Ci-joint le code modifié.
Dans le nom de fichier ne met pas de caractères accentués, cela renvoi effectivement sur une page du forum, et non sur le fichier (pas pour moi, je suis sur mac).

Sub filtre()
   Application.ScreenUpdating = False

   With Sheets('BaseDonnées').Select
   
      For n = Cells(1, 10) To 1 Step -1 '----Cells(1, 10)=Nombre de valeurs en cellule 'J1'
         Sheets('BaseDonnées').Select
         a = Cells(n + 1, 10) '--Nom de la valeur
         
      'Détermine le critère du filtre, la plage du critère est K1:K2
      'La première ligne doit contenir le nom de l'entête de colonne
      Range('K2') = ''=' & a
      
      'Lancement du filtre
      .Range('A1:G65000').AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range('K1:K2'), _
      CopyToRange:=.Range('M1'), Unique:=True
      
      'Copie les données filtrées
      fin = .Range('N65536').End(xlUp).Row
      Sheets(a).Range('A1:F' & fin).Value = Range('N1:S' & fin).Value
  
      'Suppression de données filtrées pour la copie
      .Range('M1:S65536').ClearContents
      Next
   End With
   Application.ScreenUpdating = True
End Sub

@+Jean-Marie [file name=FiltreElabore.zip size=17021]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FiltreElabore.zip[/file]

 

[_Thierry]

Bonjour Albert, le Forum

Même problème pour ton second envoi de Fichier joint (qui, je le rappelle, doit être nommé sans caractères spéciaux, ni espace, et zippé avec moins de 50ko, en s'assurant que l'extension '.zip' est en minuscule)

Ici en l'occurrence c'est FiltreElaboré.zip qui pose problème.

Sinon sans le fichier difficile de te répondre

Bon Dimanche
@+Thierry

 

[albert]

Bonjour JeanMarie, @+Thierry ,le forum,

J’ai compris à présent le pb du renvoi ; sur l’ancien forum, il y avait un message qui nous indiquait qu’il ne faut pas mettre de caractères spéciaux

Merci JeanMarie, pour ta réponse rapide,
J’ai téléchargé ton fichier joint, pressé d’en voir le résultat, mais il y a un bogué sur le lancement du filtre

Range('A1:G65000').AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range('K1:K2'), _
CopyToRange:=.Range('M1'), Unique:=True

Je n’arrive pas à réparer, parce que je ne comprends pas ce qui se passe en colonne K, dans la feuille BaseDonnées, j’ai A en J2 et =ABX en K2 (malgré les explications dans le code)

Sans vouloir abuser,peux-tu éclairer ma lanterne pour faire fonctionner ?

albert

 

[ChTi160]

Salut le Fil
bonjour 'albert'
il te suffit de modifier la macro, je pense que Jean Marie a oublié de modifier après l'ajout de With Sheets('BaseDonnées')

il a mis With Sheets('BaseDonnées').Select
il faut
With Sheets('BaseDonnées')
.Select

Oupss et ça fonctionne impec merci Jean Marie

Message édité par: ChTi160, à: 20/03/2005 15:56

 

[JeanMarie]

Re...

Si tu as recopié le code dans ton fichier, as-tu mis dans la cellule K1 le terme Code, qui est l'entête de critère.

@+Jean-Marie

Message édité par: JeanMarie, à: 20/03/2005 16:18

 

[albert]

j'ai suivi le conseil de ChTi160,
c'est tout simplement prodigieux !
ça marche au quart de poil!

mille mercis
(j'ai passé la journée dessus)

albert

 

[chappyporfaro]

Re : filtre élaboré vba

Bonjour tout le monde

Je trouve l'exemple très intéressant. Mais si dans la colonne Code j'aurais des données alphanumériques du type xyyxxxxx (x représentant les chiffres et y les caractères (ex: 5EX12345)) et que je voudrais utiliser le filtre présenté dans ce fil pour filtrer par les 3 premiers caractères du code comment devrais-je m'y prendre?

Question pour Jean-Marie. Pourquoi dans cette partie du code utilises-tu la référence "M1" alors que le tableau + les critères de filtre arrête à la colonne K?

 'Lancement du filtre
.Range('A1:G65000').AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range('K1:K2'), _
CopyToRange:=.Range('M1'), Unique:=True
 
'Copie les données filtrées
fin = .Range('N65536').End(xlUp).Row
Sheets(a).Range('A1:F' & fin).Value = Range('N1:S' & fin).Value

Merci d'avance pour cet éclaircissement

Pierre