Bonjour à tous,
Je sèche actuellement sur un truc.
Dans un classeur, j'ai une colonne dans laquelle j'ai inscrit tous les jours de l'année 2012 (uniquement les jours ouvrés donc sans les samedi/dimanche et jours fériés).
Je viens de créer un userform dans lequel une combobox (liste déroulante qui s'appelle select_jour) récupère tous ces jours (via rowsource).
Je souhaiterais pouvoir activer deux cases à cocher sur ce userform :
1- première case à cocher si la date sélectionnée est le 1er jour ouvré du mois
2- deuxième case à cocher si la date sélectionnée correspond au dernier lundi du mois.
J'ai besoin de vos lumières parce que là, je sèche totalement !
J'ai déjà une partie plus 'facile', ou des sauvegardes sont actives le lundi et le jeudi :
Je sèche actuellement sur un truc.
Dans un classeur, j'ai une colonne dans laquelle j'ai inscrit tous les jours de l'année 2012 (uniquement les jours ouvrés donc sans les samedi/dimanche et jours fériés).
Je viens de créer un userform dans lequel une combobox (liste déroulante qui s'appelle select_jour) récupère tous ces jours (via rowsource).
Je souhaiterais pouvoir activer deux cases à cocher sur ce userform :
1- première case à cocher si la date sélectionnée est le 1er jour ouvré du mois
2- deuxième case à cocher si la date sélectionnée correspond au dernier lundi du mois.
J'ai besoin de vos lumières parce que là, je sèche totalement !
J'ai déjà une partie plus 'facile', ou des sauvegardes sont actives le lundi et le jeudi :
Code:
Private Sub select_jour_Change()
' conversion pour afficher sous la forme jour date mois année, ex : lundi 2 janvier 2012
select_jour.Value = Format(select_jour.Value, "dddd d mmmm yyyy")
' splitte la variable pour n'avoir que le jour, ex : lundi
decoupe = Split(select_jour.Value, " ")
' récupération du nom du jour
jour = decoupe(0)
If jour = "lundi" Then
' sauvegardes activées le lundi
coche_sauvegarde_hebdo.Enabled = True
coche_sauvegarde_mensuelle.Enabled = True
coche_rniam.Enabled = True
Else
coche_sauvegarde_hebdo.Enabled = False
coche_sauvegarde_mensuelle.Enabled = False
coche_rniam.Enabled = False
End If
If jour = "jeudi" Then
' sauvegarde intranet active le jeudi uniquement
coche_intranet.Enabled = True
Else
coche_intranet.Enabled = False
End If
End Sub
Dernière édition: