Création automatique de feuilles Exwel

tito -  
 algoplus -
Bonjour,

Bonjour,

Sub GenerationOnglets()
Dim i As Integer
For i = 1 To 3
Worksheets.Add
Worksheets(i).Name = i + 4
Next i
End Sub

le problème c'est que le programme génère bien les feuilles, mais c'est seulement la worksheets(3) qui est bien nommée, les autres sont pas nommées. Qqun sait ce qu'il se passe?
Configuration: Windows XP
Internet Explorer 6.0

1 réponse

  1. algoplus
     
    For i = 1 To 3
    Worksheets.Add
    Worksheets(i).Name = i + 4
    Next i
    Tu crées bien 3 nouvelles feuilles, mais ensuite tu renommes les feuilles existantes d'indice 1,2,3(par défaut feuil1,feuil2,feuil3) en 5, 6, 7.

    Pour créer et nommer les nouvelles feuilles
    For i = 1 To 3
    Worksheets.Add.Name = i + 10
    Next i
    0
    1. algoplus
       
      pardon :
      Worksheets.Add.Name = i + 4
      0