Création et renommage de Worksheets

[h_de_r]

Bonjour à tous

Me voici tout nouveau sous VBA, et déjà quelques soucis qui pointent leurs nez 😛

Avant toute chose, je vous remercie pour l'aide que vous pourrez apporter.

Mon soucis: j'ai écris le script suivant :
Il a pour but de copier un template un nombre délimité (j) de fois et de renommer chacune des tables crées à partir de cellules de la Worksheets(2)


Sub Create_and_Rename_Tabs()

j = Worksheets(2).Range("B1")

For i = 1 To j
Sheets("Template").Copy After:=Sheets(i - 1)
k = i + 5
Sheets(i).Name = Worksheets(2).Range("C" & k).Value
Next

End Sub


L'erreur que j'ai: "Subscript out of range".


Est-ce que vous sauriez à quoi cela est du?

En fait c'est mon second script, et j'ai pas trop de notion. N'hésitez pas à me demander un exemple si l'erreur est difficile à reproduite.

Merci d'avance

Hubert

 

[phlaurent55]

Re : Création et renommage de Worksheets

Bonjour Hubert et bienvenue sur le forum

Sub Create_and_Rename_Tabs()

j = Worksheets(2).Range("B1")

For i = 1 To j
Sheets("Template").Copy After:=Sheets(i - 1)
k = i + 5
Sheets(i).Name = Worksheets(2).Range("C" & k).Value
Next

End Sub

c'est ce que j'ai mis en bleu ci-dessus qui pose problème car au premier passage dans ta boucle la valeur I est égale à 1
donc I-1=0 et et il n'y a pas de Sheets(0) d'où le message "Out of range"

à+
Philippe
.

 

[h_de_r]

Re : Création et renommage de Worksheets

Merci beaucoup!

J'ai modifié ça marche. L'erreur de débutant quoi, snif snif...

A très bientôt

Hub