Enregistrer des données d'une feuille n-1 vers une feuille n

Bonjour,

je me propose de faire un classeur dont chaque feuille est un cycle de 24 jours. La feuille n depend de ce qui s'est passé sur la feuille n-1.

j'aimerais donc pouvoir recopier un tableau de n-1 vers n.

Voici ce que je fais a l'ordre 1:

Sub miseajournouvellegrille()

'

' miseajournouvellegrille Macro

' Macro enregistrée le 24/06/2009 par Utilisateur de la version d'évaluation de Office 2004

'

'

Sheets("Feuil1").Select

ActiveWindow.ScrollColumn = 22

range("AM4:BC19").Select

Selection.Copy

Sheets("Feuil1 (2)").Select

ActiveWindow.ScrollColumn = 1

ActiveWindow.ScrollRow = 1

range("B4:R19").Select

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _

xlNone, SkipBlanks:=False, Transpose:=False

End Sub

Quelqu'un saurait il m'etablir la recurrence necessaire a ma macro svp?

Merci d'avance.

Shashemene

Bonsoir à tous,

Tu veux ajouter une nouvelle feuille ?

Envoie ton fichier avec annotations de ce que tu souhaite.

Amicalement

Claude.

Bonjour dubois, sashemene (c'est de quelle origine ça?)

Si Feuil1 est la première feuille du classeur et Feuil2 celle qui suit, tu peux remplacer :

Sheets("Feuil1").Select par Sheets(1).Select

et

Sheets("Feuil1 (2)").Select par Sheets(2).Select

Si tu veux exécuter le code pour toutes les feuilles du classeur, voici le code :

Sub miseajournouvellegrille()

    For i = 1 To Sheets.Count - 1

        Sheets(i).Select
        ActiveWindow.ScrollColumn = 22
        Range("AM4:BC19").Select
        Selection.Copy
        Sheets(i + 1).Select
        ActiveWindow.ScrollColumn = 1
        ActiveWindow.ScrollRow = 1
        Range("B4:R19").Select
        Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

    Next i

End Sub

Bonjour,

C'est Excel 2004 (surement MAC...) ou excel 2007 que tu possèdes ?? En bref, la demande est pour toi ou un autre utilisateur ?

Amicalement

Dan

Salut a tous!

Alors je suis effectivement sous MAC et ce programme est bien pour moi!

Shashemene est un pseudo qui provient du nom d'une ville en Ethiopie:

Et merci pour vos precieuses réponses qui m'ont emmenés vers une solution efficace ( a defaut d'etre propre peut-etre , mais je debute...)

la voici:

Sub Créernouvellegrille()

'

' Créernouvellegrille Macro

' Macro enregistrée le 24/06/2009 par Utilisateur de la version d'évaluation de Office 2004

'

'

ActiveSheet.Copy Before:=Sheets(2)

'

ActiveSheet.Select

ActiveWindow.ScrollColumn = 22

range("AM4:BC19").Select

Selection.Copy

Sheets("Feuil1 (2)").Select

ActiveWindow.ScrollColumn = 1

ActiveWindow.ScrollRow = 1

range("B4:R19").Select

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _

xlNone, SkipBlanks:=False, Transpose:=False

ActiveSheet.Select

range("BK3").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Feuil1 (2)").Select

range("BJ3").Select

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _

xlNone, SkipBlanks:=False, Transpose:=False

End Sub

MERCI a tous!

Re,

Pas trop bien compris ce que tu veux faire sachant que tu dupliques une feuille et que tu copies des cellules dans la première feuille pour les coller ailleurs dans ta feuille dupliquée ...

Sinon en première approche ton code peut être simplifié comme ceci :

Sub Créernouvellegrille()
ActiveSheet.Copy Before:=Sheets(2)
ActiveSheet.Select
Range("AM4:BC19").Copy
Sheets("Feuil1 (2)").Select
Range("B4:R19").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone
Range("BK3").Copy
Sheets("Feuil1 (2)").Select
Range("BJ3").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone
End Sub

Amicalement

Dan