Bouton VBA et macro

Bonjour,:oops:

J'ai une feuille de calcul avec un bouton "copier" qui sert à faire une copie de cette feuille de calcul.j'ai ajouter à ce code la fonction with pour que je puisse insérer automatiquement un bouton dans la feuille copie et ça fonctionne !

Code:

---

1 2 3 4 5

With ActiveSheet.Buttons .Add(PosG, PosH, Longueur, Hauteur).Select .OnAction = "MacroName" .Caption = "ButtonName" End With

---

Le soucis c'est que ce nouveau bouton remplace le bouton copier dans la feuille copie! ce bouton étant donné précieux je veux le garder en même temps que le nouveau. En gros, sur la feuille copie, il me faut les deux boutons!

des idées ?

Bonne journée

Bonjour,

Citation:

---

Le soucis c'est que ce nouveau bouton remplace le bouton copier dans la feuille copie! ce bouton étant donné précieux je veux le garder en même temps que le nouveau. En gros, sur la feuille copie, il me faut les deux boutons!

---

La feuille copie, c'est laquelle la feuille source ou la feuille copiée ?
D'après le code que tu affiches, il y a bien un nouveau CommandButton qui se crée. Cependant tu ne nous indiques pas à quel niveau se trouve ce code (avant la méthode Copy ou après ?

S'il y a un bouton sur la feuille A et que l'instruction de copie (méthode Copy) se trouve avant le code affiché il y aura un bouton en feuille A et deux en feuille B (celle sui vient d'être copiée
En revanche si la méthode Copy est placée après il y aura deux boutons dans les deux feuilles

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,

La feuille copie, c'est laquelle la feuille source ou la feuille copiée ?
D'après le code que tu affiches, il y a bien un nouveau CommandButton qui se crée. Cependant tu ne nous indiques pas à quel niveau se trouve ce code (avant la méthode Copy ou après ?

---

Re,

Je voulais dire par la feuille copie, la feuille copiée (je me suis mal exprimée):oops:
ici il me semble qu'il est après la méthode copy!
peut être il faut spécifier l'endroit de la création du bouton ?

Edit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Copy() Dim wh As Worksheet   Dim PosG As Integer Dim PosH As Integer Dim Hauteur As Integer Dim Longueur As Integer Dim Range As Range   Set wh = Worksheets(ActiveSheet.Name)   ActiveSheet.Copy After:=wh ActiveSheet.Name = "Nom" & wh.Name With ActiveSheet.Buttons .Add(PosG, PosH, Longueur, Hauteur).Select .OnAction = "MacroName" .Caption = "ButtonName" End With End Sub

---

Bonjour,

Citation:

---

ici il me semble qu'il est après la méthode copy!

---

Comment il te semble, tu n'as pas le code sous les yeux ?

Citation:

---

peut être il faut spécifier l'endroit de la création du bouton ?

---

Le code est correct et fonctionne, je peux te l'assurer à condition toutefois d'avoir affecté une valeur aux variables ou constantes telles que PosG, PosH, Longueur, Hauteur mais comme tu n'as pas affiché tous les éléments pour pouvoir apprécier c'est difficile de te répondre sérieusement

Au lieu de copier toute la feuille (le bouton avec), tu peux copier juste la plage de cellules utilisée avec la propriété UsedRange de Vba

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,

Comment il te semble, tu n'as pas le code sous les yeux ?

---

Ha mes si, mais comme il affiche pas les deux boutons dans la feuille copiée je vois toujours pas le problème 8O

Citation:

---

Le code est correct et fonctionne, je peux te l'assurer à condition toutefois d'avoir affecté une valeur aux variables ou constantes telles que PosG, PosH, Longueur, Hauteur mais comme tu n'as pas affiché tous les éléments pour pouvoir apprécier c'est difficile de te répondre sérieusement

---

J'ai juste déclaré les variables sans leur affecter de valeurs ! :roll:

J'ai édité le code ci-dessus

Citation:

---

Envoyé par zoltar_x

Au lieu de copier toute la feuille (le bouton avec), tu peux copier juste la plage de cellules utilisée avec la propriété UsedRange de Vba

---

Bonjour zoltar,
J'ai besoin de toute la feuille pas seulement une plage ...

Bonjour,

Citation:

---

J'ai besoin de toute la feuille pas seulement une plage ...

---

C'est bien ce que j'avais cru comprendre à la lecture de ta demande

Voici donc un exemple de code qui copie la feuille où se trouve le bouton (ActiveX) nommé mdRunCopy dans un nouveau classeur et ensuite après la copie crée un second bouton sur la même feuille (copiée) avec comme texte "Je suis le petit nouveau" (propriété Caption)

Nous retrouverons donc sur cette nouvelle feuille l'ensemble du contenu de la feuille + le bouton existant + un second bouton (le petit nouveau)
cmdRunCopy_Click est la procédure événementielle du bouton présent sur la feuille d'origine (ce bouton se nommant cmdRunCopy)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub cmdRunCopy_Click() ' Déclaration Const PosH As Double = 10 Const PosG As Double = 10 Const Longueur As Double = 100 Const Hauteur As Double = 30 ' Me.Copy ' Copie de la feuille ' Ajout d'un bouton With ActiveSheet.Buttons .Add(PosG, PosH, Longueur, Hauteur).Select .OnAction = "MacroName" .Caption = "Je suis le petit nouveau" End With End Sub

---

Attention tout de même que la procédure nommée MacroName n'existe pas dans ce nouveau classeur