D
davenne.benoit
Guest
Bonjour a tous et a toutes.
Voila je suis petit nouveau sur ce forum et aujourd'hui je me tourne vers vous parce que j'ai un problème.
Je vous explique :
j'ai un fichier mais par clause de confidentialité je présenterai un exemple fictif.
id Personne achat depenses
1 Pierre voiture 6000
2 Jean maison 150000
3 Marcel velo 200
4 Veronique fleur 15
5 Paulo ordinateur 800
6 Pierre pc portable 900
1 Pierre telephone 150
2 Jean voiture 15000
3 Paul vetements 300
4 Veronique armoire 600
5 Paulo tableau 150
6 Francois console 250
je voudrai effectuer un filtre en fonction soit sur l'id soit sur le prenom de la personne pour pouvoir afficher les données correspondantes à l'individu.
En copiant les lignes dans une nouvelle feuille.
J'ai créer une macro mais étant débutant je n'arrive pas à la réaliser correctement.
la voici :
Sub Macro1()
For i = 1 To 14
Sheets.Add
Selection.AutoFilter Field:=2, Criteria1:=Range("B" & i).Value
Range("A1😀13").Select
Selection.Copy
Sheets("Feuil" & i).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next
End Sub
J'espere ne pas avoir était trop flou ...
En vous souhaitant une bonne journée et en espérant avoir une réponse un jour 🙂
Voila je suis petit nouveau sur ce forum et aujourd'hui je me tourne vers vous parce que j'ai un problème.
Je vous explique :
j'ai un fichier mais par clause de confidentialité je présenterai un exemple fictif.
id Personne achat depenses
1 Pierre voiture 6000
2 Jean maison 150000
3 Marcel velo 200
4 Veronique fleur 15
5 Paulo ordinateur 800
6 Pierre pc portable 900
1 Pierre telephone 150
2 Jean voiture 15000
3 Paul vetements 300
4 Veronique armoire 600
5 Paulo tableau 150
6 Francois console 250
je voudrai effectuer un filtre en fonction soit sur l'id soit sur le prenom de la personne pour pouvoir afficher les données correspondantes à l'individu.
En copiant les lignes dans une nouvelle feuille.
J'ai créer une macro mais étant débutant je n'arrive pas à la réaliser correctement.
la voici :
Sub Macro1()
For i = 1 To 14
Sheets.Add
Selection.AutoFilter Field:=2, Criteria1:=Range("B" & i).Value
Range("A1😀13").Select
Selection.Copy
Sheets("Feuil" & i).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next
End Sub
J'espere ne pas avoir était trop flou ...
En vous souhaitant une bonne journée et en espérant avoir une réponse un jour 🙂