Bonjour,
J'ai 2 questions concernant un projet que je dois rendre sur la création d'un calendrier.
La première question:
Comment je peux colorier plusieurs dates de ce calendrier en vba en pj la photo du calendrier ( vba 1) à partir d'un boutton
par exemple si j'ai 5 date à rajouter qui sont les suivantes:
15/08/2018
01/11/2018
11/11/2018
25/12/2018
01/04/2018
02/04/2018
11/05/2018
21/05/2018
J'ai commencé avec le code suivant:
Sub Bouton7_Cliquer()
Dim inass As Worksheet
Dim exemple as date
With ActiveSheet
.Value = (Date: ("08-15-18") .value
'en considérant toutes ces dates("15-08-2018") & (01/11/2018) & (11/11/2018) & (25/12/2018) & (01/04/2018) & (02/04/2018) &
(11/05/2018) & (21/05/2018)
.Interior.ColorIndex = 5
End With
End Sub
Et le format est comme indiquer dans la pièce jointe.
La deuxième question est :
J'ai l'interface présente dans la photo vba 2 avec fonction "liste déroulante".
Comment je peux à partir d'une condition diminuer le choix des réponses présentes dans la liste déroulante.
En d'autre terme si je me base sur le calendrier en vba 1, si l'utilisateur séléctionne pour une première case la fonction garde je veux que dans la sélection de la case qui suit " en date" l'option : Garde dans la liste déroulante n'apparaisse pas, que les 2 autres " Astreinte et Médecin".
J'ai commencé avec une sub:
' changement de nom de cellule selon condititon
Sub choix()
Dim i As Integer
For Each cell In Sheets(inass).Range("B15:H15,B17:H17,B19:H19,B21:H21,B23:H23")
If cell.Value = "Garde & " - " & Cell(4,3).value" Then
cell(0, i + 1).Value = ComboBox1.List("Médecin", "Astreinte")
End If
Next i
End Sub
Mais je ne sais pas si cette sub doit apparaître dans la userfom ou dans la worksheet.
Le document VBA new contient le tout.
Merci d'avance pour vos réponse.