Filtre données
Résolu/Fermé
dianbobo
Messages postés
151
Date d'inscription
mardi 20 avril 2010
Statut
Membre
Dernière intervention
15 juin 2014
-
11 mai 2010 à 15:49
tibouuh Messages postés 2686 Date d'inscription lundi 30 juin 2008 Statut Contributeur Dernière intervention 9 février 2017 - 12 mai 2010 à 14:13
tibouuh Messages postés 2686 Date d'inscription lundi 30 juin 2008 Statut Contributeur Dernière intervention 9 février 2017 - 12 mai 2010 à 14:13
A voir également:
- Filtre données
- Photo filtre gratuit - Télécharger - Retouche d'image
- Filtre manga - Guide
- Effacer les données de navigation - Guide
- Reinstaller windows sans perte de données - Guide
- Comment sauvegarder toutes les données de mon téléphone - Guide
5 réponses
tibouuh
Messages postés
2686
Date d'inscription
lundi 30 juin 2008
Statut
Contributeur
Dernière intervention
9 février 2017
647
12 mai 2010 à 11:45
12 mai 2010 à 11:45
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. ^^
tibouuh
Messages postés
2686
Date d'inscription
lundi 30 juin 2008
Statut
Contributeur
Dernière intervention
9 février 2017
647
12 mai 2010 à 13:25
12 mai 2010 à 13:25
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
dianbobo
Messages postés
151
Date d'inscription
mardi 20 avril 2010
Statut
Membre
Dernière intervention
15 juin 2014
1
12 mai 2010 à 12:31
12 mai 2010 à 12:31
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
dianbobo
Messages postés
151
Date d'inscription
mardi 20 avril 2010
Statut
Membre
Dernière intervention
15 juin 2014
1
12 mai 2010 à 12:32
12 mai 2010 à 12:32
j'ai oublié une precision ce n'est pas un tri que je fais mais un filtre
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
dianbobo
Messages postés
151
Date d'inscription
mardi 20 avril 2010
Statut
Membre
Dernière intervention
15 juin 2014
1
12 mai 2010 à 13:58
12 mai 2010 à 13:58
ç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
tibouuh
Messages postés
2686
Date d'inscription
lundi 30 juin 2008
Statut
Contributeur
Dernière intervention
9 février 2017
647
12 mai 2010 à 14:13
12 mai 2010 à 14:13
de rien ^^
la ligne ActiveWindow.SmallScroll Down:=216 tu peux la supprimer.
elle veut juste dire que tu t'es déplacé dans la feuille, en utilisant la molette par exemple.
ciao ;-)
la ligne ActiveWindow.SmallScroll Down:=216 tu peux la supprimer.
elle veut juste dire que tu t'es déplacé dans la feuille, en utilisant la molette par exemple.
ciao ;-)
