[Resolu] Macro Afficher Ligne en fonction de l'option button coché

[korosifs]

Bonjour,

J'ai sur une feuille, 12 tableaux, 1 pour chaque mois. j'ai crée un bouton qui ouvre une userform ("Mois"). Cette userform permet de cocher le mois que l'on souhaite et de le faire apparaitre à l'ecran en clickant sur le bouton OK. (Tous les tableaux sont masqués lorsque l'on ouvre la feuille)
Je n'arrive pas à trouver le code qu'il faut !
Chaque optionbutton porte le nom du mois auquel il correspond.

Voila le code que j'ai saisi, mais il ne fonctionne pas:

Private Sub OK_Click()
Application.ScreenUpdating = False
Dim i As Integer

For i = 1 To ActiveWorkbook.Sheets.Count


If Janvier = True Then
Rows("15:21").Select
Selection.EntireRow.Hidden = False
Rows("23:109").Select
Selection.EntireRow.Hidden = True

ElseIf Fevrier = True Then
Rows("23:29").Select
Selection.EntireRow.Hidden = False
Rows("15:21").Select
Selection.EntireRow.Hidden = True
Rows("31:109").Select
Selection.EntireRow.Hidden = True

Etc pour les autres mois...



End If
Next
Mois.Hide
End Sub

SVP, aidez moi

 

[gilbert_RGI]

Re : Macro Afficher Ligne en fonction de l'option button coché

Bonjour

un petit fichier serait le bienvenu

 

[korosifs]

Re : Macro Afficher Ligne en fonction de l'option button coché

Biensur,

Je vous ai joint un fichier test. La macro fonctionne pour janvier mais pas pour février...
Merci de votre aide

 

[gilbert_RGI]

Re : Macro Afficher Ligne en fonction de l'option button coché

Voilà un début

 

[phlaurent55]

Re : Macro Afficher Ligne en fonction de l'option button coché

Bonjour Korosifs,

voir fichier en retour,
la macro fonctionne pour tous les mois
j'ai ajouté un bouton pour démasquer toutes les lignes

à+
Philippe

Edit: Bonjour Gilbert

 

[korosifs]

Re : Macro Afficher Ligne en fonction de l'option button coché

Yess, super! Finalement je n'étais pas loin !
Merci beaucoup