Création d'onglets journalier automatique Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Curtis Newton
Membre fidèle
Membre fidèle
Messages : 226
Inscrit le : 19 avril 2015
Version d'Excel : FR 2010

Message par Curtis Newton » 12 décembre 2015, 15:20

Bonjour,

Dans le fichier joint, sur la feuille modèle, un bouton macro permet de crée sélectionner un mois pour l'année en cours, puis de créer automatiquement le nombre de feuille pour le mois en cours.

Sauriez vous adapter le code actuel ou trouver une autre méthode pour pouvoir sélectionner l'année de son choix.

Je vous remercie par avance.

Bon weekend
ONGLET DATE1.xlsm
(127.78 Kio) Téléchargé 118 fois
Avatar du membre
Raja
Passionné d'Excel
Passionné d'Excel
Messages : 5'207
Appréciations reçues : 14
Inscrit le : 3 février 2008
Version d'Excel : 2010 à 2016 FR et 2010 EN

Message par Raja » 12 décembre 2015, 15:56

Bonjour,
J'ai modifié ou créé les parties surlignées en créant une variable "Annee" au lieu de prendre l'année en cours dans le code existant. Essaye avec.
Sub Creation()
Dim NbJ As Long
Dim i As Byte
Dim Mois, LaDate, [surligner]Annee[/surligner]
Mois = InputBox("Saisir numéro du mois (1 à 12)")
[surligner]Annee = InputBox("Saisir l'année")[/surligner]
LaDate = DateValue("1/" & Mois & "/" & [surligner]Annee[/surligner])
NbJ = Day(DateAdd("d", -1, DateAdd("m", 1, DateSerial([surligner]Annee[/surligner], Mois, 1))))
Application.ScreenUpdating = 0
For i = 1 To NbJ
Sheets("Modèle").Copy After:=Sheets(i)
    ActiveSheet.Name = i & "" 'Format(DateValue(i & "/" & Format(LaDate, "mm/yy")), "dd_mm_yyyy")
    ActiveSheet.Range("B3") = Format(DateValue(i & "/" & Format(LaDate, "mm/yy")), " dddd dd mmmm yyyy")
    ActiveSheet.Shapes.Range(Array("Image 1")).Delete
    Selection.Cut
Next i
Call effacer
'Sheets("Modèle").Activate
End Sub
Cdlt,
Raja
Avatar du membre
Curtis Newton
Membre fidèle
Membre fidèle
Messages : 226
Inscrit le : 19 avril 2015
Version d'Excel : FR 2010

Message par Curtis Newton » 12 décembre 2015, 16:05

Merci Raja, tu es fantastique. Cela marche parfaitement.

J'ai juste modifié "annee" en "année".

Merci 1000 fois.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message