aide sur planning

[zesuila]

Bonjour à tous
Je travaille actuellement sur un planning
j'ai des petits soucis et je demande votre aide (JOB75 m'a d'ailleurs déjà bien "dégraissé" la chose)

1ere chose :
je n'arrive pas à travailler la mfc pour que la formule "grise" toutes les colonnes we jusqu'à la ligne 19

2 e chose:
y a-t-il un moyen de créer automatiquement un onglet des mois suivants comme celui de janvier mais qui reprend la mise en forme et les mfc, les validations etc..
et pourquoi pas pour les années à venir !!!

merci de vos aides
zesuila

 

[jp14]

Re : aide sur planning

Bonjour

Ci dessous une macro pour créer à partir d'un modèle "Model" une feuille par mois.
La procédure ajoute un mois à la fois.

Sub recopie()
Dim mois As Byte
Dim data1 As String
Dim date1 As Date
Dim trouve1 As Byte
Dim trouve(12) As Byte
Dim i As Byte

Application.EnableEvents = False



date1 = "01/01/" & Year(Now)

For i = 0 To 11
    date2 = DateAdd("m", i, date1)
    Data2 = MonthName(Month(date2))
    For Each Sh In Worksheets
        trouve1 = 0
        Select Case Sh.Name
            Case "MFC", "Model"
                trouve1 = 1
            Case "janvier"
                trouve(0) = 1
            Case "février"
                trouve(1) = 1
            Case "mars"
                trouve(2) = 1
            Case "avril"
                trouve(3) = 1
            Case "mai"
                trouve(4) = 1
            Case "juin"
                trouve(5) = 1
            Case "juillet"
                trouve(6) = 1
            Case "août"
                trouve(7) = 1
            Case "septembre"
                trouve(8) = 1
            Case "octobre"
                trouve(9) = 1
            Case "novembre"
                trouve(10) = 1
            Case "décembre"
                trouve(11) = 1
               
        End Select
    Next Sh
    
If trouve(i) = 0 Then Exit For
Next i

For i = 0 To 12
    If trouve(i) = 0 Then
    Exit For
    End If
Next i

If i < 12 Then
 With Sheets("Model")
        .Copy after:=Sheets(Sheets.Count)
  '      On Error GoTo PbNomFeuille
        ActiveSheet.Name = MonthName(i + 1) ' référence
  '      On Error GoTo 0
        Range("a1") = MonthName(i + 1)
        date1 = DateAdd("m", i, date1)
        For j = 0 To 30
            date2 = DateAdd("d", j, date1)
            If Month(date2) <> i + 1 Then Exit For
            Cells(2, j + 2) = date2
            Cells(3, j + 2) = date2
            
        Next j
    End With

End If
Application.EnableEvents = True
End Sub

La macro prend l'année en cours avec NOW
A tester

JP

 

[zesuila]

Re : aide sur planning

Merci JP
Cela fonctionne mais (un petit mais) lorsque j'execute la macro il crée bien des feuilles silmilaires mais cela s'arrête à Août .
Ensuite j'ai un message d'erreur qui me dit "impossible de renommer une feuille comme une autre feuille, une bibliothèque ..... et lorsque je vais dans vba la lighne suivante est en jaune :
ActiveSheet.Name = MonthName(i + 1) ' référence

Sinon c'est exactement cela qu'il me faut ! (je vais potasser ton code en attendant ton aide
encore merci

 

[jp14]

Re : aide sur planning

Bonjour zesuila

C'est un problème d'accent circonflexe.
Ligne de code à modifier
Case "aout"
trouve(7) = 1
Mettre û au lieu de u
Case "août"
trouve(7) = 1
La macro ne trouvait pas la feuille d'où création.

JP

 

[zesuila]

Re : aide sur planning

🙂 Et dire qu'un si petit accent peut faire " chapeauter" un projet !!! 🙂

Encore merci de ton aide.

 

[jfox]

Re : aide sur planning

Bonjour,

dans la formule de mfc utilise une référence absolue sur le numéro de la ligne:
=ET(ESTNUM(D$2);JOURSEM(D$2;2)>5)
Ensuite, il faut reproduire la mise en forme sur chaque cellule concernée (hop, un petit coup de pinceau!).
Cordialement.

 

[zesuila]

Re : aide sur planning

Donc j'ai bien essayé cette formule mais le soucis c'est que lorsque je demande à griser avec cette formule, ce sont les jours de la semaine qui se grisent !( j'ai changé le D$2 en B$2 dans la formule c'est ce qu'il fallait faire non ?)
de plus il faut impérativement les colonnes de la semaine puissent "accepter" le choix de la couleur de la 1ere colonne et la liste de validation (OL ou Sib)
ci joint mon fichier.
encore merci