Signaler

Copier des formes

Posez votre question LéoTaba - Dernière réponse le 17 févr. 2017 à 09:25 par cs_Le Pivert
Bonjour,
a l'aide d'un codage VBA, j'ai une page dont toutes les cellules sont copiées puis collées dans une nouvelle page
Le problème est que dans cette page copiée, j'ai aussi une forme (un cercle) affublé d'une maccro et j'aimerais que ce cercle soit LUI aussi copié quand la nouvelle page se crée. Voici le codage VBA, si vous savez comment (et ) le rajouter, je vous en serait reconnaissant.
Cdlmt

Sub Nouveau_Mois()

Application.ScreenUpdating = False

'confirmer sélection feuille / copier

Sheets("Base de données").Select
Cells.Select
Selection.Copy

'créer une nouvelle feuille / coller le type mois base

Sheets.Add after:=ActiveSheet
Cells.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False


'nommer la feuille

ActiveSheet.Name = Range("B1").Value

'ajouter dans le sommaire

Range("B1").Copy Destination:=Sheets("Sommaire").Range("B1").End(xlDown).Offset(1, 0)

'effacer le'entrée dans mois base

Sheets("Base de données").Activate
Range("B1").ClearContents
Range("C5:an5").ClearContents
Range("C7:an7").ClearContents
Range("C9:an9").ClearContents
Range("C11:an11").ClearContents
Range("C13:an13").ClearContents
Range("C15:an15").ClearContents
Range("C17:an17").ClearContents
Range("C19:an19").ClearContents
Range("C21:an21").ClearContents
Range("C23:an23").ClearContents
Range("C25:an25").ClearContents
Range("C27:an27").ClearContents
Range("C29:an29").ClearContents
Range("C31:an31").ClearContents
Range("C33:an33").ClearContents
Range("C35:an35").ClearContents
Range("C37:an37").ClearContents
Range("C39:an39").ClearContents
Range("C41:an41").ClearContents
Range("C43:an43").ClearContents
Range("C45:an45").ClearContents
Range("C47:an47").ClearContents
Range("C49:an49").ClearContents
Range("C51:An51").ClearContents
Range("C53:An53").ClearContents
Range("C55:An55").ClearContents
Range("C57:An57").ClearContents
Range("C59:An59").ClearContents
Range("C61:An61").ClearContents
Range("C63:An63").ClearContents
Range("C65:An65").ClearContents
Range("C67:An67").ClearContents
Range("C69:an69").ClearContents
Range("C71:an71").ClearContents
Range("C73:an73").ClearContents
Range("C75:an75").ClearContents
Range("C77:An77").ClearContents
Range("C79:An79").ClearContents
Range("C81:An81").ClearContents
Range("C83:An83").ClearContents
Range("C85:An87").ClearContents
Range("C89:An91").ClearContents
Range("C93:An94").ClearContents
Range("C96:an99").ClearContents
Range("C101:an101").ClearContents
Range("C103:an103").ClearContents
Range("C105:An105").ClearContents
Range("C107:An107").ClearContents
Range("C109:An110").ClearContents
Range("C112:An114").ClearContents
Range("C115:G118").ClearContents
Range("j115:n118").ClearContents
Range("q115:u118").ClearContents
Range("x115:ab118").ClearContents
Range("ae115:ai118").ClearContents
Range("al115:an118").ClearContents
Range("C119:AN139").ClearContents
Range("C141:An143").ClearContents
Range("C119:An125").ClearContents
Range("C145:An148").ClearContents
Range("C150:An166").ClearContents
Range("C174:AN176").ClearContents


'retour au sommaire
Sheets("Sommaire").Select

Application.ScreenUpdating = True

End Sub



Utile
+0
plus moins
Bonjour
ne serait il pas plus simple de créer directement une copie de la feuille source et ensuite d'effectuer les effacements plutôt que de tout coller sur une nouvelle feuille. Dans ce cas, le bouton est copié avec.
crdlmnt

Donnez votre avis
Utile
+0
plus moins
Non je suis obligé d'automatiser le truc, ca sera utilisé par un nul en informatique
Vaucluse 20363Messages postés lundi 23 juillet 2007Date d'inscription ContributeurStatut 26 septembre 2017 Dernière intervention - 16 févr. 2017 à 15:51
Vi, mais la macro peut copier la feuille plutôt que de copier coller sur une nouvelle
Répondre
Donnez votre avis
Utile
+0
plus moins
Bonjour,

voir ceci:

http://www.commentcamarche.net/forum/affich-34360824-affecter-automatiquement-une-maccro#8
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !