Bonjour à tous,
J'aurais besoin d'aide pour la création d'une macro.
- J'ai inséré un bouton de commande :
Lors du click j'aimerais que la macro me rajoute une nouvelle feuille en fonction du nom précédent.
Exemple : la feuille 1 s'appelle : contact 1, je click sur le bouton de commande, la feuille s'appellera donc contact 2 et ainsi de suite...
Petite difficulté, peut être en plus, tous les onglets ne s'appelle pas de la même façon :
Il y a un onglet a, un onglet b, et ensuite l'onglet contact 1.
J'aimerais donc que les noms a et b ne bougent pas.
Et pour finir j'aimerais que lors du click mon tableau en feuille "a" voit s'ajouter une colonne le plus à droite du nom de la nouvelle page créer.
Je vous joins un fichier en exemple, Car je ne dois pas être très clair ^^
J'ai réussie à faire cette macro mais le problème c'est quelle me renome toute mes feuilles
Merci beaucoup de votre aide...
J'aurais besoin d'aide pour la création d'une macro.
- J'ai inséré un bouton de commande :
Lors du click j'aimerais que la macro me rajoute une nouvelle feuille en fonction du nom précédent.
Exemple : la feuille 1 s'appelle : contact 1, je click sur le bouton de commande, la feuille s'appellera donc contact 2 et ainsi de suite...
Petite difficulté, peut être en plus, tous les onglets ne s'appelle pas de la même façon :
Il y a un onglet a, un onglet b, et ensuite l'onglet contact 1.
J'aimerais donc que les noms a et b ne bougent pas.
Et pour finir j'aimerais que lors du click mon tableau en feuille "a" voit s'ajouter une colonne le plus à droite du nom de la nouvelle page créer.
Je vous joins un fichier en exemple, Car je ne dois pas être très clair ^^
J'ai réussie à faire cette macro mais le problème c'est quelle me renome toute mes feuilles
Sub Bouton1_Cliquer()
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
Dim Feuille As Worksheet, Boucle As Long
Boucle = 1
For Each Feuille In Worksheets
Feuille.Name = ("Contract ") & Boucle
Boucle = (Boucle + 1)
Next Feuille
End Sub
Merci beaucoup de votre aide...
Pièces jointes
Dernière édition: