Macro excel ne s'exécute pas

Fermé

tartinett Messages postés 5 Date d'inscription jeudi 21 mai 2015 Statut Membre Dernière intervention 8 juin 2015 - Modifié par tartinett le 5/06/2015 à 11:13
tartinett Messages postés 5 Date d'inscription jeudi 21 mai 2015 Statut Membre Dernière intervention 8 juin 2015 - 8 juin 2015 à 09:12

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 ? :)

A voir également:

Excel macro qui ne s'exécute pas
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Liste déroulante excel - Guide
Si et excel - Guide
Word et excel gratuit - Guide
Déplacer une colonne excel - Guide

3 réponses

Réponse 1 / 3

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
5 juin 2015 à 11:29

Bonjour,

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

tartinett Messages postés 5 Date d'inscription jeudi 21 mai 2015 Statut Membre Dernière intervention 8 juin 2015
Modifié par tartinett le 5/06/2015 à 13:28

la macro est lancée par un bouton de commande sur lequel il faut cliquer. Mais même si je l'exécute en la choisissant dans ma liste de macro et en faisant "exécuter" cela ne fonctionne pas

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713 > tartinett Messages postés 5 Date d'inscription jeudi 21 mai 2015 Statut Membre Dernière intervention 8 juin 2015
5 juin 2015 à 14:34

Re,

j'ai teste votre code pour sub bouton2 et ca marche donc ......???

tartinett Messages postés 5 Date d'inscription jeudi 21 mai 2015 Statut Membre Dernière intervention 8 juin 2015
5 juin 2015 à 15:16

j'ai retesté et dans différentes feuilles de calculs et ça ne marche toujours pas.... Donc ça doit venir d'autre chose que la macro mais je n'ai aucune idée d'ou est le problème ! Je mets un lien vers mon fichier si vous ou quelqu'un peut regarder...merci :)

http://www.cjoint.com/c/EFfniHywdDG

Re,

Ok, je regarde

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713 > f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025
5 juin 2015 à 15:54

Re,

vous avez des nombres avec un point comme separateur de decimal et vous mettez une virgule en separateur en A14 et B14 !!!!!!!!! Donc pas de filtre, mettez un point

Réponse 2 / 3

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
5 juin 2015 à 17:01

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 !!!!!

Réponse 3 / 3

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
Modifié par f894009 le 5/06/2015 à 17:06

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

tartinett Messages postés 5 Date d'inscription jeudi 21 mai 2015 Statut Membre Dernière intervention 8 juin 2015
8 juin 2015 à 09:12

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 !

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro