Dim mois As Integer
mois = Month(Date)
Dim numMois As Integer
If (BtnJanvier) Then numMois = 1
If (BtnFevrier) Then numMois = 2
If (BtnMars) Then numMois = 3
If (BtnAvril) Then numMois = 4
If (BtnMai) Then numMois = 5
If (BtnJuin) Then numMois = 6
If (BtnJuillet) Then numMois = 7
If (BtnAout) Then numMois = 8
If (BtnSeptembre) Then numMois = 9
If (BtnOctobre) Then numMois = 10
If (BtnNovembre) Then numMois = 11
If (BtnDecembre) Then numMois = 12
If (numMois > mois) Then
End If
enable=false
Bonjour HakunaMatata
As tu testé avec ?
Code:enable=false
Private Sub UserForm_Initialize()
Dim mois As Integer
mois = Month(Date)
Dim numMois As Integer
If (BtnJanvier) Then numMois = 1
If (BtnFevrier) Then numMois = 2
If (BtnMars) Then numMois = 3
If (BtnAvril) Then numMois = 4
If (BtnMai) Then numMois = 5
If (BtnJuin) Then numMois = 6
If (BtnJuillet) Then numMois = 7
If (BtnAout) Then numMois = 8
If (BtnSeptembre) Then numMois = 9
If (BtnOctobre) Then numMois = 10
If (BtnNovembre) Then numMois = 11
If (BtnDecembre) Then numMois = 12
If (numMois > mois) Then
enable = False
End If
End Sub
Private Sub UserForm_Initialize()
Me.OptionButton1.Enabled = False
End Sub
Private Sub UserForm_Initialize()
Dim mois As Integer
mois = Month(Date)
If (mois < 2) Then
BtnFevrier.Enabled = False
BtnMars.Enabled = False
BtnAvril.Enabled = False
BtnMai.Enabled = False
BtnJuin.Enabled = False
BtnJuillet.Enabled = False
BtnAout.Enabled = False
BtnSeptembre.Enabled = False
BtnOctobre.Enabled = False
BtnNovembre.Enabled = False
BtnDecembre.Enabled = False
End If
If (mois < 3) Then
BtnMars.Enabled = False
BtnAvril.Enabled = False
BtnMai.Enabled = False
BtnJuin.Enabled = False
BtnJuillet.Enabled = False
BtnAout.Enabled = False
BtnSeptembre.Enabled = False
BtnOctobre.Enabled = False
BtnNovembre.Enabled = False
BtnDecembre.Enabled = False
End If
If (mois < 4) Then
BtnAvril.Enabled = False
BtnMai.Enabled = False
BtnJuin.Enabled = False
BtnJuillet.Enabled = False
BtnAout.Enabled = False
BtnSeptembre.Enabled = False
BtnOctobre.Enabled = False
BtnNovembre.Enabled = False
BtnDecembre.Enabled = False
End If
If (mois < 5) Then
BtnMai.Enabled = False
BtnJuin.Enabled = False
BtnJuillet.Enabled = False
BtnAout.Enabled = False
BtnSeptembre.Enabled = False
BtnOctobre.Enabled = False
BtnNovembre.Enabled = False
BtnDecembre.Enabled = False
End If
If (mois < 6) Then
BtnJuin.Enabled = False
BtnJuillet.Enabled = False
BtnAout.Enabled = False
BtnSeptembre.Enabled = False
BtnOctobre.Enabled = False
BtnNovembre.Enabled = False
BtnDecembre.Enabled = False
End If
If (mois < 7) Then
BtnJuillet.Enabled = False
BtnAout.Enabled = False
BtnSeptembre.Enabled = False
BtnOctobre.Enabled = False
BtnNovembre.Enabled = False
BtnDecembre.Enabled = False
End If
If (mois < 8) Then
BtnAout.Enabled = False
BtnSeptembre.Enabled = False
BtnOctobre.Enabled = False
BtnNovembre.Enabled = False
BtnDecembre.Enabled = False
End If
If (mois < 9) Then
BtnSeptembre.Enabled = False
BtnOctobre.Enabled = False
BtnNovembre.Enabled = False
BtnDecembre.Enabled = False
End If
If (mois < 10) Then
BtnOctobre.Enabled = False
BtnNovembre.Enabled = False
BtnDecembre.Enabled = False
End If
If (mois < 11) Then
BtnNovembre.Enabled = False
BtnDecembre.Enabled = False
End If
If (mois < 12) Then
BtnDecembre.Enabled = False
End If
End Sub
Option Explicit
Private Sub CommandButton1_Click()
Dim c As Control
For Each c In Me.Controls
If TypeName(c) = "OptionButton" Then
If CInt(c.Tag) > Month(Date) Then c.Enabled = False
End If
Next c
End Sub