Sauvegarde sur planning

[Arii2]

bonjour à tous les membres de ce forum, décidement très actif.
j'ai un petit problème sur mon projet de planning.
à chaque agent est attribué une ligne, sur laquelle sont notées ses sorties codifiées par une couleur, sur un prévisionnel de 4 mois: n, n+1, n+2, n+3.
savez vous comment je pourrais transférer les couleurs du mois n+1 dans le mois n quand le mois change (quand on passe de juin à juillet par ex).
ci joint mon fichier, vous comprendrez tout de suite mon problème.
merci pour toute aide.

 

[Odesta]

Re : Sauvegarde sur planning

Bonjour
Pourquoi ne pas créer un petit code qui copie-colle entièrement (lignes/formats/contenu....) des mois n+1/+2/+3 sur n/+1/+2 et qui refabrique un n+3 tout vide ?

Sub decaler_un_mois()

    'décaler les informations
    Range("AO9:EE47").Copy
    Range("I9").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
    '"vider" le dernier mois
    For i = 9 To 47 Step 2
        Range("DA" & i & ":EE" & i).Interior.ColorIndex = xlNone
        Range("DA" & i & ":EE" & i).ClearContents
    Next
    
End Sub

Cordialement
Olivier

 

[Arii2]

Re : Sauvegarde sur planning

merci c'est exactement ce qu'il me fallait comme base pour commencer.
je n'ai plus qu'à l'adapter un peu à mes besoins et ce sera parfait.
merci beaucoup Odesta. 😀