Copier/coller une feuill avec des boutons activx

Bonjour

Est ce que quelqu'un peut me dire s'il est possible de copier une feuille 1 contenant des macros et des boutons activx dans une autre feuille 2

afin de ne pas être obligé de tout recoder sur la feuille 2

Je vous remercie

Bonjour, tout dépend du codage que vous avez utilisé ?

A tester en Dupliquant votre onglet et pas en copié collé.

Bonjour Joco7915 et XmenPL,

Je confirme et pour dupliquer il faut :

1 cliquer droit sur le nom de l'onglet

2 choisir "Déplacer ou copier" dans le menu

3 cocher la case "Créer une copie

4 éventuellement placer le curseur à l'endroit où l'on désir voir apparaitre la copie

5 cliquer sur " OK "

6 Changer le nom du nouvel onglet

Bonne continuation

Chris

Bonjour à tous les 2

J'ai essayé vos solutions mais cela ne fonctionne ,certains codes fonctionnent d'autres pas, les formules il faut tout reprendre

Merci quand même

Je mets le fichier

il faudrait copier et coller les feuilles Tirage et Journée en conservant les codes , boutons ,formules

Je ne sais pas si cela est possible

Bonjour

Je laisse tomber irrealisable

Crdlt

Bonsoir,

Je pense avoir trouvé une solution mais j'y travaille encore.

Repasse dans quelques jours.

A bientôt

Chris

bonjour Joco7915, Chris1945,

un essai, je ne sais pas si tout est copié/collé

Sub Joco7915()

     For Each feuil In Array("Tirage1", "Journée")     'ces 2 feuilles
          Set sht = Sheets(feuil)

          sht.Copy after:=sht                'copie de cette feuille
          Set shcopy = ActiveSheet           'la copie
          For Each shp In sht.Shapes         'boucler les formes
               With shp
                    adres = .TopLeftCell.Address     'adresse du fome
                    naam = .Name             'nom du forme
               End With

               t1 = Timer
               t2 = Timer + 0.2
               Do                            'temporiser un petit peu
                    DoEvents
               Loop While t1 <= Timer And Timer < t2

               shp.Copy                      'copier forme original
               shcopy.Paste Range(adres)     'coller dans nouvelle feuille

               For Each shp1 In shcopy.Shapes
                    If shp1.TopLeftCell.Address = adres Then shp1.Name = naam     'renommer nouveau forme
               Next
          Next
     Next
End Sub

Bonsoir à tous,

O U F ! je pense que je suis arrivé à construire quelque chose qui devrait correspondre à la demande de Joco7915.

J'espère avoir bien compris le fonctionnement de son application.

La complication résidait dans le fait que, lorsque l'on dupliquait les onglets...les formules et les vba ne s'adaptaient pas aux noms des nouveaux onglets.

Je pense avoir résolu ce problème en adaptant toutes les formules (il y en a quelques unes...) pour les rendre adaptables au nom de l'onglet. Pour cela il fallait :

- déterminer le nom de l'onglet (cellule A1)

- utiliser la fonction INDIRECT pour pouvoir lire le contenu en tenant compte du nom de l'onglet (exemple : =INDIRECT($A$1&"B3") où A1 contient "Tirage99")

- adapter tous les VBA pour à chaque fois adapter le nom de l'onglet

Bref, vu le volume de l'Application, cela m'a pris un peu de temps sans compter les surprises habituelles notamment il m'a fallut un certain temps pour comprendre pourquoi les copier coller ne fonctionnaient plus (j'utilisais un VBA évènementiel lors chaque changement de sélection...et bien j'ai découvert que l'usage de cet évènement coupait l'usage du copier coller et il m'a donc fallut le remplacer par changement d'activation)

J'ai adapter le Mode d'emploi avec quelques explications sur l'Application ainsi que quelques Notes de questions que je me pose ne connaissant pas vraiment le déroulement et l'usage de l'Application.

Si tu me réponds, j'adapterai pour coller à tes souhaits.

J'espère que cela collera au déroulement que tu escomptais. Fais bien un test de toutes les possibilités : il y en a tellement que j'en ai peut-être oubliées l'une ou l'autre.

Désolé pour le temps mis pour te proposer cette solution mais je peux te dire que j'y ai passé quelques heures...

A bientôt

Chris