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
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
Dernière édition: