Gestion d'onglets En VBA

[Archimed]

Bonsoir;

Quelqu'un pourrait-il me dire ce qui ne colle pas avec cette petite macros !!
après son exécution , au delà de la 13e copie elle m'affiche un message
d'erreur. Merci bcp
Archi
voici la macros::
-----------------------------------------
Sub CopieBulletin()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
Sheets("Elève").Copy After:=Sheets(i)
ActiveSheet.Name = "Elève " & i
Next i
End Sub
-----------------------------------------------

 

[kjin]

Re : Gestion d'onglets En VBA

Re,
https://www.excel-downloads.com/threads/recherche-tri-et-affichage.109921/
Peux tu effacer ton message sur l'autre fil, merci

Sub CopieBulletin()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
Sheets("Elève").Copy After:=Sheets([COLOR="Red"]sheets.Count[/COLOR])
ActiveSheet.Name = "Elève " & i
Next i
End Sub

A+
kjin

 

[Archimed]

Re : Gestion d'onglets En VBA

merci kjin çc marche ; bonne journée Archi

 

[Archimed]

Re : Gestion d'onglets En VBA

Bonsoir tout le monde
J'aimerais ecrire un code en vba pour renommer les onglets de mon classeur excel comme suite:
Feuille 1 :
A1= tata
A2=toto
Etc ……
Alors onglet de la feuille 2 =tata, onglet de la feuille 3 =toto, Etc …
Merci pour votre aide.
Archi

 

[kjin]

Re : Gestion d'onglets En VBA

Bonsoir,
Peut-être comme ceci

Sub CopieBulletin()
Dim i, z
z = InputBox("Nombre de copies ", "Copie")
For i = 1 To z
Sheets("Elève").Copy After:=Sheets(sheets.Count)
ActiveSheet.Name = sheets("Elève").Range("A" & i)
Next i
End Sub
A+
kjin

 

[tototiti2008]

Re : Gestion d'onglets En VBA

Bonsoir à tous,

une proposition :

Sub Renomme()
    For i = 1 To ThisWorkbook.Worksheets.Count - 1
        ThisWorkbook.Sheets(i + 1).Name = ActiveSheet.Range("A" & i).Value
    Next i
End Sub

 

[Archimed]

Re : Gestion d'onglets En VBA

Ca marche c'est top !!! Merci les gars. Archi