Microsoft 365 Masquer plusieurs lignes sur plusieurs onglets

[ozone083]

Bonjour

Lorsque je sélectionne une CheckBox cela a pour conséquence d'afficher des lignes ; si je la déselectionne, cela masque les mêmes lignes.
J'arrive à masquer ces lignes sur 1 onglet (CALCULS (PU)
Maintenant je souhaiterai le faire sur plusieurs onglets mais le code suivant ne fonctionne pas....que dois je faire comme correction ?
Merci

Sub Test_2(ByVal iIdx%)
'
Dim iRow%
'
On Error Resume Next
With Worksheets("CALCULS (PU)")
iRow = .Range("Ax:Ax").Find(What:=Worksheets("Parameters").OLEObjects("CheckBox" & iIdx).Object.Caption).Row
.Rows(iRow).ShowDetail = Worksheets("Parameters").OLEObjects("CheckBox" & iIdx).Object.Value
End With

With Worksheets("FINANCE")
iRow = .Range("R:R").Find(What:=Worksheets("Parameters").OLEObjects("CheckBox" & iIdx).Object.Caption).Row
.Rows(iRow).ShowDetail = Worksheets("Parameters").OLEObjects("CheckBox" & iIdx).Object.Value
End With

On Error GoTo 0

End Sub


Merci pour votre aide

 

[cp4]

Bonjour,

Depuis jeudi et aucune réponse!!!!!!
Bizarre🤔 et pourquoi donc?
👏👍j'ai trouvé, il manque un petit fichier😎.
Bonne journée.

 

[Orson83]

Bonjour,

Depuis jeudi et aucune réponse!!!!!!
Bizarre🤔 et pourquoi donc?
👏👍j'ai trouvé, il manque un petit fichier😎.
Bonne journée.

Bonjour cp4, le forum,
Il est où le petit fichier ?