VBA combobox

Le 30/01/2018 à 12:17

Bonjour,

Comment peut-t-on changer la liste du combobox suite à une condition dans un userform ?

Merci

Le 30/01/2018 à 13:21

Bonjour

Joins un fichier et montre ce que tu voudrais.

Bye !

Le 30/01/2018 à 21:44

Bonsoir,

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.