Discussion :

[foughaa01]

je souhaite utiliser ce code ci-dessous pour créer des feuilles excel en fonction des mois de l'année, la creation c'est ok, mais j'arrive pas à trouver un code pour les nommer spontannément par les mois de l'année c-a-d chaque onglet prend le nom d'un mois.je le fais avec un InputBox mais ca me plais pas, merci d'avance pour vos reponses.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub AddMonths()
Dim m As Integer
 
For m = 1 To 11
 
Sheets.Add
 
 ActiveSheet.Select
 
 ActiveSheet.Name = InputBox("le mois")
 
next m
 
End Sub

[EmmanuelleC]

Essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub AddMonths()
Dim m As Integer

For m = 1 To 11

Sheets.Add

ActiveSheet.Select

ActiveSheet.Name = MonthName( m )
next m

End Sub

mais par contre, il n'y a jamais de mois de décembre dans ton fichier?

[Qwazerty]

Salut
En règle général il est préférable d'éviter les Select et Activate, ceux ci sont abondamment générés lors des enregistrements de maco mais doivent être éliminé lors de la refonte du code.
Regarde avec ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Foug()
Dim m As Integer, NomM As String
 
For m = 1 To 12
    With Sheets.Add(After:=Sheets(Sheets.Count))
    NomM = MonthName(m)
        .Name = UCase(Left(NomM, 1)) + Right(NomM, Len(NomM) - 1)
    End With
Next m
 
End Sub

Petit bonus, avec la 1er lettre en majuscule, ça fait plus propre ^^

A++
Qwaz

[pgz]

Bonjour.

Dans la même idée, on peut aussi faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Foug()
Dim m As Integer, wSh As Excel.Worksheet
 
For m = 1 To 12
    Set wSh = ThisWorkbook.Worksheets.Add(, ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
    wSh.Name = StrConv(MonthName(m), vbProperCase)
Next m
 
Set wSh = Nothing
 
End Sub

PGZ

[foughaa01]

A EmmanuelleC &Qwazerty & pgz

Merci beaucoup à vous, le probleme est resolu