A voir également:
- Nouvel onglet intitulé du mois suivant
- Raccourci rouvrir onglet fermé - Guide
- Edge nouvel onglet google ✓ - Forum Microsoft Edge / Internet Explorer
- Onglet disposition excel - Forum Excel
- Intitulé de l'adresse - Forum Gmail
- Intitulé devant le nom - Forum Réseaux sociaux
2 réponses
Bonjour,
Cordialement.
Sub TEST()
ActiveSheet.Name = Sheets(ActiveSheet.Index - 1).Range("A2").Value
End Sub
Cordialement.
HellM
Merci Kuartz!
Bonjour
Quelque chose de plus basique
Il ne doit pas y avoir 2 fois le même mois, si le cas se présente, il y aura ajout d'une nouvelle feuille, mais sans le nom du mois, cela veut dire qu'il vous faudra supprimer le mois déjà existant, ou bien alors y ajouter un élément distinctif, par exemple l'année.
Cdlt
Quelque chose de plus basique
Option Compare Text
Sub AjoutFeuille()
Application.ScreenUpdating = False
On Error GoTo GestionErreur
MoisEnCours = [A2]
Sheets.Add After:=Sheets(Sheets.Count)
Select Case MoisEnCours
Case Is = "JANVIER"
MoisEnCours = "FEVRIER"
Case Is = "FEVRIER"
MoisEnCours = "MARS"
Case Is = "MARS"
MoisEnCours = "AVRIL"
Case Is = "AVRIL"
MoisEnCours = "MAI"
Case Is = "MAI"
MoisEnCours = "JUIN"
Case Is = "JUIN"
MoisEnCours = "JUILLET"
Case Is = "JUILLET"
MoisEnCours = "AOÛT"
Case Is = "AOÛT"
MoisEnCours = "SEPTEMBRE"
Case Is = "SEPTEMBRE"
MoisEnCours = "OCTOBRE"
Case Is = "OCTOBRE"
MoisEnCours = "NOVEMBRE"
Case Is = "NOVEMBRE"
MoisEnCours = "DECEMBRE"
Case Is = "DECEMBRE"
MoisEnCours = "JANVIER"
End Select
ActiveSheet.Name = MoisEnCours
[A2] = MoisEnCours
Exit Sub
GestionErreur:
On Error GoTo 0
On Error Resume Next
End Sub
Il ne doit pas y avoir 2 fois le même mois, si le cas se présente, il y aura ajout d'une nouvelle feuille, mais sans le nom du mois, cela veut dire qu'il vous faudra supprimer le mois déjà existant, ou bien alors y ajouter un élément distinctif, par exemple l'année.
Cdlt
