décupler une feuill

  • Initiateur de la discussion Initiateur de la discussion hokuto
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Bonjour Hokuto, le Forum

Il y a un petit truc à respecter sur ce Forum, c'est d'essayer d'être un tant soit peu plus soigné dans la rédaction d'un Post. Car là on dirait que tu confonds 'Tchat' et Forum de partage de Connaissance. C'est à dire prendre au moins le minimum de temps pour rédiger une question que ce que l'on espère obtenir du temps de quelqu'un pour rédiger une répondre...

Tes écrits restent ici pour la fin des temps... (Enfin tant que Mambo tiendra le coup !)

Pour ta réponse, voici :

Sub TheReplicator()
Dim WSMatrix As Worksheet
Dim i As Byte

Set WSMatrix = Worksheets('Matrix')

Application.ScreenUpdating =
False
   
For i = 1 To 42
        WSMatrix.Copy After:=Worksheets(Worksheets.Count)
        Worksheets(Worksheets.Count).Name = 'Matrix Copy ' & Format(Now, 'YYMMDDHHMMSS') & i
   
Next
Application.ScreenUpdating =
True


End Sub



Bonne Journée
@+Thierry


EDITION !!!

Arf la foudre est déjà tombée !! Je n'avais pas vu !!! LOL

C'est pas bien ça Hokuto !!!

Message édité par: _Thierry, à: 25/07/2005 11:23
 
RE Bonjour Hokuto, le Fil le Forum

Ce ne sont pas des 'Formules' mais une Macro en Visual Basic...

Le plus simple est d'enregistrer une macro 'bidon' et de regarder le résultat dans VBE (Visual Basic Editor)... (Voir Menu Outils d'Excel à Macro)

Dans le Module ainsi créé automatiquement tu copies et colle mon code en prenant soin d'ajuster :

Set WSMatrix = Worksheets('Matrix')

Par

Set WSMatrix = Worksheets('Nom De Ta Feuille')

Ensuite toujours dans VBE tu fais 'Run' (Exécuter je pense en FR) ou dans Excel tu vas de nouveau dans Outils / Macro / Macros (ou ALT F8)

Bon Appétit
@+Thierry
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
Microsoft 365 problème
Réponses
19
Affichages
910
Réponses
4
Affichages
175
  • Question Question
Réponses
32
Affichages
745
  • Question Question
Microsoft 365 agrandir la liste
Réponses
21
Affichages
635
Réponses
15
Affichages
795
  • Question Question
Microsoft 365 couleur et ligne
Réponses
6
Affichages
287
Réponses
19
Affichages
702
  • Question Question
Microsoft 365 Fonction si
Réponses
7
Affichages
215
Réponses
23
Affichages
654
Réponses
3
Affichages
275
Réponses
6
Affichages
569
Retour