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

FCMLE44 · 17 Mars 2021

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

MP59 · 17 Mars 2021

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

MP59 · 17 Mars 2021

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

FCMLE44 · 17 Mars 2021

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

MP59 · 17 Mars 2021

Tu fais une macro manuelle
ou

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

FCMLE44 · 17 Mars 2021

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 · 17 Mars 2021

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

MP59 · 17 Mars 2021

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

FCMLE44 · 17 Mars 2021

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

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

FCMLE44

XLDnaute Impliqué

Pièces jointes

MP59

MP59

XLDnaute Occasionnel

Pièces jointes

FCMLE44

XLDnaute Impliqué

MP59

XLDnaute Occasionnel

FCMLE44

XLDnaute Impliqué

Pièces jointes

MP59

XLDnaute Occasionnel

MP59

XLDnaute Occasionnel

FCMLE44

XLDnaute Impliqué

Discussions similaires