Ouvrir un onglet en fonction de la date

bonjour a vous,

je reviens vers vous pour quelques petits soucis:

voila j'ai un onglet "feuil2" et en a1 une date, j'aimerais faire un code disant que si dans le textbox1 l'année saisie (et il n'y a que l'année d'inscrite) est superieure à la date inscrite dans a1, mettre le message "......"

j'ai essayé ceci

if textbox1.value< Format(Sheets("feuil2").Range("a1").Value, "yyyy")

ou

If Year(Sheets("feuils2").Range("a1"))<textbox1.value Then

mais vu mon niveau forcement cela ne fonctionne pas

et j'ai un autre problème,

j'ai des onglet: "2013","2014";"2015"; etc...

j'aimerais qu'en cliquant sur mon bouton commandclick1, que ce soit l'onglet de l'année en cours qui s'ouvre.... year(now()) il me semble mais j'ai beau tout retourné je n'y arrive pas

je vous remercie par avance pour votre aide

Bonjour le forum,

Ce n'est pas du VBA mais voir fichier joint ???

mbbp

bonjour mbbp,

c'est ce que je cherche mais comme c'est par un userform que je passe, puis je adapter ce bouton dans un userform

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

bonjour,

A adapter...

Sub galopin()
Application.ScreenUpdating = False
For Each o In Worksheets
   o.Visible = True
Next
For Each o In Worksheets
   o.Visible = o.Name = CStr(Year(Now))
Next
End Sub

A+

bonjour galopin,

je vais essayer cela et partager le résultat merci d'avance

thivame

bon et bien un grand merci a toi galopin j'ai su adapter et tu m’enlèves une épine du pied

merci

Bonjour,

J'aurais besoin d'adapter cette fonction :

• pour des mois.
• et que les autres mois restent visibles.

merci

Franck