EXCEL MACRO LISTE DEROULANTE Fermé

Question

Bonjour,


Cela fait plusieurs mois que je bosse sur un projet de finance que j'ai presque finalisé.

Je dispose d'un classeur excel, présentant la rentabilité d'un produit.

Toutes les informations contenues dans ce classeur sont reliées au code produit contenu dans cette liste déroulante (obtenue via la validation de données).


Je souhaiterai maintenant y ajouter une macro, qui me permette de: 

- faire défiler ma liste de produit un par un (il y en a environ 600), 
- laisser une vingtaine de secondes la machine tourner afin qu'elle aille chercher les données dans les classeurs sources, 
- une fois que les données sont affichées pour un produit il faut que la macro copie l'ensemble de la feuille, 
- et la colle en format et valeur dans un nouveau classeur qui portera le nom du produit présent dans ma liste déroulante, afin d'enregistrer le classeur dans un emplacement prédéfini
-imprimer la feuille du produit
- et passer au produit suivant

si quelqu'un pouvait etre assez gentil pour m'aider... cela fait des mois que je suis sur ce projet.

Merci par avance

Ben

hich24 · Answer

1- combien de classeur ?
2- comment sont enregistré les données dans ces classeur ?
3- quelle sont les crétere de recherche ?


*- tu peut aussi ( si c'est pas confidentielle ) mettre le fichier sur cette adress : http://www.cijoint.fr/
sinon on vas essayer de faire ca en pas a pas

hich24 · Answer

au lieu de mettre votre liste par validation 
1- insére une liste : menu Affichage > Barre d'outil > boite a outils controle 

2- vous aller voire une boite a outil , il faut choiisir une liste ( deroulante si vous vouler )

3- insere la liste sur la feuille 

4- la je ne sais pas comment sont posissioner vos donné ( combien de colonne ? , une feuille ou ? , combien de classeur ? ..)

qmike · Answer

bonjour
tu trouveras des exemples de listes déroulantes ici et surtout comment récupérer les données issues de ces listes déroulantes
http://bvrve.club.fr/Astuces_Michel/excelliste.html
bonne journée

tekitizi · Answer

Bonjour,

Merci pour ces eclaircissement.
En fait, la nuit portant conseil, j'ai zapé la partie liste déroulante, et j'ai mis en place une macro qui vient faire une recherchev sur le code produit.

Je me retrouve avec ce script au final

Sub testcopy()
'
' testcopy Macro
' Macro recorded 16/04/2009 by Temp
'

'
Dim i As Integer
For i = 1 To 4
    Range("D3").Select
    Selection.Copy
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False


ActiveWorkbook.Save

monfichier = "C:\RESULTATS RESEXP\" & "EAB_" & Sheets("Rentaprod").Range("b6").Value
        
If Dir(monfichier & ".xls") <> "" Then
MsgBox ("Un fichier de ce nom existe déjà, veuillez le supprimer/déplacer avant nouvelle copie")
Else
monfichier = monfichier & ".xls"


ActiveWorkbook.SaveAs Filename:= _
monfichier, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
                          

End If

Next i
Workbooks.Open Filename:= _
"N:\RESEXP\Renta\Rentaprod.xls"
       
MsgBox ("Fichiers créés dans C:\RESULTATS RESEXP\")

End Sub


Tout va bien, je desire seuelement ajouter troisoptions en plus qui sont: -

- bloquer l'assistant office qui me demande d'aller rechercher les lien ds les fichiers externes (ces fichiers n'ont pas bougé depuis la creation de ma macro, je ne comprend pas pkoi il veut les rechercher... ms comment le bloquer?
-fermer le fichier créer (parque ce quepour l'instant j'ai un test avec i= 1 à 4, mais en vrai j'aurai i= 1 à 600...
- ajouter une impression du doc pour chacune des feuilles créés

hich24 · Answer

pour l'mpression :

   Sheets("Feuil2").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

change le nom de feuille 2 pour selui qui vous convient

tekitizi · Answer

TROUVÉ !

Sub SavePrint()
'
' SavePrint Macro
' Macro recorded 16/04/2009 by Gold
'

'
Dim i As Integer
For i = 1 To 4
    Range("D3").Select
    Selection.Copy
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False


ActiveWorkbook.SaveAs "C:\RESULTATS RESEXP\" & "EAB_" & Sheets("Rentaprod").Range("b6").Value


Range("A88:V170").Select
Selection.PrintOut

Next i
Workbooks.Open Filename:= _
"N:\RESEXP\Renta\Rentaprod.xls"
       
MsgBox ("Fichiers créés dans C:\RESULTATS RESEXP\")

End Sub

EXCEL MACRO LISTE DEROULANTE

6 réponses

Discussions similaires