Problème de code VBA

[gacr0]

Bonjour

J'ai un problème avec des macros qui sont exécutées à partir d'un bouton dans Excel 2010.
Ma première macro utilise un filtre qui demande de sortir dans une colonne d'une feuille toutes les valeurs vides. Dans une seconde feuille (macro jours5) je demande d'éliminer dans une autre colonne toutes les valeurs vides. Je demande la même chose dans ma macro 3 (jours15). Lorsque j'affecte mes macros, la premiere (appels) est correctement effectuée mais les macros jours5 et jours15 font soudainement abstraction du filtre sur les valeurs nulles. Pourtant les autres composantes de ces macros sont conservées.

Pouvez-vous m'aider ?

Voici le code :

Sub appels()
'
' appels Macro
'

'
    With Worksheets("Suivi des appels")
    .Range("$A$3:$G$4000").AutoFilter Field:=7, Criteria1:="=*vide*" _
        , Operator:=xlAnd
    ActiveSheet.Range("$A$3:$G$4000").AutoFilter Field:=5, Criteria1:= _
        "<>*vide*", Operator:=xlAnd
End With
End Sub

MACRO JOURS5:

Sub jours5()
'
' jours5 Macro
'

'
    With Worksheets("Suivi 5 jours")
    .Range("$A$3:$G$15003").AutoFilter Field:=7, Criteria1:= _
        "En attente"
    ActiveWorkbook.Worksheets("Suivi 5 jours").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Suivi 5 jours").AutoFilter.Sort.SortFields.Add Key _
        :=Range("F3:F15003"), SortOn:=xlSortOnValues, Order:=xlDescending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Suivi 5 jours").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveSheet.Range("$A$3:$G$15003").AutoFilter Field:=5, Criteria1:= _
        "<>*vide*", Operator:=xlAnd
End With
End Sub

MACRO JOURS15

Sub jours15()
'
' jours15 Macro
'

'
    With Worksheets("Suivi 15 jours")
    .Range("$A$3:$G$4003").AutoFilter Field:=7, Criteria1:= _
        "En attente"
    ActiveWorkbook.Worksheets("Suivi 15 jours").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Suivi 15 jours").AutoFilter.Sort.SortFields.Add Key _
        :=Range("F3:F4003"), SortOn:=xlSortOnValues, Order:=xlDescending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Suivi 15 jours").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveSheet.Range("$A$3:$G$10003").AutoFilter Field:=5, Criteria1:= _
        "<>*vide*", Operator:=xlAnd
End With
End Sub

Merci de votre aide !

 

[zeltron24]

Re : Problème de code VBA

Bonjour Gacr0

Avec un petit fichier joint sans données confidentielles Vous auriez plus de chance d’être suivi.

 

[Staple1600]

Re : Problème de code VBA

Bonjour à tous

zeltron64
Ceci est un fil doublon !
gacr0 est déjà en train de prendre de mauvaises habitudes ...
Voici le fil initial
https://www.excel-downloads.com/threads/executer-plusieurs-macros-a-louverture.219908/

gacr0: Relis la charte du forum, c'est indolore
(J'attends toujours le résultat de tes tests sur ton fil initial)

 

[zeltron24]

Re : Problème de code VBA

Bonjour Staple 1600

Bien vu, je n'y avais pas fait attention.
Bonne journée à toi
Zeltron24