Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion korosifs
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

K

korosifs

Guest
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 😛
 
Dernière modification par un modérateur:
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
 

Pièces jointes

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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

L
Réponses
9
Affichages
1 K
N
Réponses
5
Affichages
3 K
Nicocotte125
N
A
Réponses
13
Affichages
2 K
L
Réponses
1
Affichages
1 K
Lucien31
L
D
Réponses
0
Affichages
722
djidji225
D
M
Réponses
6
Affichages
5 K
G
Réponses
2
Affichages
856
G
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…