Extraction de données

[apt]

Bonjour à tous,


J'ai essayé d'adapter un exemple de JBoisgontier, ExtractionDynamique, mais voila l'extraction de données dans L1:L6 ne se fait correctement au changement dans la colonne numéro 2 (Service).

Merci.

 

[Dranreb]

Re : Extraction de données

Bonsoir
J'ai eu du mieux en ajoutant CriteriaRange:=Empty dans les paramètres du premier filtre...
À +

 

[BOISGONTIER]

Re : Extraction de données

Bonjour,

Voir PJ

JB

 

[apt]

Re : Extraction de données

Bonjour Dranreb et JB.

Ca marche bien mais j'aimerias comprendre pourquoi ce même code :

If Target.Column = 2 And Target.Count = 1 Then
    Application.EnableEvents = False
    [A1:D1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[L1], Unique:=True
    [L2:L1000].Sort Key1:=[L2]
    Application.EnableEvents = True
  End If

ne fonctionnait pas chez moi ?

Une deuxieme chose comment définir la liste déroulante en Excel 2007.

Merci.

 

[BOISGONTIER]

Re : Extraction de données

-Je suppose que la zone critère a été mémorisée sur ton classeur alors qu'elle n'ai pas mémorisée sur mon classeur.

-J'ai un pb avec la gestion d'erreur sur Excel 2007

Sur mon poste, avec Excel 2007, la sélection d'une feuille existante provoque un code erreur 9 alors qu'il devrait être égal à 0!
As tu le même pb sur ton poste?
Merci
JB

Sub essai()
Sheets("feuil2").Select
MsgBox Err.Number
On Error Resume Next
Sheets("feuil1").Select
MsgBox Err.Number ' Erreur 9 sur Excel 2007!!!!!
End Sub

JB

 

[apt]

Re : Extraction de données

Non, chez moi ça affiche 0 et puis 0

Sub essai()
Sheets("Août").Select
MsgBox Err.Number
On Error Resume Next
Sheets("Juin").Select
MsgBox Err.Number ' Erreur 9 sur Excel 2007!!!!!
End Sub