trier une feuille dans une - VB/VBA/VBS - Programmation
Marsh Posté le 22-08-2006 à 08:40:32
bjr, J' ai un problème j'ai un fichier sur une feuille correspondant aux factures client dont la feuille s'appelle FF1 je voudrais faire un tri sur le n° de facture qui se trouve dans la colonne A Donc j'ai creer une feuille temporaire pour mettre les données qui s'apelle FF2 Sub Bouton47_QuandClic() ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count) ActiveSheet.Name = ("FF2" ) je transfert à l'interieur mes données Sheets("FF1" ).Select Range("A1:a2000" ).EntireRow.Select Selection.Copy Sheets("FF2" ).Select Range("A1:a2000" ).Select ActiveSheet.Paste Comment faire pour tranferer simplement les données correspondant à un numero de facture que je saisie en A1 sur la feuille FF1 le maximun de ligne pour le transfert de la facture est 20 lignes Merci de vos reponses
Marsh Posté le 22-08-2006 à 21:00:51
c bon j'ai trouvé
Marsh Posté le 26-08-2006 à 02:51:10
lorsqu'on trouve tout seul, on indique la solution, pour pas que quelqu'un d'autre se pose la meme question ^^
Make sure you enter the(*)required information where indicate.HTML code is not allowed
Marsh Posté le 22-08-2006 à 08:40:32
bjr,
J' ai un problème
j'ai un fichier sur une feuille correspondant aux factures client dont la feuille s'appelle FF1
je voudrais faire un tri sur le n° de facture qui se trouve dans la colonne A
Donc j'ai creer une feuille temporaire pour mettre les données qui s'apelle FF2
Sub Bouton47_QuandClic()
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = ("FF2" )
je transfert à l'interieur mes données
Sheets("FF1" ).Select
Range("A1:a2000" ).EntireRow.Select
Selection.Copy
Sheets("FF2" ).Select
Range("A1:a2000" ).Select
ActiveSheet.Paste
Comment faire pour tranferer simplement les données correspondant à un numero de facture que je saisie en A1 sur la feuille FF1
le maximun de ligne pour le transfert de la facture est 20 lignes
Merci de vos reponses