Discussion :

[konig69]

Bonjour à tous,

Un problème fréquemment rencontré mais que je n'arrive pas à résoudre dans mon cas..

Je dispose d'un tableau Excel avec :

-Colonne A : Des nombres pouvant aller de 1 à 2000
-Colonne B : Un deuxième critère que l'on va appeler ici TOTO, TITI, TATA etc..

Ce tableau dispose d'un grand nombre de lignes et j'aimerais dans un second tableau (que je souhaite envoyer par mail par la suite) extraire uniquement les valeurs supérieures à 1095 pour le critère TOTO.

Cela m'arrangerait de passer par du VBA, mais si une formule Excel fonctionne de manière simple alors je suis preneur..

Auriez-vous une idée?

Merci beaucoup.

[joe.levrai]

Bonjour,

le plus efficace est le filtre avancés avec exportation des données vers autre emplacement

voir l'excellent tutoriel de Philippe Tulliez à ce sujet : http://philippetulliez.developpez.co...dvancedfilter/

utilisable directement sur Excel, et également automatisable en VBA

[Daniel.C]

Bonjour,

Avec un filtre automatique (il te reste à ajouter le collage où tu le souhaites) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Filtre()
    Dim Plage As Range
    Set Plage = Range("A1", Cells(Rows.Count, 2).End(xlUp))
    Plage.AutoFilter
    Plage.AutoFilter 1, ">1095"
    Plage.AutoFilter 2, "TOTO"
    If Application.Subtotal(103, Plage) > 1 Then
        Set Plage = Plage.SpecialCells(xlCellTypeVisible)
        Plage.Copy
        'colle "Plage" où tu veux
    End If
End Sub

[konig69]

Merci pour vos réponses, le filtre automatique fonctionne presque mais je devrais arriver à l'adapter à mon fichier