filtrer avec plusieurs critères en VBA

[blancolie]

Bonsoir le forum;

Dans ce fichier ci-joint et dans l'onglet données planning un filtrage avec plusieurs critères.Dans la feuille données planning j'ai mis en H1 , J1 et L1 et c'est dans les cellules au fond gris qu'on met les critères.

Je m'explique : le code suivant :

Option Explicit
Option Compare Text    'la casse est ignor?e
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Sh As Worksheet, col&

    Set Sh = ThisWorkbook.Sheets("Données Planning")

    [A1].AutoFilter 'ca peux etre ca tout simplement


    Select Case Target.Address(0, 0)
    Case "I1": col = 3
    Case "K1": col = 4
    Case "M1": col = 5
    Case Else: col = 0:
    End Select

    If Target.Value <> "" And col <> 0 Then
        [A1].AutoFilter Field:=col, Criteria1:=Target.Value
    Else
        Sh.AutoFilterMode = False
    End If
End Sub

Ce code suivant qu'un membre m 'a gentiment construit en répondant à mon post précédent marche bien mais j'aimerais avoir un filtrage qui va plus dans le détail c'est a dire quand je sélectionne l'agent, j'aimerais qu'on puisse filtrer les différentes permanence et les différents périodes du même agent. j'espère avoir été assez clair. j'aimerais aussi faire l'inverse à partir de la période.

Si aucune cellule contenant de critères, faut que le filtrage s'efface. Peut-être que à partir d'un bouton, on peut réinitialiser mon petit menu ?

Cette liste est amené à s'agrandir ou à être diminué, don cil faut que le codage prenne en compte les rajouts de lignes ou de suppressions sinon, je risque d'avoir un erreur.

Merci à vous.

pouvez vous me mettre en parallèle le code au cas ou je n'arrive pas à ouvrir le fichier. cela m'arrive quelquefois a cause du vba. Merci à vous

 

[soan]

Le carrosse de Madame la Marquise est avancé !

soan

 

[blancolie]

merci cela fonctionne mais l impression que cela soit pas réactif, cela met du temps a s effacer

 

[soan]

J'ai corrigé une petite chose dans mon fichier précédent ;
fichier du post #61 remplacé ; ressaye de nouveau.

soan

 

[blancolie]

vois opas la difference

 

[soan]

C'est bizarre ! sur mon PC, ça met moins d'une seconde !
et la macro ne fait qu'effacer quelques cellules !

soan

 

[soan]

Je ne vois pas comment t'aider plus ; il faudrait que tu m'envoies ton fichier,
mais s'il contient des données confidentielles, ça n'est pas possible.

soan

 

[soan]

Ou alors, et seulement si ton fichier contient des données confidentielles,
envoie-moi ton fichier en privé (dans les conversations) ; si le fichier ne
passe pas car la taille trop importante, va sur mon-partage.fr puis fais
un copier/coller du lien de téléchargement.

soan

 

[blancolie]

rien de confidentiel, juste une base de données de plante

 

[blancolie]

le voici

 

[soan]

Ton fichier en retour ; le code VBA était OK ; je n'ai rien changé ; je l'ai juste compilé.

Sur la feuille de calcul, j'ai juste mis des données dans les zones blanches ; puis j'ai
cliqué sur le bouton EFFACER (celui qui est sous le bouton COPIER) ; ben ça efface
toutes les zones instantanément, en moins d'une seconde !

Si ça met beaucoup de temps sur ton PC, ce n'est pas normal vu qu'il s'agit juste
d'un effacement de quelques cellules ! peut-être que tu as un virus sur ton PC ?
alors avec ton antivirus, fais d'abord une analyse rapide ; puis éventuellement
une analyse complète.

soan

 

[blancolie]

oui cela vient de mon pc

 

[soan]

à cause d'un virus ? ou d'autre chose ?
si oui, à cause de quoi ?

soan

 

[blancolie]

mon systeme beta et mon excel egalement, des versions tests avant le final

 

[soan]

ah oui, je comprends ! alors bonne chance pour la suite des tests !
et j'espère que le final se passera bien !

pour ce sujet, c'est fini ? ou tu as peut-être besoin d'autre chose ?

soan

 

[blancolie]

pour cette feuille oui. je te remercie beaucoup pour ton aide et explications