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 :
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 me les ajoute toutes les trois d'un seul coup.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 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
Merci d'avance pour vos réponses.
Partager