Problème de code VBA

  • Initiateur de la discussion Initiateur de la discussion gacr0
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gacr0

XLDnaute Nouveau
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 :
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:
Code:
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
Code:
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 !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
493
Réponses
18
Affichages
813
Réponses
3
Affichages
341
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
450
Retour