XL 2010 Boucle feuille

[mymyvba]

Bonjour, je construis un outil permettant de visualiser des rétroplannings. Lorsque je clique sur le bouton, j'ai une nouvelle feuille qui s'ouvre et qui se nomme "Rétro". J'aimerai qu'à partir de ce bouton je puisse créer les feuilles du même nom "Rétro" s'affiche avec comme nom d'onglet par exemple "Rétro 2", puis " Rétro 3"....ect est ce qu'il est possible de créer une boucle avec un nom prédéfini de l'onglet ?

 

[danielco]

Bonjour,

Quelque chose comme :

  For i = 1 To 10
    Sheets.Add after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "Retro" & i
  Next i

?

Cordialement.

Daniel

 

[mymyvba]

Merci bcp Daniel, j'ai testé mais il me produit toutes les feuilles en même temps alors que je souhaite que le bouton génère la feuille avec le nom xxx1 puis si je click à nouveau sur le bouton il génère une nouvelle xxx2 ect... est ce possible de le faire ?

 

[danielco]

Pourquoi as-tu parlé de boucle, alors ?

  Dim I As Integer
  For Each sh In Sheets
    Debug.Print sh.Name
    If CInt(Right(sh.Name, 1)) > I And Left(sh.Name, 5) = "retro" Then I = CInt(Right(sh.Name, 1))
  Next sh
  Sheets.Add after:=Sheets(Sheets.Count)
  ActiveSheet.Name = "Retro" & I + 1

Daniel

 

[mymyvba]

Pardon pour le vocabulaire utilisé, je ne savais pas trop comment l'appeler. Merci, je vais tester le nouveau code