Macro excel ne s'exécute pas
tartinett
Messages postés
5
Statut
Membre
-
tartinett Messages postés 5 Statut Membre -
tartinett Messages postés 5 Statut Membre -
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 ? :)
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 ? :)
3 réponses
-
Bonjour,
la Macro Sub bouton2() est lancee par quoi ???????????? -
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 !!!!! -
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-
Bonjour, merci beaucoup pour votre aide !
il y avait effectivement un problème au niveau des séparateurs de décimales. Meme s'il n'y avait que des virgules dans tout mon classeur ça ne fonctionnait pas. J'ai donc changé le séparateur de décimal du classeur entier dans les options avancées d'excel et j'ai choisis un point pour tout et la le filtre fonctionne !
-
