jour glissant

pilou76 · 6 Juin 2008

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 · 7 Juin 2008

Re : jour glissant

Bonsoir Pilou76,

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

A+

Lii · 7 Juin 2008

Re : jour glissant

Bonsoir,

Autre interprétation.

TooFatBoy · 7 Juin 2008

Re : jour glissant

Tu peux aussi remplacer ta macro par celle-ci :

Code:

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 · 7 Juin 2008

Re : jour glissant

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

Bonne journée

jour glissant

pilou76

XLDnaute Occasionnel

Pièces jointes

Compte Supprimé 979

Guest

Pièces jointes

Lii

XLDnaute Impliqué

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

pilou76

XLDnaute Occasionnel

Discussions similaires