jour glissant

[pilou76]

Bonsoir à tous,
Je cherche à inscrire "RCY" pour repos de cycle, sur une journée glissante de la semaine suivante.
Je sélectionne la ligne de la personne concernée et le jour du premier RCY et je souhaiterais que, si le premier RCY est un mercredi, s'inscrive "RCY" du jeudi de la semaine suivante, le vendredi semaine suivante ... et ce jusqu'à la fin du planning.
Fichier en pièce jointe si je n'ai pas été assez clair
Merci d'avance de votre attention et de votre savoir

 

[Compte Supprimé 979]

Re : jour glissant

Bonsoir Pilou76,

Je ne sais pas si j'ai bien tout compris
Voilà ton fichier modifié

A+

 

[Lii]

Re : jour glissant

Bonsoir,

Autre interprétation.

 

[TooFatBoy]

Re : jour glissant

Tu peux aussi remplacer ta macro par celle-ci :

Sub jourglissant()
Dim LigneChoisie As Double
Dim Colonne As Integer

LigneChoisie = ActiveCell.Row
Colonne = ActiveCell.Column
While Cells(3, Colonne) <> ""
    Cells(LigneChoisie, Colonne).Value = "RCY"
    Colonne = Colonne + 7
Wend
End Sub

 

[pilou76]

Re : jour glissant

Merci à tous,
Je vais étudier de près.

Bonne journée