Bonjour,
J'ai trouvé une feuille excel sur ce forum (je ne me souviens plus du nom du fichier d'origine et j'ai changé le nom depuis ).
Cette feuille permet de gérer les demandes de congé en générant un calendrier mois par mois. Lors de la génération du calendrier, la colonne du dimanche est surlignée en verte et celles des jours fériés sont surlignées en orange.
Le tout est géré par une macro VB je pense dont voici une copie :
Pourrais t'on m'expliquer comment ça fonctionne? j'aimerais ajouter le samedi en surlignage vert.
J'ai trouvé une feuille excel sur ce forum (je ne me souviens plus du nom du fichier d'origine et j'ai changé le nom depuis ).
Cette feuille permet de gérer les demandes de congé en générant un calendrier mois par mois. Lors de la génération du calendrier, la colonne du dimanche est surlignée en verte et celles des jours fériés sont surlignées en orange.
Le tout est géré par une macro VB je pense dont voici une copie :
Sub auto_open()
On Error Resume Next
Application.CommandBars("BarreColoriage").Delete
CommandBars.Add ("BarreColoriage")
CommandBars("BarreColoriage").Visible = True
For i = 1 To Application.CountA([MesCouleurs]) + 1
Set bouton = CommandBars("BarreColoriage").Controls.Add(Type:=msoControlButton)
bouton.Style = msoButtonCaption
bouton.Tag = Range("MotifsCongés")(i)
bouton.OnAction = "'Coloriage """ & i & """'"
bouton.Caption = Range("MesCouleurs")(i)
Next i
End Sub
Sub Coloriage(p)
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
For Each c In Selection
c.Value = Range("MesCouleurs")(p).Value
' C.Interior.ColorIndex = Range("MesCouleurs")(p).Interior.ColorIndex
Range("MesCouleurs")(p).Copy c
If Range("MotifsCongés")(p) <> "" Then
If c.Comment Is Nothing Then c.AddComment ' Création commentaire
c.Comment.Shape.OLEFormat.Object.Font.Name = "Tverdana"
c.Comment.Shape.OLEFormat.Object.Font.Size = 7
c.Comment.Shape.OLEFormat.Object.Font.FontStyle = "Normal"
temp = Range("MotifsCongés")(p)
c.Comment.Text Text:=temp
c.Comment.Shape.TextFrame.AutoSize = True
c.Comment.Visible = False
Else
c.ClearComments
End If
Next c
Application.Calculation = xlCalculationAutomatic
End Sub
Sub auto_close()
On Error Resume Next
Application.CommandBars("BarreColoriage").Delete
End Sub
Pourrais t'on m'expliquer comment ça fonctionne? j'aimerais ajouter le samedi en surlignage vert.