Autres XL2007 : valeurs suite à filtre

[erics83]

Bonjour,
J'ai une BD, sur laquelle j'ai mis un filtre automatique. Actuellement, je crée mes filtres, copie le tableau filtré et copie/colle les valeurs, et enlève le filtre pour pouvoir "voir" les valeurs (pour pouvoir les ré-utiliser par la suite.
Avant :

Pendant :

Après :

C'est long....et fastidieux...ne serait-il pas possible de faire autrement ? en utilisant la formule DECALER (mais j'ai pas trouvé)...ou en utilisant un formulaire ?

Merci pour votre aide,

(je mets un fichier test en PJ)
Merci,

 

[JHA]

Bonjour à tous,

Le filtre avancé doit pouvoir t'aider.

JHA

 

[Robert]

Bonjour le fil, bonjour le forum,

Une proposition VBA avec le code ci-dessous :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PL As Range 'déclare la variable PL (PLage)

Set O = Worksheets("Feuil1") 'définit l'onglet O
Set PL = O.Range("A1").CurrentRegion 'définit la plage PL
O.Range("J1").CurrentRegion.Clear 'efface les anciennes données
If O.FilterMode = True Then 'condition : si au  moins un filtre a été activé
    PL.SpecialCells(xlCellTypeVisible).Copy 'copie la plage PL
    O.Range("J1").PasteSpecial (xlPasteValues) 'colle les valeurs à partir de J1
    O.ShowAllData 'supprime le(s) filtrea9s) automatique(s)
Else 'sinon
    MsgBox "Aucun filtre n'a éte activé !" 'message
End If 'fin de la condition
End Sub

Le fichier :

 

[erics83]

Merci JHA, j'avais essayé mais avec des erreurs (surement des erreurs de frappe et/ou conditions...)

Merci Robert, c'est exactement ce que je cherchais à obtenir....et en plus, j'ai "compris" le code grace aux explications...Super MERCI !!
Merci pour votre aide,
Eric

 

[JHA]

Bonjour à tous,

En passant par une formule sur le filtre avancé

JHA