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.
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.