IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Autofilter sur trimestre paramettrable


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Conseiller/formateur en risques prof.
    Inscrit en
    Mars 2012
    Messages
    41
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Conseiller/formateur en risques prof.
    Secteur : Conseil

    Informations forums :
    Inscription : Mars 2012
    Messages : 41
    Par défaut Autofilter sur trimestre paramettrable
    Bonjour,
    je tourne un peu en rond après avoir monté un USF pour filtrer les données dates et autre,
    la déclaration des parametres est faite en tête de module Public ChampPeriode As Variant, Public CritPériode1, Public CritPériode2
    je rencontre un problème avec "FiltrePériode" qui bloque sur autofiter, alors que "FitrageMois" ne pose pas de problème
    je ne vois pas la bourde.

    Merci de votre aide

    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
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    Sub FiltrePériode()
     
        Dim LeTrim As Byte 
        Dim Rnd 'As Range
        '1/ choix feuille
        If txtSheet = "ATX" Then
          Set Rnd = Range("A1:Q65000")
            ChampPeriode = 1
        Else:
          Set Rnd = Range("A1:S65000")
            ChampPeriode = 2
        End If
     
     
        If cboMois = "_" Then
    '2/ parametre trimestre
        LeTrim = cboTrimestre.ListIndex+1
            Select Case LeTrim
     
                Case 1  '"1er Trim"
                    CritPériode1 = "1/1/" & cboAnnée
                    CritPériode2 = "31/3/" & cboAnnée
     
                Case 2  '"2ème Trim"
                    CritPériode1 = "1/4/" & cboAnnée
                    CritPériode2 = "31/6/" & cboAnnée
     
                Case 3  '"3ème Trim"
                    CritPériode1 = "1/7/" & cboAnnée
                    CritPériode2 = "31/9/" & cboAnnée
     
                Case 4  '"4ème Trim"
                    CritPériode1 = "1/10/" & cboAnnée
                    CritPériode2 = "31/12/" & cboAnnée
                End Select
            ElseIf cboMois = "_Tout" Then
     '3/ parametre année
                CritPériode1 = "1/1/" & cboAnnée
                CritPériode2 = "31/12/" & cboAnnée
            Else
    '4/ parametre Mois
                CritPériode1 = "1/" & cboMois & "/" & cboAnnée    'mise au format text mois /jour/an
                CritPériode2 = "31/" & cboMois & "/" & cboAnnée
            End If
     
            '5/ filtrage
            Range("A1:Q65000").AutoFilter Field:=ChampPeriode, Operator:=xlFilterValues, Criteria2:=Array(1, CritPériode1, 1, CritPériode2)
        End Sub
     
     
    Sub filtreTrimestre()
    'OK 8/7/15
        Dim CritPériode1, CritPériode2
        Range("A1:Q650000").Select
     
        ChampPeriode = 1
        CritPériode1 = "01/01/" & cboAnnée    '"01/01/2015"
        CritPériode2 = "03/30/" & cboAnnée    '"03/30/2015"
        ActiveSheet.Range("$A$1:$Q$65000").AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(1, CritPériode1, 1, CritPériode2)
    End Sub
     
     
     
    Sub FitrageMois()
        ActiveSheet.Range("$A$1:$Q$20").AutoFilter Field:=1, Operator:= _
                xlFilterValues, Criteria2:=Array(1, "1/30/2015", 1, "6/30/2015")
        Selection.AutoFilter
    End Sub
     
    Private Sub xxxcboTrimestre_Change()
    'OK 4/7/15
        txtPeriode = "Période sélectionnée =  " & cboTrimestre & " - " & cboAnnée
        cboMois.ListIndex = 0
        txtChoixTrimestre = Left(cboTrimestre, 1)
    End Sub

  2. #2
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 173
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Si tu as une version supérieure à 2003, tu as le filtre chronologique qui permet de filtrer sur ce type de période.
    Exemple
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ActiveSheet.Range("$K$1:$K$382").AutoFilter Field:=1, Criteria1:=xlFilterNextQuarter, Operator:=xlFilterDynamic
    Il reste une autre option avec les filtres avancés d'excel
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  3. #3
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut heu
    bonjour
    déjà pour commencer tu dois avoir un beau message d'erreur si tant est que les argument soit valides en terme de string
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Case 1  '"1er Trim"
                    CritPériode1 = "1/1/" & cboAnnée
                    CritPériode2 = "31/3/" & cboAnnée
    remplace ton 31 par 25 car février a maximum 29 jour selon les années
    quand au mois (avril,juin,septembre,etc...) n'ont que 30 jours

    heu... même avec 25 ca prend en charge les jours 26 au dernier jours du mois au cas ou tu te poserais la question

    a bon entendeur
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  4. #4
    Membre averti
    Homme Profil pro
    Conseiller/formateur en risques prof.
    Inscrit en
    Mars 2012
    Messages
    41
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Conseiller/formateur en risques prof.
    Secteur : Conseil

    Informations forums :
    Inscription : Mars 2012
    Messages : 41
    Par défaut
    Bonjour Philippe,
    Merci pour l'info. J'avais bien vu cette possibilité dans les paramètres de Autofilter, mais cela ne me convient pas car je souhaite souhaite pouvoir rechercher par exemple le 3ème trimestre de 2012, hors ici ce ne sont que les 4 derner trimestre que l'on peu filtrer.

    J'ai apporté une modif dans la définition des parametre, mais cela n'est aps suffisant.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    CritPériode1 = CDate("1/" & cboMois & "/" & cboAnnée)  'mise au format text mois /jour/an 
                CritPériode2 = CDate("31/" & cboMois & "/" & cboAnnée)
    Donc toujours à la recherche d'info

    Bonjour patricktoulon,
    si j'ai bien compris, il faudrait que je paramètre :
    - pour février à 25,
    - pour avril,juin,septembre et novembre à 30
    - et 31 pour les autre mois
    Je vais donc faire un 3ème test imbriqué

    Merci j'essaie cela

  5. #5
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut
    oila ce que donne l'enregistreur de macro pour le 1 er trimestre dans une de mes bases de données

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     ActiveSheet.ListObjects("Tableau_bilan2014").Range.AutoFilter Field:=2, _
            Operator:=xlFilterValues, Criteria2:=Array(1, "1/31/2014", 1, "2/28/2014", 1, "3/31/2014")
    je remplace le 31 ou le dernier jour de fevrier par 25 et j'ai le même résultat

    donc les arguments seront pour le 1 er trimestre
    "1/25/" & année
    "2/25/"& année
    "3/25/"& année
    resultat
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
      ActiveSheet.ListObjects("Tableau_bilan2014").Range.AutoFilter Field:=2, _
            Operator:=xlFilterValues, Criteria2:=Array(1, "1/25/" & année, 1, "2/,25/" & année, 1, "3/25/" & année)
    adapte le sheets et le field(num de la colonne)

    Citation Envoyé par markos63 Voir le message
    Bonjour patricktoulon,
    si j'ai bien compris, il faudrait que je paramètre :
    - pour février à 25,
    - pour avril,juin,septembre et novembre à 30
    - et 31 pour les autre mois
    Je vais donc faire un 3ème test imbriqué

    Merci j'essaie cela
    non!!!! tu met 25 pour tout les mois

    le 26,27,28,29,30,31 selon les mois seront pris en compte quand meme !!!!!!
    tu n'a donc aucun test imbriqué a faire
    regarde l'exemple que je t'ai donné en adaptant le sheets et le field bien sur
    pour le sheets tu fait simplement sheets(nom du sheets):le listobject n'est pas nécessaire pour toi moi j'ai ca parce que j'ouvre une base Access avec excel
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  6. #6
    Membre averti
    Homme Profil pro
    Conseiller/formateur en risques prof.
    Inscrit en
    Mars 2012
    Messages
    41
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Conseiller/formateur en risques prof.
    Secteur : Conseil

    Informations forums :
    Inscription : Mars 2012
    Messages : 41
    Par défaut
    Pk,
    j'ai essayé ceci suite à ton poste, et même problème erreur " Erreur d'execution 1004 : la méthode Autofilter de la classe range à échoué"

    Mon filtre filtre sur 2 feuilles ou la date n'est pas dans la même colonne et sur année, trimestre ou mois avec 3 combo (cboAnnée, cboTrim, cboMois) raison pour laquelle je paramètre tous, mais mal à priori.
    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
     LeMoi = cboMois.ListIndex - 1      'Le combo comprend 2 autres valeurs avant Janvier
            Select Case LeMoi
    Case 2    ' pour février à 25,
                CritPériode1 = CDate(cboMois & "/1/" & cboAnnée)     'mise au format text mois /jour/an '.ListIndex + 1
                CritPériode2 = CDate(cboMois & "/25/" & cboAnnée)
            Case 4, 6, 9, 11    ' avril,juin,septembre et novembre à 30
                CritPériode1 = CDate(cboMois & "/1/" & cboAnnée)      'mise au format text mois /jour/an '.ListIndex + 1
                CritPériode2 = CDate(cboMois & "/30/" & cboAnnée)
            Case 1, 3, 4, 7, 8, 9, 12    '31 pour les autre mois
     
                CritPériode1 = CDate(cboMois & "/1/" & cboAnnée)   'mise au format text mois /jour/an '.ListIndex + 1
                CritPériode2 = CDate(cboMois & "/31/" & cboAnnée)
            End Select
            txtPeriode = "Période sélectionnée =  " & cboMois & " - " & cboAnnée
            Range("A1:Q65000").Select
            Selection.AutoFilter Field:=ChampPeriode, Operator:=xlFilterValues, Criteria2:=Array(1, CritPériode1, 1, CritPériode2)

  7. #7
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    re
    déjà quand tu dis range(.....) précise le sheets c'est mieux
    ensuite
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Selection.AutoFilter Field:=ChampPeriode, Operator:=xlFilterValues, Criteria2:=Array(1, CritPériode1, 1, CritPériode2)
    tu n'a pas l'impression qu'il manque un argument la ?
    pour moi dans un trimestre il y a 3 mois
    ensuite je n'ai pas très bien compris tu tri sur plusieurs sheets etc.... pffffff je vais analyser ton dernier post

    bon apres analyse a moins que je n'ai rien compris ta macro filtre sur un seul mois puisque l'argument mois et generé avec la listbox
    si tu veux faire par trimestre c'est tout le code qu'il faut repenser
    exemple ici tes deux critères traite le meme mois c'est pour ca que ca ne fonctionne pas
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    CritPériode1 = CDate(cboMois & "/1/" & cboAnnée)   'mise au format text mois /jour/an '.ListIndex + 1
                CritPériode2 = CDate(cboMois & "/31/" & cboAnnée)
    dans mon exemple il y a 3 critères ( 1 pour chaque mois du trimestre )
    donc c'est tout ton select case qu'il faut repenser
    exemple
    a suposer que tu click sur le mois janvier ou fevrier ou mars
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    select case ta listebox 
    case 1,2,3
    ' les mois sont 1,2,3
    critere1="1/25/" & année
    critere2="2/25/" & année
    critere3="3/25/" & année
    case 4,5,6 ' ici pour les mois d'avril ,mai ,juin
    critere1="4/25/" & année
    critere2="5/25/" & année
    critere3="6/25/" & année
    etc... jusqu'à 12
    ensuite tu met les 3critere dans la ligne du code du filtre c'est pas compliqué
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  8. #8
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 173
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 173
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Merci pour l'info. J'avais bien vu cette possibilité dans les paramètres de Autofilter, mais cela ne me convient pas car je souhaite souhaite pouvoir rechercher par exemple le 3ème trimestre de 2012, hors ici ce ne sont que les 4 derner trimestre que l'on peu filtrer.
    Dans ce cas, je ne peux que te conseiller l'utilisation des filtres avancés d'excel avec critères nommés qui offre bien plus de possibilités.
    A lire éventuellement Les filtres avancés ou élaborés dans Excel
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  9. #9
    Membre Expert
    Avatar de tototiti2008
    Homme Profil pro
    Formateur/développeur
    Inscrit en
    Octobre 2008
    Messages
    1 179
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Formateur/développeur

    Informations forums :
    Inscription : Octobre 2008
    Messages : 1 179
    Billets dans le blog
    2
    Par défaut
    Bonsoir,

    ou alors pour moisdeb

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    moisdeb=LeTrim+(LeTrim-1)*2
    donc


  10. #10
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    oui ca coïncide mais sa serait l'induire en erreur en terme de compréhension du code

    point barre
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  11. #11
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    Bonjour Patrick..
    Juste un commentaire sur ton code :
    Pourquoi passer par une chaine de caractere pour rassembler dans une variable de type date une date dont tu as les 3 éléments jour,mois,année ? La fonction dateserial est faites pour cela et éviterais tous éventuel probléme de paramétrage excel...
    Ensuite est tu sur que tous les mois terminant un trimestre ont 31 jours?

  12. #12
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re oui une erreur non corrigé
    BonjourBbil

    oui je l'ai vu après
    chez moi je l'ai fait mais je n'ai pas corrigé dans le post
    la ligne comptant le nombre de jour dans la partie mois il faut l'utiliser aussi dans la partie trimestre
    ensuite pour la partie chaine / date je comprend pas très bien ta remarque

    pour lemois la date est fait avec cbmois 1 et cboanné

    pour les trimestre cbotrim jour1 cboanne :fin: switch nextjour cboanné
    c'est pour le next jour que je devrait utiliser day(date..........)-1

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    '4/ Choix année
            CritPériode1 = CDate("1/1/" & cboAnnée)
            CritPériode2 = CDate("31/12/" & cboAnnée)
            txtPeriode = "Période sélectionnée = " & cboAnnée
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    LeTrim = cboTrimestre.ListIndex + 1
           moisdeb = Switch(LeTrim = 1, 1, LeTrim = 2, 4, LeTrim = 3, 7, LeTrim = 4, 10)
          NB_JOURS = Day(DateSerial(cboAnnée, (moisdeb+2) + 1, 1) - 1)
         CritPériode1 = CDate("1/" & moisdeb & "/" & cboAnnée)
         CritPériode2 = CDate(NB_JOURS  &"/" & moisdeb + 2 & "/" & cboAnnée)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    ' on calcule automatiquement le nombre de jour du mois sélectionné(fevrier,30 ou 31)
            NB_JOURS = Day(DateSerial(cboAnnée, (cboMois.ListIndex - 1) + 1, 1) - 1)
            CritPériode1 = CDate("1/" & cboMois.ListIndex - 1 & "/" & cboAnnée)
            CritPériode2 = CDate(NB_JOURS & "/" & cboMois.ListIndex - 1 & "/" & cboAnnée)
            txtPeriode = "Période sélectionnée =  " & cboMois & " - " & cboAnnée


    EDIT:
    re
    je crois avoir compris ta remarque
    tu veut dire utilisation de date serial directement dans la ligne critérial

    'pour le mois
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub test()
        cboAnnée = 2015
        cbomois = 2
        Criterial1 = DateSerial(cboAnnée, (cbomois), 1)
        criterial2 = DateSerial(cboAnnée, (cbomois) + 1, 1) - 1
     
        MsgBox Criterial1 & vbCrLf & criterial2
    End Sub
    'exemple pour le trimestre
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub test2()
        cboAnnée = 2015: LeTrim = 2
        moisdeb = Switch(LeTrim = 1, 1, LeTrim = 2, 4, LeTrim = 3, 7, LeTrim = 4, 10)
        Criterial1 = DateSerial(cboAnnée, (moisdeb), 1)
        criterial2 = DateSerial(cboAnnée, (moisdeb + 2) + 1, 1) - 1
     
        MsgBox Criterial1 & vbCrLf & criterial2
    End Sub
    quand je disais que l'on pouvait encore simplifier hein!!!!

    Merci bbill d'avoir appuyé sur mon bouton
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  13. #13
    Membre averti
    Homme Profil pro
    Conseiller/formateur en risques prof.
    Inscrit en
    Mars 2012
    Messages
    41
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Conseiller/formateur en risques prof.
    Secteur : Conseil

    Informations forums :
    Inscription : Mars 2012
    Messages : 41
    Par défaut Bonjour,
    Bonjour tous,
    je vois que je n'avais pas clôturé le fil ni complètement remercié tout le monde, j'étais parti avec la solution de patricktoulon, qui m'a permis de résoudre mon problème. d'une manière assez simple un peu comme indiqué mais en revoyant aussi mes objectif de filtrage.
    En tous cas merci encore à tous.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. VBA autofilter sur plus de 20 valeurs
    Par toto92 dans le forum Excel
    Réponses: 1
    Dernier message: 02/06/2014, 09h27
  2. VBScript : AutoFilter sur une colonne Excel.
    Par ConteZero dans le forum VBScript
    Réponses: 4
    Dernier message: 24/05/2010, 14h55
  3. Et il possible de faire un autofilter sur plus de 2 variables?
    Par Esmax666 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 16/06/2009, 15h50
  4. AutoFilter sur date
    Par grateurs dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 03/11/2008, 22h32
  5. Réponses: 3
    Dernier message: 30/04/2007, 16h37

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo