Comment insérer et renomer plusieurs onglets

[jacfld49]

bonjour,

Je voulais savoir comment insérer plusieurs feuilles (52) et les renomer par ex S1,S2 etc.. .
merci

 

[Cousinhub]

Re : Comment insérer et renomer plusieurs onglets

Bonjour,

si tu as une feuille exemple (nommée "base", dans mon code), que tu désires dupliquer 52 fois, tu peux faire comme ceci :

Sub feuilles()
For i = 1 To 52
    Sheets("base").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "S" & i
Next i
End Sub

 

[jacfld49]

Re : Comment insérer et renomer plusieurs onglets

BONJOUR bhbh,

il me met une erreure de compilation et me bleui le " i " de For i.
merci

 

[JCGL]

Re : Comment insérer et renomer plusieurs onglets

Bonjour à tous,
Salut BH²

Rajoute un :

Dim i as Integer

Tu dois être en Option Explicit et c'est très bien

A+

 

[jacfld49]

Re : Comment insérer et renomer plusieurs onglets

bonjour JCGL,

ou dois le mettre dans le code car j'essaie à plusieurs endroit mais cela ne fonctionne pas.
merci

 

[Cousinhub]

Re : Comment insérer et renomer plusieurs onglets

Re-

comme te l'a dit JC (Salut...)

Sub feuilles()
Dim i As Integer
For i = 1 To 52
    Sheets("base").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = "S" & i
Next i
End Sub

Si tu as toujours une erreur, dans l'éditeur VBE, clique sur "Outils/Références", et vérifie que tu n'as aucun "MANQUANT"

Si tu en as un, décoche devant

 

[jacfld49]

Re : Comment insérer et renomer plusieurs onglets

rebonjour,

merci à tous les 2,ca fonctionne.
merci