calcul de rtt

A

amika59

Guest
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
 

Bricofire

XLDnaute Impliqué
Bonjour amika 59, :)

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...

c'est ici :

https://www.excel-downloads.com/resources/calendriersetplannings2005.796/

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 !

Joyeux Noël à tous,

Bfr
 

herrator

XLDnaute Occasionnel
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]
 

Pièces jointes

  • RTT.zip
    37 KB · Affichages: 539
  • RTT.zip
    37 KB · Affichages: 552
  • RTT.zip
    37 KB · Affichages: 553

herrator

XLDnaute Occasionnel
le même avec des formules + élégantes

allez je me douche et pars réveillonner

bonne fêtes [file name=RTT_20051224190406.zip size=24771]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RTT_20051224190406.zip[/file]
 

Pièces jointes

  • RTT_20051224190406.zip
    24.2 KB · Affichages: 539
B

BobStriker

Guest
Bonjour Amika , le forum
essaie cette macro:

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
 
B

BobStriker

Guest
Bonjour Amika , le forum
essaie cette macro:

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
 

Discussions similaires

Réponses
18
Affichages
845

Statistiques des forums

Discussions
312 428
Messages
2 088 336
Membres
103 814
dernier inscrit
Lolo280277