Discussion :

[Peerl]

Bonjour,

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 :

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

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

[Philippe Tulliez]

Bonjour,

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

[Peerl]

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)
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 :

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

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

[Philippe Tulliez]

Bonjour,

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 ?

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

[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

[Peerl]

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

[Peerl]

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

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 !

J'ai édité le code ci-dessus