Masquer les cases à cocher en masquant les lignes

[Xanthar15]

Bonjour,

Je voudrais faire une macro pour cacher le tableau présent dans le fichier ci-joint.
Normalement je n'ai pas de souci pour ça mais là si !

En effet, les cases à cocher que j'ai mises ne se cachent pas.

Comment faire pour qu'elles n'apparaissent pas ? et bien sûr pour qu'ensuite elles réapparaissent quand je refais apparaitre le tableau ?

Merci d'avance pour vos réponses.

 

[Minick]

Re : Masquer les cases à cocher en masquant les lignes

Salut,

Je me demande si habituellement tu n'utiliserais pas les controles de
la boite a outils et non ceux des formulaires comme dans ton fichier joint.

Avec ceux de la boite a outils tu peux les dimensionner avec les cellules
apparemment pas avec ceux des formulaires.

A verifier...

 

[tototiti2008]

Re : Masquer les cases à cocher en masquant les lignes

Bonjour à tous,

pour la barre d'outils formulaires, ça dépend des objets. Visiblement ça fonctionne avec un bouton mais pas avec une case à cocher.

 

[Xanthar15]

Re : Masquer les cases à cocher en masquant les lignes

arf c pas cool ça !

je vais essayer de me débrouiller autrement un faisant un copier coller en macro et en définissant une zone d'impression

 

[SubEndSub]

Re : Masquer les cases à cocher en masquant les lignes

Bonjour chez vous

Code vba généré par l'enregistreur

Sub Macro1()
    ActiveSheet.Shapes("Check Box 51").Select
    With Selection
        .Placement = xlMove
        .PrintObject = False
    End With
End Sub

Pour traiter tous tes cases à cocher

Sub Macro1()
Dim sh As Shape
Application.ScreenUpdating = False
For Each sh In ActiveSheet.Shapes
If sh.Type = 8 Then
sh.Select
Selection.PrintObject = False
End If
Next
Application.ScreenUpdating = True
Range("a1").Select
End Sub

Cela correspond à déselectionner Imprimer l'objet quand on clique droit sur l'objet

 

[13GIBE59]

Re : Masquer les cases à cocher en masquant les lignes

Bonjour Xantar, bonjour le Forum.

Et si tu essayais des fausses checkbox ?

Voilà le code à adapter à ton fichier :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Pour la colonne B :
 If Target.Column = 2 And Target.Count = 1 Then
        Target = IIf(Target = "þ", "o", "þ") 'Police Wingdings
        Range("D1").Select
        Exit Sub
    End If
End Sub

A +

 

[SubEndSub]

Re : Masquer les cases à cocher en masquant les lignes

Bonsoir chez vous

en définissant une zone d'impression

13GIBE59
Si les checkbox ne doivent pas apparaitre à l'impression

décocher (par macro ) au manuellement peut suffire non ?

(voir mon message précédent)

 

[Xanthar15]

Re : Masquer les cases à cocher en masquant les lignes

je crois ke je v finir par faire ca car linteret de le remplir sur la feuille de calcul nes pas tres elevé

merci pour vos réponses rapides

 

[SubEndSub]

Re : Masquer les cases à cocher en masquant les lignes

Xanthar15

Tu as essayé la solution que je proposais précédemment?

Les chekbox n'apparaisent pas à l'impression aprés l'éxécution de la macro proposée.

 

[Xanthar15]

Re : Masquer les cases à cocher en masquant les lignes

en fait pour tout vous expliquer jai plusieurs tableau sur le même modéle avec des cases a cocher différentes selon les tableaux

le but c'est de cliquer sur un bouton de sorte qu'apparaisse le tableau de cases a cocher correspondant au criteres choisi

du coup ce que j'ai fait c'est créer tous mes tableaux
je comptai ensuite :
- tout masquer
- affecter une macro a un bouton
- en cliquant sur le bouton apparaitrai le bon tableau

sauf que qd je masque toutes les lignes, les cases a cocher restes visibles et sont aglutinés sur la meme ligne

Je viens de tester avec Excel office 2007 et il ny a pas ce probleme
Le souci c'est que je ne peux pas utiliser 2007 pour ce fichier

Bonsoir chez vous




13GIBE59
Si les checkbox ne doivent pas apparaitre à l'impression

décocher (par macro ) au manuellement peut suffire non ?

(voir mon message précédent)

 

[SubEndSub]

Re : Masquer les cases à cocher en masquant les lignes

Xanthar15
Tu pourrais joindre un fichier d'exemple plus complet s'il te plait.

 

[Xanthar15]

Re : Masquer les cases à cocher en masquant les lignes

Voila un nouveau fichier

Comme je disais : 4 tableaux
-avant de cliquer sur un bouton je veux que tous les tableaux soit masqués
- le fait de cliquer sur un bouton faisant apparaitre uniquement le tableau concerné

merci d'avance

 

[Xanthar15]

Re : Masquer les cases à cocher en masquant les lignes

Bonjour,

Comme personne n'a pu répondre à ma question, j'ai pensé à une autre façon :
-je déplace tous mes tableaux de plusiquers colonnes sur la droite
-et ensuite je crée une macro qui me permet en cliquant sur un bouton de déplacer le tableau voulu sur la page que jaurai défini en zone d'impression

la question que j'ai est la suivante : comment faire pour que avec le meme bouton je puisse le faire apparaitre dans ma zone d'impression et, en cas d'erreur, rappuyer sur le bouton pour remttre le tableau à la place qu'il avauit ds les colonnes plus a droite ?

Merci d'avance

 

[SubEndSub]

Re : Masquer les cases à cocher en masquant les lignes

Bonjour chez vous

Pourquoi les quatre tableaux sont-ils identiques ?

Edition:
Un essai en utilisant : Copier une image

J'ai repris ton fichier exemple et couper/coller tes tableaux en B200

A mettre dans le code de la feuille 1

Appliquer au boutons les macros tableau1 à tableau 4

Pour effaceer, utiliser la macro raz

Sub raz()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If Not Intersect(shp.TopLeftCell, Range("b3")) Is Nothing Then shp.Delete
Next shp
End Sub
Sub t(r As String)
raz
Feuil1.Range(r).CopyPicture Appearance:=xlScreen, Format:=xlPicture
Feuil1.Range("B3").Select
ActiveSheet.Paste
Feuil1.Range("B3").Select
End Sub
Sub tableau1()
t "B200:I207"
End Sub
Sub tableau2()
t "B209:I216"
End Sub
Sub tableau3()
t "B218:I225"
End Sub
Sub tableau4()
t "B227:I234"
End Sub