Ajouter plusieurs feuilles les une à la suite de l'autre VBA

Résolu/Fermé

stroub Messages postés 1 Date d'inscription jeudi 22 novembre 2012 Statut Membre Dernière intervention 22 novembre 2012 - 22 nov. 2012 à 18:42
Heliotte Messages postés 1491 Date d'inscription vendredi 26 octobre 2012 Statut Membre Dernière intervention 28 janvier 2013 - 24 nov. 2012 à 20:47

Bonjour,

J'essaye de créer plusieurs feuilles Excel (au max 3) les une à la suite de l'autre à l'aide d'un bouton sous VBA. J'ai essayer avec ceci mais ça ne marche :

Private Sub cmd_enregistrer_Click()

Dim C As Integer

While C < 3
Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Compétition" & Format(C, "00")
C = C + 1
Wend

End Sub

Donc ce que je voudrais c'est ajouter une première feuille nommée Compétition 01 puis en cliquant une deuxième fois sur le bouton ajouter une deuxième feuille nommée Compétition 02 ... alors que là ça les ajoute toutes les trois d'un seul coup.

Merci d'avance pour vos réponses.

A voir également:

Ajouter plusieurs feuilles les une à la suite de l'autre VBA
Fusionner plusieurs feuilles excel en une seule - Guide
Ajouter un compte gmail - Guide
Ajouter une signature sur word - Guide
Comment faire un livret avec des feuilles a4 - Guide
Ajouter une liste déroulante excel - Guide

2 réponses

Réponse 1 / 2

Heliotte Messages postés 1491 Date d'inscription vendredi 26 octobre 2012 Statut Membre Dernière intervention 28 janvier 2013 92
22 nov. 2012 à 23:55

Essaie ceci:

Sheets.Add.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).name = "Compétition" & Format(C, "00")

eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
24 nov. 2012 à 13:36

Bonjour à tous,

Tu devrais aussi sauvegarder et utiliser c dans une cellule si tu veux reprendre le compte à la réouverture du classeur.
Sinon ça va t'obliger à ajouter une boucle sur toutes les feuilles pour avoir le dernier n° utilisé.

eric

Heliotte Messages postés 1491 Date d'inscription vendredi 26 octobre 2012 Statut Membre Dernière intervention 28 janvier 2013 92
24 nov. 2012 à 20:47

Merci eriiic, j'y avait pas pensé, mais tu as raison, pour .. mémoriser la dernière valeur

Réponse 2 / 2

stroub
24 nov. 2012 à 18:29

Merci beaucoup à vous !!

Discussions similaires

Reporter valeur sur autre feuille avec critere

Erreur d'exécution 13 Incompatibilité de type

Nettoyer une base de données avec une liste

Comment savoir comment on nous a ajouté sur Snap