Création automatique de feuilles Exwel
tito
-
algoplus -
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?
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?
A voir également:
- Création automatique de feuilles Exwel
- Logiciel de sauvegarde automatique gratuit - Guide
- Réponse automatique thunderbird - Guide
- Comment faire un livret avec des feuilles a4 - Guide
- Creation de site web - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
1 réponse
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
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
Worksheets.Add.Name = i + 4