macro excel

[MICHAEL]

j'ai créer un fichier excel comportant 12 feuilles correspondant aux mois de l'année
J'ai incorporé dans ce fichier une macro
je souhaiterai que celle-ci se termine automatiquement sur la feuille correspondant au mois en cours

merci de votre aide

 

[JeanMarie]

Re : macro excel

Re...

Voilà ta macro, réduite

Sub Macro6()
Dim I As Byte
Dim vFeuil() As Variant
vFeuil = Array("JAN", "FEV", "MARS", "AVR", "MAI", "JUIN", "JUIL", "AOUT", "SEPT", "OCT", "NOV", "DEC")
For I = 0 To Month(Now)-1
   Sheets(vFeuil(I)).Range("A51") = Sheets(vFeuil(I)).Range("A52")
   Range("A36").Select
Next I
End Sub

@+Jean-Marie

 

[MICHAEL]

Re : macro excel

Bonjour JeanMarie
désolé, cela ne marche pas chez moi
je t'envoie la totalite de la macro à laquelle j'ai inclu la tienne afin que tu puisse me corriger
cordialement

Sub Macro6()

' Macro6 Macro
' Macro enregistrée le 09/08/2006 par
Dim I As Byte
Dim vFeuil() As Variant
Sheets("jan").Select
ActiveWindow.SmallScroll Down:=36
Range("A52").Select
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-54
Range("A36").Select
Sheets("fev").Select
ActiveWindow.SmallScroll Down:=42
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-66
Range("A36").Select
Sheets("MARS").Select
ActiveWindow.SmallScroll Down:=42
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-60
Range("A36").Select
Sheets("avr").Select
ActiveWindow.SmallScroll Down:=36
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-66
Range("A36").Select
Sheets("MAI").Select
ActiveWindow.SmallScroll Down:=30
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-48
Range("A36").Select
Sheets("JUIN").Select
ActiveWindow.SmallScroll Down:=42
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-60
Range("A36").Select
Sheets("JUIL").Select
ActiveWindow.SmallScroll Down:=36
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-48
Range("A36").Select
Sheets("AOUT").Select
ActiveWindow.SmallScroll Down:=36
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-54
Range("A36").Select
Sheets("SEPT").Select
ActiveWindow.SmallScroll Down:=36
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-54
Range("A36").Select
ActiveWindow.SmallScroll Down:=-12
Sheets("OCT").Select
ActiveWindow.SmallScroll Down:=42
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-72
Range("A36").Select
Sheets("NOV").Select
ActiveWindow.SmallScroll Down:=36
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-72
Range("A36").Select
Sheets("DEC").Select
ActiveWindow.SmallScroll Down:=36
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-66
Range("A36").Select

vFeuil = Array("JAN", "FEV", "MARS", "AVR", "MAI", "JUIN", "JUIL", "AOUT", "SEPT", "OCT", "NOV", "DEC")
For I = 0 To Month(Now) - 1
Sheets(vFeuil(I)).Range("A51") = Sheets(vFeuil(I)).Range("A52")
Range("A36").Select
Next I
End Sub

 

[JeanMarie]

Re : macro excel

Bonjour

A part la sélection de la cellule A36 dans le feuilles autres que JAN, je ne vois pas.

Sub Macro6()
Dim I As Byte
Dim vFeuil() As Variant
vFeuil = Array("JAN", "FEV", "MARS", "AVR", "MAI", "JUIN", "JUIL", "AOUT", "SEPT", "OCT", "NOV", "DEC")
For I = 0 To Month(Now) - 1
   Sheets(vFeuil(I)).Select
   Range("A51") = Range("A52")
   Range("A36").Select
Next I
End Sub

Si tu as encore des problèmes, explique tes soucis

@+Jean-Marie

 

[MICHAEL]

Re : macro excel

super, cela semble OK.
Je te remercie de ton aide et de ta patience
a+
Michael