bonjour,
Bon je n'arrive pas à l'adpter dans un userform
pour l'instant j'ai fait ceci:
Private Sub CommandButton3_Click()
Unload UserForm3
If Year(Now()) = 2014 Then
Sheets("2014").Visible = True
Sheets("2014").Select
End If
If Year(Now()) = 2015 Then
Sheets("2015").Visible = True
Sheets("2015").Select
End If
If Year(Now()) = 2016 Then
Sheets("2016").Visible = True
Sheets("2016").Select
End If
If Year(Now()) = 2017 Then
Sheets("2017").Visible = True
Sheets("2017").Select
End If
If Year(Now()) = 2018 Then
Sheets("2018").Visible = True
Sheets("2018").Select
End If
If Year(Now()) = 2019 Then
Sheets("2019").Visible = True
Sheets("2019").Select
End If
If Year(Now()) = 2020 Then
Sheets("2020").Visible = True
Sheets("20120").Select
End If
End Sub
mais quand il y a 4 onglets ca va ..mais plus c pas cool
si quelqu'un a une idée je suis preneur...
Merci