Macro excel ne s'exécute pas
tartinett
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
tartinett Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
tartinett Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
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 ? :)
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
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
3 réponses
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 !!!!!
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:
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 !
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 !
j'ai teste votre code pour sub bouton2 et ca marche donc ......???
http://www.cjoint.com/c/EFfniHywdDG
Ok, je regarde
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