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

Microsoft 365 Masquer bouton d'option quand lignes masquées

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion FCMLE44
  • 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 !

S'inscrire
F

FCMLE44

XLDnaute Impliqué
Bonjour

Dans le fichier Essai Tâches en pièce jointe, je souhaite lorsque le clique sur le bouton d'option Estimation en B3 que les lignes 75 à 101 de cette feuille se masquent
J'ai cette macro
VB: 
Sub Casdoption1_Cliquer()
'ActiveSheet.Unprotect
Application.EnableEvents = True
ActiveSheet.Rows("75:101").Hidden = True
Application.EnableEvents = True
ActiveSheet.Rows("72:73").Hidden = True
Application.EnableEvents = True
'ActiveSheet.Protect
End Sub

Ca fonctionne, seulement le souci c'est que sur quelques unes de ces lignes, j'ai des boutons d'options. Le masquage se fait bien mais les bouton d'options restent en visu

Auriez vous une idée SVP ?

Merci
 

Pièces jointes

Solution
tes cases à cocher sont devenues des 'Check Box' et la numérotation est 13 à 20


VB: 
Sub Casdoption1_Cliquer()
'ActiveSheet.Unprotect
Application.EnableEvents = True
ActiveSheet.Rows("75:101").Hidden = True
Application.EnableEvents = True
ActiveSheet.Rows("72:73").Hidden = True
Application.EnableEvents = True
'ActiveSheet.Protect
'For i = 4 To 11
'    ActiveSheet.Shapes("Caseàcocher " & i).Visible = False
'
'Next i
For i = 13 To 20
  
     ActiveSheet.Shapes("Check Box " & i).Visible = False
Next i


End Sub
Trier par date Trier par votes
Bonjour FCMLE44
en ajoutant le code pour masquer ou afficher les boutons (à adapter si nécessaire ou évolution)

VB: 
Sub Casdoption1_Cliquer()
'ActiveSheet.Unprotect
Application.EnableEvents = True
ActiveSheet.Rows("75:101").Hidden = True
Application.EnableEvents = True
ActiveSheet.Rows("72:73").Hidden = True
Application.EnableEvents = True
'ActiveSheet.Protect
For i = 4 To 11
    ActiveSheet.Shapes("Option Button " & i).Visible = False
Next i
End Sub
'----------------------- Démasque liste des tâches----------------------------------
Sub Casdoption2_Cliquer()
'ActiveSheet.Unprotect
Application.EnableEvents = False
ActiveSheet.Rows("75:101").Hidden = False
Application.EnableEvents = True
ActiveSheet.Rows("72:72").Hidden = True
Application.EnableEvents = True
'ActiveSheet.Protect
For i = 4 To 11
    ActiveSheet.Shapes("Option Button " & i).Visible = True
Next i
End Sub
Sub Casdoption3_Cliquer()
'ActiveSheet.Unprotect
Application.EnableEvents = False
ActiveSheet.Rows("71:101").Hidden = False
Application.EnableEvents = True
ActiveSheet.Rows("67:68").Hidden = False
Application.EnableEvents = True
'ActiveSheet.Protect
For i = 4 To 11
    ActiveSheet.Shapes("Option Button " & i).Visible = True
Next i
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
J'ai fait ce que tu m'as dit et ca ne foncitonne pas ou alors je zappe quelquechose

J'ai remis dans le fichier les cases à cocher et les boutons qui s'y trouveront

Peux tu voir et m'expliquer car là je sèche

Merci
 

Pièces jointes

Vote positif 0 Vote négatif
tes cases à cocher sont devenues des 'Check Box' et la numérotation est 13 à 20


VB: 
Sub Casdoption1_Cliquer()
'ActiveSheet.Unprotect
Application.EnableEvents = True
ActiveSheet.Rows("75:101").Hidden = True
Application.EnableEvents = True
ActiveSheet.Rows("72:73").Hidden = True
Application.EnableEvents = True
'ActiveSheet.Protect
'For i = 4 To 11
'    ActiveSheet.Shapes("Caseàcocher " & i).Visible = False
'
'Next i
For i = 13 To 20
  
     ActiveSheet.Shapes("Check Box " & i).Visible = False
Next i


End Sub
 
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

Discussions similaires

  • Résolu(e)
Microsoft 365 Code VBA pour vérifier si lignes masquées le sont bien
2
Réponses
16
Affichages
2 K
PatFr38
T
  • Résolu(e)
XL 2010 VBA - Annuler l'opération (Ctrl+Z)
Réponses
2
Affichages
1 K
tchi456
T
T
  • Résolu(e)
XL 2010 Bouton afficher les lignes masquées
Réponses
1
Affichages
830
tchi456
T
  • Question Question
Microsoft 365 tri trop long
Réponses
14
Affichages
1 K
Usine à gaz
F
  • Question Question
Microsoft 365 Démasquage plusieurs lignes
Réponses
1
Affichages
360
FCMLE44
F
  • Résolu(e)
XL 2019 Afficher ou masquer dynamiquement des lignes, selon la valeur d'une cellule.
Réponses
14
Affichages
6 K
JohDan
  • Question Question
XL 2013 Affichage lignes très long
2
Réponses
22
Affichages
2 K
Usine à gaz
F
  • Question Question
Macro afficher/masquer lignes avec bouton
Réponses
10
Affichages
28 K
FranckS
F
L
  • Question Question
XL 2013 Aide VBA
Réponses
4
Affichages
1 K
LAC736
L
  • Question Question
Aide sur cette macro de Masquage de lignes
Réponses
7
Affichages
891
TooFatBoy
C
  • Question Question
1 Bouton pour masquer plusieurs lignes et plusieurs colonnes sans condition !?
Réponses
2
Affichages
1 K
Ctrl-Alt-Suppr
C
R
  • Question Question
Macro masquant automatiquement lignes f(x) des cellules nulles (0) d'1 autre colonne
Réponses
6
Affichages
1 K
rendan2
R
G
  • Question Question
Améliorer et simplifier macro
2
Réponses
17
Affichages
3 K
ERIC S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…