Microsoft 365 regroupement infos planning

vgendron à dit:

euh..... faudrait voir à te décider..
post 171: je t'ai dis que seules les lignes AVEC employés étaient listées
et je demandais s'il fallait changer pour lister les lignes SANS employés

post 172: tu me réponds: on laisse comme ca..
==> Donc AVEC les employés


et donc; maintenant... avec ou sans ou les deux?

Cliquez pour agrandir...

vgendron à dit:

il le fait bien.. si tu regardes les dates en colonne A
et si tu fais F9, dans la ligne 1, elles seront remises à jour
F9 = recalculer le classeur

pendant la macro, le mode de calcul est mis en manuel pour éviter que tous les calculs soient effectués 10000fois et ralentir le code

j'ai oublié de remettre en mode automatique à la fin de la macro

remplace la macro existante par celle la:

VB:

Sub ModifWeek()
Dim i As Integer
Dim BaseNb As Integer
Dim Debut, Fin As Date
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual

    With Sheets("Suivi ETP").ListObjects("t_Suivi")
        For i = 1 To 53
            Debut = .ListColumns("DEBUT").DataBodyRange(i)
            Fin = .ListColumns("FIN").DataBodyRange(i)
            If Now >= Debut Then
               
            Else
                BaseNb = .ListColumns("Ref Base").DataBodyRange(i)
                Call CréerSemaine(i, BaseNb, True)
            End If
        Next i
    End With
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
End Sub

Cliquez pour agrandir...