davenne.benoit
XLDnaute Nouveau
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("A113").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("A113").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