Autres Calendrier xls

alpin2023 à dit:

qui a perdu toutes ses compétences.

Cliquez pour agrandir...

Sub NouvelleAnnée()
    Dim Année%: On Error GoTo Fin
    Année = InputBox("Quelle année désirez vous ?")
    [theYear] = Val(Année): Calculate
    Sheets("Calendar").Copy After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = Année
Exit Sub
Fin:
    MsgBox "Format année érroné. Mettre du genre 2022."
End Sub

sylvanu à dit:

Bonjour Alpin et bienvenu sur XLD, bonjour Kiki,

XL c'est comme le vélo, ça ne s'oublie pas ! 😂 😂 😂

Un essai en PJ. Sans analyser le code j'ai juste rajouté cette macro qui met à jour l'année après appui sur le bouton, duplique la feuille Calendar et la renomme. Si j'ai bien tout compris.

VB:

Sub NouvelleAnnée()
    Dim Année%: On Error GoTo Fin
    Année = InputBox("Quelle année désirez vous ?")
    [theYear] = Val(Année): Calculate
    Sheets("Calendar").Copy After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = Année
Exit Sub
Fin:
    MsgBox "Format année érroné. Mettre du genre 2022."
End Sub

NB: Les PJ sont limitées à 1Mo, en dessous inutile de passer par un zip.

Cliquez pour agrandir...

alpin2023 à dit:

Bonjour, je m'excuse par avance pour cette demande d'un ancien utilisateur de ce forum qui a perdu toutes ses compétences.
Le fichier joint me convient parfaitement, mais je voudrais que la création d'un nouveau calendrier, en changeant l'année, se fasse sur une nouvelle feuille portant le non de l'année.
Fichier xls.
Merci pour votre aide.

Cliquez pour agrandir...

kiki29 à dit:

Salut, si curieux voir Calendrier autonome

Cliquez pour agrandir...

sylvanu à dit:

Oups, vieux XLDman, désolé.
J'espère ne pas vous avoir froissé. 🙂

Cliquez pour agrandir...

alpin2023 à dit:

Eh! oui 70 balais ! Retraite maintenant.

Cliquez pour agrandir...