afficher userform

[dhiouf]

Bonsoir à tous
Est-il possible d'afficher une userform chaque mois de septembre si cette date de ce mois est comprise entre deux date
exemple:
si nous somme en septembre 2006 et que:
B1 = 22/12/2005
C1= 22/12/2010
afficher l'userform
si nous somme en septembre 2005 et que:
B1 = 22/12/2005
C1 = 22/12/2010
ne pas afficher l'userform
Merci d'avance
voir fichier joint

 

[Kotov]

Re : afficher userform

Bonsoir à tous,

'------ Code
Sub AfficheSept()

If Month(Date) = 9 And Date > (CDate(ActiveSheet.Cells(1, 2))) And Date < CDate(ActiveSheet.Cells(1, 3)) Then
MonUserForm.show
Else
End If
End Sub
'------ Fin de code
Explications:
si le mois du jour= 9 et que la date du jour est > cellule B1 et que date du jour est < cellule C1 alors
Affiche monUserForm

Else est facultatif, tu peux l'enlever si tu n'a pas d'autre action a effectuer
sinon places entre Else et End if une ligne d'action ex: MsgBox "C'est pas le mois "


Bonne soirée
Kotov

 

[Kotov]

Re : afficher userform

Compléments d'info :
1-Tu peux enlever la parenthèse avant (CDate(ActiveSheet.Cells(1, 2)))
2- Sur cet écran Then est à la ligne mais dans ton code tu le gardes au bout de la 1ère ligne :

If Month(Date) = 11 And Date > CDate(ActiveSheet.Cells(1, 2)) And Date < CDate(ActiveSheet.Cells(1, 3)) Then

Bonne nuit le Forum
Kotov

 

[dhiouf]

Re : afficher userform

Bonjour Kotov
Merci pour ta réponse et pour tes explication bien clair
Merci beaucoup