macro excel ne s'exécute pas

Question

Bonjour, 
j'ai un problème avec une macro excel. Sur une feuille de calculs j'ai deux macro qui me servent à faire un tri dans des listes de valeurs. Une des deux macros s'exécute  bien mais la deuxième qui  à le même code quasiment ne s'exécute pas. (alors que quand on fait l'opération de tri " à la main" sans la macro, le tri fonctionne bien)
 
code macro 1 ( qui fonctionne) : 

Sub Filtrage1()
'
' Filtrage1 Macro
'

'
    Range("F3:G200").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "A8:B9"), CopyToRange:=Range("I3:J200"), Unique:=False
End Sub


code macro qui ne fonctionne pas : 

Sub bouton2()
'
' bouton2 Macro
'

'
    Range("I3:J109").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "A13:B14"), CopyToRange:=Range("K3:L78"), Unique:=False
    ActiveWindow.SmallScroll Down:=-24
End Sub

Voila, est-ce que quelqu'un peut m'aider ? :)

f894009 · Answer

Bonjour,

la Macro Sub bouton2() est lancee par quoi ????????????

f894009 · Answer

Re,

Ai refait un telechargement, cette fois-ci, virgule en separateur.

Ai mis 40,1 au lieu de 40 pour filtre bouton1 et la pas de filtre !!!!!

f894009 · Answer

Re,

Ai modifie la plage de cellule pour les deux criteres filtres et ca marche:

Sub B1filtre()
'
' B1filtre Macro

Range("F3:G674").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "A9:B9"), CopyToRange:=Range("I3:J684"), Unique:=False
    ActiveWindow.SmallScroll Down:=-18
End Sub

Sub B2calcul()
    Range("I3:J102").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "A14:B14"), CopyToRange:=Range("K3:L202"), Unique:=False
    ActiveWindow.SmallScroll Down:=-18
End Sub

Macro excel ne s'exécute pas

3 réponses

Discussions similaires

Newsletters