A l'aideeeee: Excel
Camille
-
melanie1324 -
melanie1324 -
Bonjour,
Je vous explique mon problème:
Voila, j'ai un fichier (excel) de commande de transport avec de nombreuses données (date de passation de commande, numéro de commande,...). J'aimerais à l'aide de macro ou je ne sais trop quelles astuces, faire des boutons par exemple "Janvier", "Fevrier"... et lorsque je cliquerai sur le bouton "Janvier" toutes mes commandes de janvier seront envoyées dans un autre fichier Excel appelé archives.
Je ne sais pas si c'est possible,
Merci d'avance pour votre aide.
Je vous explique mon problème:
Voila, j'ai un fichier (excel) de commande de transport avec de nombreuses données (date de passation de commande, numéro de commande,...). J'aimerais à l'aide de macro ou je ne sais trop quelles astuces, faire des boutons par exemple "Janvier", "Fevrier"... et lorsque je cliquerai sur le bouton "Janvier" toutes mes commandes de janvier seront envoyées dans un autre fichier Excel appelé archives.
Je ne sais pas si c'est possible,
Merci d'avance pour votre aide.
1 réponse
bonjour,
Pour faire le bouton :
affichage, barre d'outils : boite de controle.
Tu fais ton bouton sur ta feuille .
Avec le clic droit droit sur le bouton, tu fais visualiser le code.
Le mode vba s'ouvre et entre les deux lignes qui sont apparues, tu écris :
dim e, as string
dim a,b, c,i as workbook
c=0
e=""
do while e=""
e=inputbox("Quelle est la feuille que vous voules archiver?","Saisie de la feuille à archiver")
if e = "" then
e =msgbox("Vous n'avez rien tapé ou tapé une feuille inexistante!",vbokonly,"Erreur de saisie")
e=""
end if
for i = 0 to worksheet.count
if sheets(i).name = e then
c=1
end if
next i
if c= 0 then
e=""
end if
loop
a= workbook.name
workbook.add ' si ca ne marche pas mets un s à workbook (workbooks)
b = workbookname
workbook(a).activate
Sheets(e).select
cells.copy
workbook(b).select
Activesheet.paste
'voila c'est fini, un conseil, fais F8 et regarde ce que ca fait. Si ca bloque, j'ai peut être oublié des s à workbook.
'si tu veux enregistrer le nouveau classeur, recherche dans ce forum et tapes enregistrer excel vba et tu auras le code qui correspond (facile à trouver)
Pour faire le bouton :
affichage, barre d'outils : boite de controle.
Tu fais ton bouton sur ta feuille .
Avec le clic droit droit sur le bouton, tu fais visualiser le code.
Le mode vba s'ouvre et entre les deux lignes qui sont apparues, tu écris :
dim e, as string
dim a,b, c,i as workbook
c=0
e=""
do while e=""
e=inputbox("Quelle est la feuille que vous voules archiver?","Saisie de la feuille à archiver")
if e = "" then
e =msgbox("Vous n'avez rien tapé ou tapé une feuille inexistante!",vbokonly,"Erreur de saisie")
e=""
end if
for i = 0 to worksheet.count
if sheets(i).name = e then
c=1
end if
next i
if c= 0 then
e=""
end if
loop
a= workbook.name
workbook.add ' si ca ne marche pas mets un s à workbook (workbooks)
b = workbookname
workbook(a).activate
Sheets(e).select
cells.copy
workbook(b).select
Activesheet.paste
'voila c'est fini, un conseil, fais F8 et regarde ce que ca fait. Si ca bloque, j'ai peut être oublié des s à workbook.
'si tu veux enregistrer le nouveau classeur, recherche dans ce forum et tapes enregistrer excel vba et tu auras le code qui correspond (facile à trouver)
