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

[FCMLE44]

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

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

 

[MP59]

Bonjour FCMLE44
en ajoutant le code pour masquer ou afficher les boutons (à adapter si nécessaire ou évolution)

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

 

[FCMLE44]

Merci
Si à la place des Option Button je mets des case à cocher et des command button c'est la meme chose ?

 

[MP59]

Tu fais une macro manuelle

ou

en déplaçant l'objet par exemple pour savoir comment il s'appelle en VBA.

 

[FCMLE44]

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

 

[MP59]

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

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

 

[MP59]

je t'ai mis un exemple avec le premier cas, à toi de jouer maintenant.

 

[FCMLE44]

Ok j'ai compris et pour les faire réapparaitre, je fais True à la place de False
Merci