Macro VBA

Fermé
Kozak9 Messages postés 2 Date d'inscription mercredi 17 juin 2009 Statut Membre Dernière intervention 17 juin 2009 - 17 juin 2009 à 09:57
Kozak9 Messages postés 2 Date d'inscription mercredi 17 juin 2009 Statut Membre Dernière intervention 17 juin 2009 - 17 juin 2009 à 11:16
Bonjour mesdames messieurs

Je suis bloqué dans mon travail qui consiste en une macro sur excel avec vba.
J'ai plusieurs fichiers avec dates, horaires, et lieu .
Premièrement je filtre le lieu donc ca ca va c'est pas trop compliqué .

Ensuite je creer à coté de ce tableau les informations que je veux qui sont :
>les horaires ( mais en décimal ( =Cellule*24 ) )
>le jour ( texte ( cellule;"jjjj") )
>Trimestre ( ="trim&ent((mois(cellule)-1)/3+1) )
>Mois ( = mois(cellule) )

Premièrement je dois réaliser cela , ensuite toute ces donnés je les copie et les coller dans un autre fichier, le fichier mère en quelque sorte.

La j'utilise de nouveau des filtres pour garder les jours de la semaine , je filtre le mois et j'envoi ces horaires là dans une feuille spécifique à ce mois

Globalement je veux récuperer les donnés dans plusieurs feuilles

Comme : Janvier en semaine
Fevrier en semaine
....

Puis d'autre feuille sous le meme modèle mais

Janvier le week(end
Fevrier le week-end
....

Puis

Trimestre 1 semaine
Trim 1 week
Trim 2 semaine
...

Et enfin Semestre 1 semaine
Semestre 1 week end
Semestre 2 semaine
Semestre 2 week-end.

Et dans chacune de ces feuilles j'ai des tableau en place et des graph pret à analysé les horaires sur la colonne A.


Et le soucis c'est que je veux qu'à chaque fois que je recupere un nouveau fichier , il fasse le meme boulot de trie et envoie les donnés A la suite dans les feuilles concernés.

Voici deux fichiers parmis tant d'autres

http://www.cijoint.fr/cjlink.php?file=cj200906/cijNSXcqUJ.xls
http://www.cijoint.fr/cjlink.php?file=cj200906/cijcJfxlla.xls

Et le fichier mère

http://www.cijoint.fr/cjlink.php?file=cj200906/cijwyTbdwg.xls

Merci de m'avoir lu et j'espère que vous pourrez me donner quelques pistes parce que je suis vraiment embeter , c'est dur pour les anciens de se mettre dans l'informatique .
A voir également:

1 réponse

Kozak9 Messages postés 2 Date d'inscription mercredi 17 juin 2009 Statut Membre Dernière intervention 17 juin 2009
17 juin 2009 à 11:16
J'ai reussis ce bout de programme pour transposer les infos que je veux dans kle fichier mère ( Classeur 1 )

Sub Transposition()
'
Range("A6:I600").Select
Range("A600").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=6, Criteria1:="PORTAIL MONTANT DROIT"
Range("B8:E600").Select
Selection.Copy
Windows("Classeur1.xls").Activate
Range("E2").Select
ActiveSheet.Paste
Windows("Ronde1.xls").Activate
Range("A8:A600").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Classeur1.xls").Activate
Range("I2").Select
ActiveSheet.Paste
Range("A2").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[4]*24"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=TEXT(RC[7],""jjjj"")"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=""trim""&INT((MONTH(RC[6])-1)/3+1)"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=MONTH(RC[5])"
Range("A2:D2").Select
Selection.AutoFill Destination:=Range("A2:D46"), Type:=xlFillDefault

Range("A2:D46").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("E2:I600").Select
Application.CutCopyMode = False
Selection.ClearContents

Range("E2:I600").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("E4:I4").Select
ActiveWindow.ScrollRow = 80


Range("A2").Select


End Sub

C'est bricoler grace à l'enregistreur de macro .
Je reste bloqué sur le fait de copier de la meme manière un fichier similaire mais à la suite du fichier precedemment coller.
0