CheckBox et Ligne masqué

Pierrot93

XLDnaute Barbatruc

• 4 Août 2015

• #2

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
@+

 

Vote positif 0 Vote négatif

A

achraf26

XLDnaute Occasionnel

• 4 Août 2015

• #3

Re : CheckBox et Ligne masqué

Pierrot93 à dit:

Bonjour,

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

bonne journée
@+

Cliquez pour agrandir...

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

Merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Août 2015

• #4

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...

 

Vote positif 0 Vote négatif

A

achraf26

XLDnaute Occasionnel

• 4 Août 2015

• #5

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Août 2015

• #6

Re : CheckBox et Ligne masqué

Re,

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

 

Vote positif 0 Vote négatif

A

achraf26

XLDnaute Occasionnel

• 4 Août 2015

• #7

Re : CheckBox et Ligne masqué

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Août 2015

• #8

Re : CheckBox et Ligne masqué

Re,

utilise des controles activeX

 

Vote positif 0 Vote négatif

A

achraf26

XLDnaute Occasionnel

• 4 Août 2015

• #9

Re : CheckBox et Ligne masqué

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Août 2015

• #10

Re : CheckBox et Ligne masqué

Bonjour achraf26, Pierrot,

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

Code:

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+

 

Pièces jointes

• Affiche les Shapes(1).xlsm

  18.2 KB · Affichages: 25

Dernière édition: 4 Août 2015

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Août 2015

• #11

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 :

Code:

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.

 

Pièces jointes

• Affiche les Shapes(2).xlsm

  19.7 KB · Affichages: 38

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Août 2015

• #12

Re : CheckBox et Ligne masqué

Re,

Avec un filtre automatique :

Code:

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+

 

Pièces jointes

• Affiche les Shapes(3).xlsm

  18.4 KB · Affichages: 32

Dernière édition: 5 Août 2015

Vote positif 0 Vote négatif

A

achraf26

XLDnaute Occasionnel

• 5 Août 2015

• #13

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

 

Vote positif 0 Vote négatif

A

achraf26

XLDnaute Occasionnel

• 6 Août 2015

• #14

Re : CheckBox et Ligne masqué

subject résolu

 

Dernière édition: 6 Août 2015

Vote positif 0 Vote négatif