VBA - calendrier

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.

vba 1 vba 2
36vba-new.xlsm (42.17 Ko)

Bonjour,

Félicitations pour le début de ton projet ...

Pour un Calendrier Perpétuel... tu es obligé de faire du 6 x 7 ... (par exemple Avril 2018 ..)

De plus, tu peux te simplifier la vie ...

Ci-joint un premier nettoyage ...

En espérant que cela t'aide ..

51vba-new.xlsm (32.05 Ko)

Bonjour,

Merci pour votre réponse.

J'ai pas trop compris le changement concernant le bouton pour les jour et pour mon calendrier pourquoi j'ai des DDD et non pas des lundi mardi merc...

et pour la sélection des mois le boutton ne fonctionne pas.

Merci de me clarifier ceci.

DIANE

Re,

Ci-joint le second nettoyage ... y compris toutes les règles de tes MFC ...

56vba-new.xlsm (32.76 Ko)

Re,

Après avoir fait tes tests ... il ne faut pas hésiter à faire part de tes commentaires ... sur un fil ou un autre ...

Rechercher des sujets similaires à "vba calendrier"