Filtre données
Résolu
dianbobo
Messages postés
151
Date d'inscription
Statut
Membre
Dernière intervention
-
Utilisateur anonyme -
Utilisateur anonyme -
A voir également:
- Filtre données
- Fuite données maif - Guide
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Supprimer les données de navigation - Guide
- Filtre whatsapp - Accueil - Messagerie instantanée
- Trier des données excel - Guide
5 réponses
Salut,
je te le dis tout de suite, comme ça pas de surprise : je suis pas un pro des macros. je m'y suis mis il y a peu. mais j'arrive à me débrouiller pour ce que je fais. ^^
pour ta demande, ce que je te conseille c'est d'enregistrer une macro avec les manips que tu fais pour trier les données puis les copier dans une autre feuille.
tu vas voir le code que ça t'a généré et tu le testes, tu le modifies, ... pour qu'il te convienne.
pour enregistrer une macro (sous Excel 2007), dans la partie "Développeur" du ruban, sélectionnes "Enregistrer une macro".
tu fais les manips qui te permettent de trier les données puis de les copier sur une autre feuille. une fois terminé, tu arrêtes la macro en cliquant sur le carré bleu en bas à gauche.
pour voir le code, tu fais Alt+F11. il se trouvera dans Module1 de VBAProject.
si tu as un problème ou des questions, n'hésite pas. je verrais si je peux t'aider. ^^
je te le dis tout de suite, comme ça pas de surprise : je suis pas un pro des macros. je m'y suis mis il y a peu. mais j'arrive à me débrouiller pour ce que je fais. ^^
pour ta demande, ce que je te conseille c'est d'enregistrer une macro avec les manips que tu fais pour trier les données puis les copier dans une autre feuille.
tu vas voir le code que ça t'a généré et tu le testes, tu le modifies, ... pour qu'il te convienne.
pour enregistrer une macro (sous Excel 2007), dans la partie "Développeur" du ruban, sélectionnes "Enregistrer une macro".
tu fais les manips qui te permettent de trier les données puis de les copier sur une autre feuille. une fois terminé, tu arrêtes la macro en cliquant sur le carré bleu en bas à gauche.
pour voir le code, tu fais Alt+F11. il se trouvera dans Module1 de VBAProject.
si tu as un problème ou des questions, n'hésite pas. je verrais si je peux t'aider. ^^
re,
essaie ce code :
Range("$A$1:$I$452").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$I$452").AutoFilter Field:=3, Criteria1:="=EMTN", _
Operator:=xlOr, Criteria2:="=Oblig"
Selection.Copy
Sheets("Synthèse").Select
Range("A5").Select
ActiveSheet.Paste
essaie ce code :
Range("$A$1:$I$452").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$I$452").AutoFilter Field:=3, Criteria1:="=EMTN", _
Operator:=xlOr, Criteria2:="=Oblig"
Selection.Copy
Sheets("Synthèse").Select
Range("A5").Select
ActiveSheet.Paste
bonjour merci du conseil j'ai fait comme tu as dit
puis je l'ai testé directement mais j'ai une erreur du type "x 400"
puis plus rien ne se passe ..
de ce qui est d'aranger le code je laisse ça au pro ..
peu tu m'expliquer pourquoi mon code ne fonctionne pas
merci
puis je l'ai testé directement mais j'ai une erreur du type "x 400"
puis plus rien ne se passe ..
de ce qui est d'aranger le code je laisse ça au pro ..
peu tu m'expliquer pourquoi mon code ne fonctionne pas
Sub Macro8()
'
' Macro8 Macro
' Macro enregistrée le 12/05/2010 par H008369
'
' Touche de raccourci du clavier: Ctrl+l
'
Range("A1:I452").Select
ActiveWindow.SmallScroll Down:=-6
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="=EMTN", Operator:=xlOr, _
Criteria2:="=Oblig"
Selection.Copy
Sheets("Synthèse").Select
Range("A5").Select
ActiveSheet.Paste
End Sub
merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ça marche
mais voila comment je l'ai fait aussi
:
merci encore
mais voila comment je l'ai fait aussi
:
Sub macro()
Worksheets("Nlle Dispo").Range("A1:I451").Copy Worksheets("Synthèse").Range("A5")
Range("A5:I455").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="=Oblig", Operator:=xlOr, _
Criteria2:="=EMTN"
ActiveWindow.SmallScroll Down:=216
End sub
merci encore
