Discussion :

[Stroub]

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 :

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

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.

Merci d'avance pour vos réponses.

[Philippe Tulliez]

Bonsoir,
Où est l'incrémentation dans le nom ?
La variable qui est en rouge, je la remplacerais par la variable C qui est la seule à être incrémentée. (Attention, je n'ai rien testé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub cmd_enregistrer_Click()
Dim C As Integer
While C < 3
Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Compétition" & Format(nom, "00")
C = C + 1
Wend
End Sub