XL 2010 Boucle feuille

mymyvba · 4 Septembre 2019

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 · 4 Septembre 2019

Bonjour,

Quelque chose comme :

VB:

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

?

Cordialement.

Daniel

mymyvba · 20 Septembre 2019

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 · 20 Septembre 2019

Pourquoi as-tu parlé de boucle, alors ?

VB:

  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 · 20 Septembre 2019

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

XL 2010 Boucle feuille

mymyvba

XLDnaute Nouveau

danielco

XLDnaute Accro

mymyvba

XLDnaute Nouveau

danielco

XLDnaute Accro

mymyvba

XLDnaute Nouveau

Discussions similaires