Discussion :

[linousxm]

Bonjour,
Afin d'assurer la certification pour la gestion responsable des forêts, je dois rendre un rapport mensuel de notre consommation de papier. J'ai créé une copie du fichier (ci joint, l'original étant trop lourd), mais je désirerai que les lignes ne contenant pas certaine mention soient masquées automatiquement.
exemple : je ne voudrais garder que les colonnes PEFC 100 à l'aide d'un bouton. J'enregistre, puis idem avec PEFC 70, FSC MIX etc...
Merci d'avance
Linou

[mercatog]

Bonjour,
un filtre automatique n'est pas adapté à ton cas?

[linousxm]

Bonjour
Merci de ta réponse si rapide,
Non car nous manipulons ce fichier à plusieurs et je pense que si je ne met pas de macro avec juste un bouton pour l'appliquer il va y avoir des catastrophes
Linou

[mercatog]

Un filtre auto sous vba par simple bouton.
regarde l'aide du côté de

Code :

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

Range(X).AutoFilter

[laetitia]

bonjour linousxm l'ami mercatog une autre possibilitée passer par un imputbox

exemple recherche sur la colonne D a adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Option Compare Text
Sub es()
 Dim s, a As Variant, Message As String, i As Long
    Cells.EntireRow.Hidden = False
    Application.ScreenUpdating = False
     s = InputBox(Message, " donnees a visualiser")
        If s = "" Then Exit Sub
          Set a = Range("d1:d" & Cells(Rows.Count, 4).End(xlUp).Row).Find(What:=s)
           If a Is Nothing Then
             MsgBox "le nom recherche ne figure pas dans la liste"
            es
          Else
            For i = 1 To Cells(Rows.Count, 4).End(xlUp).Row
           If Cells(i, 4) <> s Then Rows(i).EntireRow.Hidden = True
        Next i: End If
    End Sub