CheckBox et Ligne masqué

[achraf26]

Bonjour,
j'ai deux chekbox en lign 8 et 10 quand je masque les lignes de 7 à 11, le checkbox reste visible, je voudrai les maquer quand les lignes sont masqué et affiché quand lignes sont affiché.
Merci

 

[Pierrot93]

Re : CheckBox et Ligne masqué

Bonjour,

click droit sur le "checkbox" => format de controle => onglet "propriétés" => coches "déplacer et dimensionner avec les cellules"...

bonne journée
@+

 

[achraf26]

Re : CheckBox et Ligne masqué

Bonjour,

click droit sur le "checkbox" => format de controle => onglet "propriétés" => coches "déplacer et dimensionner avec les cellules"...

bonne journée
@+

Bonjour Pierrot,
l'option deplacer et dimensionner avec les cellules est grisé

Merci

 

[Pierrot93]

Re : CheckBox et Ligne masqué

Re,

A confirmer le type de contrôle (activex ou formulaire), voir également si la feuille et ou le classeur ne sont pas protégés...

 

[achraf26]

Re : CheckBox et Ligne masqué

Rebonjour Pierrot,
c'est un controle formulaire, rien est protégé pour le moment
je suis entrain de faire un formulaire precisement entre ligne 7 et 11, les cases formulaire est en ligne 8 et 10
Merci

 

[Pierrot93]

Re : CheckBox et Ligne masqué

Re,

AArf oui, propriété non disponible pour un contrôle formulaire....

 

[achraf26]

Re : CheckBox et Ligne masqué

Re,
Pas non plus une solution avec Macro, pour masquer les Checkbox formulaire avec les lignes ?
Merci

 

[Pierrot93]

Re : CheckBox et Ligne masqué

Re,

utilise des controles activeX

 

[achraf26]

Re : CheckBox et Ligne masqué

re,
Merci je vais voir ce que je vais faire, si je trouve une solution je la proposerai 🙂
A+

 

[job75]

Re : CheckBox et Ligne masqué

Bonjour achraf26, Pierrot,

Pour le fun, dans le code du ThisWorkbook du fichier joint :

Dim t# 'mémorisation

Private Sub Workbook_Activate()
Application.OnTime 1, "ThisWorkbook.AfficheShapes"
End Sub

Private Sub Workbook_Deactivate()
On Error Resume Next
Application.OnTime t, "ThisWorkbook.AfficheShapes", , False
End Sub

Sub AfficheShapes()
Dim s As Shape
On Error Resume Next
For Each s In ActiveSheet.Shapes
  s.Visible = Not (s.TopLeftCell.Rows.Hidden Or s.TopLeftCell.Columns.Hidden)
Next
t = Now + 1 / 86400
Application.OnTime t, "ThisWorkbook.AfficheShapes"
End Sub

Toute Shape dont la TopLeftCell est masquée sera masquée.

Fichier joint.

Edit : pour modifier le code quand la macro tourne, menu Exécution => Arrêt.

A+

 

[job75]

Re : CheckBox et Ligne masqué

Bonjour achraf26, Pierrot, le forum,

Qu'est-ce qui vous arrive, en grève 😕

Pour bien commencer la journée voyez ce fichier (2) avec :

Sub AfficheShapes()
If IsError(Application.Caller) Then Exit Sub
Dim s As Shape
With ActiveSheet.Shapes(Application.Caller).TextFrame.Characters
  If .Text Like "Masquer*" Then
    .Text = Replace(.Text, "Masquer", "Afficher")
    Rows("7:11").Hidden = True
  Else
    .Text = Replace(.Text, "Afficher", "Masquer")
    Rows("7:11").Hidden = False
  End If
End With
For Each s In ActiveSheet.Shapes
  s.Visible = Not s.TopLeftCell.Rows.Hidden
Next
End Sub

Bonne journée.

 

[job75]

Re : CheckBox et Ligne masqué

Re,

Avec un filtre automatique :

Private Sub Worksheet_Calculate()
Dim s As Shape
For Each s In ActiveSheet.Shapes
  s.Visible = Not s.TopLeftCell.Rows.Hidden
Next
End Sub

L'évènement Calculate est créé par la formule =SOUS.TOTAL(103;B7:B11) en E6.

Fichier (3).

Edit : on peut se passer du filtre et même effacer les valeurs en colonne B.

La colonne de la formule peut être masquée.

La macro s'exécute quand on masque des lignes manuellement sur 7:11.

A+

 

[achraf26]

Re : CheckBox et Ligne masqué

Bonsoir Job,
Merci et Bravo pour le boulot, la meilleure pour moi reste la 11, les autres sont magnifique, j'ai eu un souci avec les autres c'est quand je veux annuler modification, je sais pas le faire ça devient grisé.
Bonne soirée

 

[achraf26]

Re : CheckBox et Ligne masqué

subject résolu