Gestion d'onglets En VBA

K

kjin

XLDnaute Barbatruc

• 21 Décembre 2008

• #2

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

Code:

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

 

Vote positif 0 Vote négatif

A

Archimed

Guest

• 22 Décembre 2008

• #3

Re : Gestion d'onglets En VBA

merci kjin çc marche ; bonne journée Archi

 

Vote positif 0 Vote négatif

A

Archimed

Guest

• 25 Décembre 2008

• #4

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

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 25 Décembre 2008

• #5

Re : Gestion d'onglets En VBA

Bonsoir,
Peut-être comme ceci

Code:

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 25 Décembre 2008

• #6

Re : Gestion d'onglets En VBA

Bonsoir à tous,

une proposition :

Code:

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

 

Vote positif 0 Vote négatif

A

Archimed

Guest

• 25 Décembre 2008

• #7

Re : Gestion d'onglets En VBA

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

 

Vote positif 0 Vote négatif