Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

filtrer avec plusieurs critères en VBA

blancolie

XLDnaute Impliqué
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 :

VB:
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
 

Pièces jointes

  • Astreinte-exemple.xlsm
    119.8 KB · Affichages: 129
Dernière édition:

soan

XLDnaute Barbatruc
Inactif
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
 

soan

XLDnaute Barbatruc
Inactif
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
 

Pièces jointes

  • BDD_fleurs v4-1.xlsm
    83.5 KB · Affichages: 7

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…