Copier bouton dans chaque Multipage

**JUNGAG** · 09/08/2007, 09h06

Bonjour à tous,

j'ai besoin de votre aide!!
J'ai créé une interface qui utilise une multipage.Celle-ci est composée de 3 pages qui contiennent chacune des label et des textbox differentes.

Grace à un bouton je peux dupliquer la 3e page mais la nouvelle page créée apparait vide sans les controles de la 3e page.
Je voudrais donc qu'à chaque nouvelle page, cette nouvelle page contiennent tous les controles de la 3e page.

ça fait 2 jours que je cherche et rien...

Merci svp!!

J'ai dit que je pouvais dupliquer la 3e page mais ce n'est pas exact

en fait je peux créer une nouvelle page vierge et je voudrais donc y ajouter les contrôles de la 3e page.

Merci

**mordrhim** · 09/08/2007, 09h12

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil1").Copy After:=Sheets(2)

je précise que ca m'a pris 30 secs (28 pour mettre des cellules nons vides un format et des boutons, 2 pour lancer la macro)
tu as un enregistreur de macro qui te donne un code plus ou moins bien.

là je copie la feuille "Feuil1" apres la deuxieme feuille (Sheets(2))

EDIT : ha bah si tu change lorsque je rédige le message T_T

RE EDIT :

m'as pris 5 secs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 09/08/2007 par MCX
'
 
'
    ActiveSheet.Shapes.Range(Array("CommandButton1", "CommandButton2")).Copy
    Sheets("Feuil2").Select
    ActiveSheet.Paste
    Selection.ShapeRange.IncrementLeft 120#
    Selection.ShapeRange.IncrementTop 89.25
End Sub

**JUNGAG** · 09/08/2007, 09h27

Merci Mordrhim,

en fait ce n'est pas ça que j'attendais.
Quand je parle de Page ce ne sont pas des worksheet.

ce sont les pages d'un multipage créé dans un Userform

Merci