Discussion :

[alberius]

Bonjour à tous,

Voici un exemple de calendrier que je dois faire mensuellement en A3, là n'est pas le probléme, il doit absolument correspondre au roulement Rx et au repos sur la même ligne, (je ne sais pas si je me fais bien comprendre, voir le fichier c'est plus sur), chaque repos doit donc correspondre aux numéros de la semaine, comme l'exemple ci joint.

Grand merci à vous, car je n'ai que cette macro pour les numéros de semaine entre 21 et 28.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Lundi()
    On Error Resume Next
    ValInitiale = ActiveCell.Value
    Set plgRech = Range(ActiveCell.Address & ":" & "IM5")
        For i = ActiveCell.Column To 300
                If ValInitiale = 29 Then ValInitiale = 21
 
            Cells(ActiveCell.Row, i).Value = ValInitiale
            ValInitiale = ValInitiale + 1
            i = i + 6
 
        Next
End Sub