Sujet Précédent Sujet Suivant

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

Réponse 1 / 1
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

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop


a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur


'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

5 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

3 réponses
Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

Bonjour,
je cherche à transformer un chiffre en lettre dans excel mais sans macro.
Quelqu'un a déjà apporter une réponse génial à base d'une succession de formule =si() mais je n'arrive pas à la retrouver sur le forum.
Please aidez moi

6 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll


Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

0 réponse