Bonjour, je cherche quelqu un qui pourrais m aider a cree un fichier excel pour gerer mes rtt ainsi que mes conges.
j ai fait un calendrier 2006 et je voudrais qu il me note 1 rtt tout les 18 jours travaillé (décalé si je prend un jour de cp ou de rtt).
et les rtt sont valable que 2 mois apres les avoir obtenue.
merci de votre aide.
michael
Ben il existe le couteau suisse des plannings, dates et autres depuis peu, pas sûr que tu ne puisses pas obtenir jusqu'à la température qu'il faisait à l'endroit donné ce jour là . C'est super bien documenté et réalisé et le code est accessible et commenté etc...
Tu as intérêt à faire sauvegarder et à dézipper le tout dans un seul répertoire comme indiqué pour que le moteur inclus y retrouve ses petits. J'ai découvert ça hier et va falloir prendre des congés sup pour en faire le tour !
re salut non, c trop complique pour moi je souhaite juste avoir la formule qui m incremente une case tous les 18 jours et qui ne prend pas en compte les cp ou rtt posée.
merci mika
voilà, je t'ai fait un ptit truc pas très fini, pas très élégant, mais qui marche [file name=RTT.zip size=28215]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RTT.zip[/file]
Sub rtt1()
'à créer lors du départ du calendrier
'pour déterminer les rtt
'calendrier sans les week end si possible.tu gèreras
'ensuite les fériés par la macro rtt2
Dim cell
For Each cell In Range('rtt') 'nomme ta plage de calendrier 'rtt'
If cell Mod 18 = 0 Then
cell.Font.ColorIndex = 3
End If
Next
End Sub
Sub rtt2() 'crée un bouton sur ta feuille pour activer cette macro
'sélectionne la cellule où se trouve un nombre à
'décaler vers le bas
With ActiveCell
Selection.Insert Shift:=xlDown
With Selection.Interior
.ColorIndex = 13
.Pattern = xlSolid
End With
End With
End Sub
Sub rtt1()
'à créer lors du départ du calendrier
'pour déterminer les rtt
'calendrier sans les week end si possible.tu gèreras
'ensuite les fériés par la macro rtt2
Dim cell
For Each cell In Range('rtt') 'nomme ta plage de calendrier 'rtt'
If cell Mod 18 = 0 Then
cell.Font.ColorIndex = 3
End If
Next
End Sub
Sub rtt2() 'crée un bouton sur ta feuille pour activer cette macro
'sélectionne la cellule où se trouve un nombre à
'décaler vers le bas
With ActiveCell
Selection.Insert Shift:=xlDown
With Selection.Interior
.ColorIndex = 13
.Pattern = xlSolid
End With
End With
End Sub