décaller un nouveau feuillet créé à l'extrémité droite

[lolinini]

Bonsoir,

Au cours d'une macro créant une nouvelle feuille ( pour coller les informations venant d'une autre), cette dernière se place au milieu des feuillet existants. Comment faire pour qu'elle se créée à l'extremité droite, sachant que d'autres feuilles seront créées et devront apparaitre à droite également?

Voici mon code:


Application.ScreenUpdating = False '

' ArchiverMois Macro (nom de la macro)
'

'
Cells.Select
Selection.Copy
Worksheets.Add.Name = MonthName(Month(Date)) (la nouvelle feuille)
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Récapitulatif").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy

Sheets("Récapitulatif").Select (retour à la feuille de départ)


End Sub

Merci par avance.

 

[ROGER2327]

Re : décaller un nouveau feuillet créé à l'extrémité droite

Bonsoir lolinini,

Je vous propose le code suivant :

Sub ArchiverMois2()
' ArchiverMois2 Macro (nom de la macro)
'
    Application.ScreenUpdating = False
    Worksheets.Add after:=Sheets(Sheets.Count)
    ActiveSheet.Name = MonthName(Month(Date)) '(la nouvelle feuille)
    Sheets("Récapitulatif").UsedRange.Copy
    ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    Application.CutCopyMode = False
    ActiveSheet.Cells(1, 1).Select
    Sheets("Récapitulatif").Activate '(retour à la feuille de départ)
    Application.ScreenUpdating = True
End Sub

qui crée la feuille nommée du nom du mois courant en dernière position dans le classeur, à condition qu'il n'existe pas déjà une feuille du même nom.​

Bonne nuit !
ROGER2327

 

[lolinini]

Re : décaller un nouveau feuillet créé à l'extrémité droite

Ha super merci!!!
c'est vraiment génial ce site!

merci beaucoup roger