Re calendrier poste mois par mois

[veloce]

Bonjour, RE
Je voudrais dans mon calendrier ajouter les feuilles pour chaque mois sans MFC et
sans passer par une formule dans une cellule, parce-qu'une fois le calendrier crée,


je vous remercie

 

[Staple1600]

Re : Re calendrier poste mois par mois

Bonjour



Une petit macro pour créer 12 feuilles mensuelles

sub 12_feuilles
Dim i as integer
For i = 1 To 12
Sheets.Add
ActiveSheet.Name = Application.Proper(Format(30 * i, "mmmm"))
Next
End sub

Donc ton exemple il faudarit enusite copier (en valeurs seules)
pour janvier par exempel la plage de cellule : B1:E33

et également l'objet Word Art?


C'est ça?

 

[Staple1600]

Re : Re calendrier poste mois par mois

Re


Voilà la suite, qui fonctionne si on mets les noms des mois (dans la feuille Calendrier)
en Nom propre avec Accent

Option Base 1
Sub copie_un_mois_par_feuille()
Dim tablo() As Variant
Dim X As String
Dim i As Integer
tablo = Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Août", "Septembre", "Octobre", "Novembre", "Décembre")
For i = 1 To 12
X = tablo(i)
With Sheets("Calendrier").Rows(1)
.Find(What:=X, After:=.Cells(1, 1), LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).EntireColumn.Resize(33, 4).Copy Destination:=Sheets(X).Range("A1")
End With
Next
End Sub

Ou alors il faudrait que les noms des feuilles soient en majuscules ainsi que dans la feuille
Calendrier
(Dans ce cas, modifier tablo() en majuscule aussi)

Il reste le souci du formatage des colonnes lors de la recopie.

 

[veloce]

Re : Re calendrier poste mois par mois

A SUPER, je te remercie JM c'est exactement ce que je voulais.

ENCORE UN GRAND MERCI POUR TON SAVOIR

JR