Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro pour créer des d’onglets

  • Initiateur de la discussion Initiateur de la discussion mouftie
  • 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 !

mouftie

XLDnaute Junior
bonjour,
Je travaille sur un planning, que j'ai fait à partir d'exemples trouvés (c'est le 1er projet qu'on me confit... je ne voudrais pas que ce soit le dernier)

J'ai créer une feuille appelée 'Planning' qui doit servir de modèle pour tous les mois de saisie. 'Planning' se met automatiquement à jour à partir du choix mois / date de l'utilisateur (fait dans la feuil 'Menu')

Ce que je voudrais faire ensuite, en VBA :🙄

Feuil Planning : Clic droit sur l’onglet => choisir Déplacer ou copier… => Choisir Créer une copie avant la feuil "Planning".
Sur la nouvelle feuille : Copier B3 / Coller les valeurs
toujours en B3 pour annuler la formule =DATE(ChoixAn;ChoixMois;1)
Renommer la feuil "MM-AA" MM = mois et AA = Année


Pendant que j'y suis, mais c'est moins grave, si on peut supprimer les samedi et dimanche de la feuille 'Planning' le travail serait plus lisible.
je joins un fichier exemple

Merci pour votre aide et de bein vouloir documenter votre code, afin que je comprenne... 😱
 

Pièces jointes

Re : Macro pour créer des d’onglets

Salut,

Pour pallier au problème de nomination de l'onglet, je peux te conseiller de créer un bouton sur ta feuille "Planning" et d'y affecter une macro.
Bien entendu, tu pourrait créer un Userform avec un choix multiple via des cases à cocher pour ne pas avoir à taper le mois toi-même mais disons que ça rend déjà plus fun avec l'inputbox.

Voici la macro que tu pourrais y mettre :

Code:
Sub copier()
    
' le prochain onglet portera le nom du mois dans bises
    bises = inputbox("Quel sera le mois suivant ?", "Choix du mois à créer")

' copie la feuille planning et la renomme avec la valeur obtenue dans bises    
    Sheets("Planning").Select
    Sheets("Planning").Copy Before:=Sheets("Planning")
    Sheets("Planning (2)").Select
    Sheets("Planning (2)").Name = bises

End Sub


Cordialement.
 
Dernière édition:
Re : Macro pour créer des d’onglets

Bonjour Bebere et Sourcier,
Merci de votre aide

Pour les onglets, c'est super, c'est Ok. 😉

Pour les week-end, la formule ne convient pas, car elle ne supprime pas les colonnes :
il faut qu'à la création d'un nouvel onglet (avec la proposition de Sourcier) la macro continue en supprimant (et non masquant) les colonnes samedi et dimanche.

Merci encore
 
- 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

Discussions similaires

Réponses
5
Affichages
898
Réponses
8
Affichages
640
J
Réponses
0
Affichages
2 K
jeromedjej
J
C
Réponses
3
Affichages
928
Carlich
C
L
Réponses
11
Affichages
2 K
le tophe
L
A
Réponses
4
Affichages
1 K
Aliceploum
A
G
Réponses
11
Affichages
5 K
J
Réponses
0
Affichages
1 K
J
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…