Bonjour le forum,
j'ai enregistré une macro pour transférer les données d'un tableau annuel vers les lignes de chaque agent, sur un tableau de saisie de présence. Le principe c'est un tableau RTT annuel qui déverse sur la ligne de l'agent de chaque mois.
Sub copier_coller_2()
Range("C18:AG18").Select 'ligne correspondante janvier
Application.CutCopyMode = False
Selection.Copy
Sheets("JANV CONV").Select
Range("C9").Select ' ligne de l'agent sur le mois de janvier
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tableaux_RTT").Select
Range("C19:AF19").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FEVR CONV").Select
Range("C9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tableaux_RTT").Select
Range("A1").Select
End Sub
ce n'est pas très propre, avez vous une idée afin de faire plus court sachant que cette opération est à répéter pour les 12 mois et que j'ai 30 agents sur le tableau.
Merci à vous
merci
j'ai enregistré une macro pour transférer les données d'un tableau annuel vers les lignes de chaque agent, sur un tableau de saisie de présence. Le principe c'est un tableau RTT annuel qui déverse sur la ligne de l'agent de chaque mois.
Sub copier_coller_2()
Range("C18:AG18").Select 'ligne correspondante janvier
Application.CutCopyMode = False
Selection.Copy
Sheets("JANV CONV").Select
Range("C9").Select ' ligne de l'agent sur le mois de janvier
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tableaux_RTT").Select
Range("C19:AF19").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FEVR CONV").Select
Range("C9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tableaux_RTT").Select
Range("A1").Select
End Sub
ce n'est pas très propre, avez vous une idée afin de faire plus court sachant que cette opération est à répéter pour les 12 mois et que j'ai 30 agents sur le tableau.
Merci à vous
merci