Masck
XLDnaute Nouveau
Bonjour à tous,
Pour commencer je tiens à préciser que je travaille sur Office 2003 SP2 sous Windows XP.
Je viens vers vous pour une tâche que je dois répeter tous les matins et que j'aimerais automatiser un peu.
En effet, dans un tableau où chaque colonne représente un jour, je dois recopier des formules sur 8 lignes. Ces lignes ne changent jamais. J'utilise donc la poignée de recopie tous les matins pour copier mes formules vers la colonne suivante, sachant que je ne peux pas recopier les formules sur toute la ligne parce que ce fichier doit parvenir à un client et que ce n'est pas très esthétique.
Naïvement, j'ai cru utiliser "l'enregistreur" de macros et faire ma manip mais il reste sur les mêmes cellules à chaque fois.
J'ai obtenu le code suivant :
J'aimarais savoir comment modifier ce code et ainsi pouvoir définir "recopie la formule sur la colonne de droite pour les lignes 5, 13, 141 16, 17, 21, 23 et 24 et ainsi que chaque jour en lançant la macro il se recopie les formules automatiquement.
En éspérant avoir été assez clair dans ma demande...je vous remercie d'avance .
Pour commencer je tiens à préciser que je travaille sur Office 2003 SP2 sous Windows XP.
Je viens vers vous pour une tâche que je dois répeter tous les matins et que j'aimerais automatiser un peu.
En effet, dans un tableau où chaque colonne représente un jour, je dois recopier des formules sur 8 lignes. Ces lignes ne changent jamais. J'utilise donc la poignée de recopie tous les matins pour copier mes formules vers la colonne suivante, sachant que je ne peux pas recopier les formules sur toute la ligne parce que ce fichier doit parvenir à un client et que ce n'est pas très esthétique.
Naïvement, j'ai cru utiliser "l'enregistreur" de macros et faire ma manip mais il reste sur les mêmes cellules à chaque fois.
J'ai obtenu le code suivant :
Code:
Sub RecopieFormule()
'
' RecopieFormule Macro
' Macro enregistrée le 24/01/2008 par aamle297
'
'
Selection.AutoFill Destination:=Range("S5:T5"), Type:=xlFillDefault
Range("S5:T5").Select
Range("S13").Select
Selection.AutoFill Destination:=Range("S13:T13"), Type:=xlFillDefault
Range("S13:T13").Select
Range("S14").Select
Selection.AutoFill Destination:=Range("S14:T14"), Type:=xlFillDefault
Range("S14:T14").Select
Range("S16").Select
Selection.AutoFill Destination:=Range("S16:T16"), Type:=xlFillDefault
Range("S16:T16").Select
Range("S17").Select
Selection.AutoFill Destination:=Range("S17:T17"), Type:=xlFillDefault
Range("S17:T17").Select
Range("S21").Select
Selection.AutoFill Destination:=Range("S21:T21"), Type:=xlFillDefault
Range("S21:T21").Select
Range("S23").Select
Selection.AutoFill Destination:=Range("S23:T23"), Type:=xlFillDefault
Range("S23:T23").Select
Range("S24").Select
Selection.AutoFill Destination:=Range("S24:T24"), Type:=xlFillDefault
Range("S24:T24").Select
End Sub
J'aimarais savoir comment modifier ce code et ainsi pouvoir définir "recopie la formule sur la colonne de droite pour les lignes 5, 13, 141 16, 17, 21, 23 et 24 et ainsi que chaque jour en lançant la macro il se recopie les formules automatiquement.
En éspérant avoir été assez clair dans ma demande...je vous remercie d'avance .