Nombre d'onglet aléatoires dans un classeur excel

M

Meinie

Guest
<HTML>Bonjour,

Je cherche comment inséser dans un classeur excel un nombre d'onglets correspondant au nombre d'entrées d'une matrice entrée dans une feuille du classeur.

Exemple :
Ma matrice fait 6 lignes, je voudrais donc obtenir 6 onglets portant le nom de chacune de mes lignes.

Merci de votre aide!

Meinie</HTML>
 
S

stephane

Guest
<HTML>Bonjour

Sub Macro1()
Sheets.Add Count:=6, after:=Worksheets(Sheets.Count)
For i = 0 To 5 Step 1
Sheets(Sheets.Count - i).Name = "TaFeuille" & Sheets(Sheets.Count - i).Index
Next i
End Sub



Public Sub SortWorksheets()
Dim NbFeuilles,N,M
On Error Goto FindeMacro
Application.Screenupdating = False
NbFeuilles = ActiveWorkbook.Worksheets.Count
For M = 1 To NbFeuilles
For N = M To NbFeuilles
If UCase(Worksheets(N).Name) < UCase(Worksheets(M).Name) Then
Worksheets(N).Move before:=Worksheets(M)
End If
Next N
Next M
FindeMacro:
End Sub


bye
STéphane</HTML>
 

Discussions similaires

Réponses
5
Affichages
156

Statistiques des forums

Discussions
311 737
Messages
2 082 036
Membres
101 878
dernier inscrit
1475214