Masquer colonne Si D1 =

Y

Yaloo

XLDnaute Barbatruc

• 21 Mai 2013

• #2

Re : Masquer colonne Si D1 =

Bonjour Benjamin,

Un code pour cela, on peut t'en pondre un en pas longtemps si l'on avait ton fichier comme base.

A+

Martial

 

Vote positif 0 Vote négatif

B

benjaminparez

Guest

• 21 Mai 2013

• #3

Re : Masquer colonne Si D1 =

je peux pas l'envoyer sur un forum mais par mail c'est possible

 

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 21 Mai 2013

• #4

Re : Masquer colonne Si D1 =

Bonjour à tous,

avec ce code:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D1")) Is Nothing Then
If Target = "Benjamin" Then
        Columns("Q:Q").EntireColumn.Hidden = True
    Else
        Columns("Q:Q").EntireColumn.Hidden = False
    End If
End If
End Sub

voir fichier joint

à+
Philippe

 

Pièces jointes

• 111.xlsm

  18.7 KB · Affichages: 33
• 111.xlsm

  18.7 KB · Affichages: 34
• 111.xlsm

  18.7 KB · Affichages: 35

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 22 Mai 2013

• #5

Re : Masquer colonne Si D1 =

Bonjour Benjamin, Philippe,

Au vue du fichier, comme il y a des "cases à cocher" dans cette colonne, la colonne est bien masquée mais pas les "cases à cocher".

C'est très bizarre, car dans les propriétés de tes "case à cocher", il n'y a pas la possibilité de cocher "Déplacer et dimensionner avec les cellules", si cette option était sélectionnable cela fonctionnerait. J'ai testé sur un autre ficher et ça marche avec cette option coché.

Même si on rajoute des "case à cocher" dans ton fichier cette option n'est toujours pas accessible, je ne comprend pas pourquoi.

Je ne vois pas comment faire.

A+

MArtial

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Mai 2013

• #6

Re : Masquer colonne Si D1 =

Bonjour,

une autre approche :

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address = "$D$1" Then Columns(17).Hidden = .Value <> "Benjamin"
End With
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 22 Mai 2013

• #7

Re : Masquer colonne Si D1 =

Bonjour à tous,

Selon le fichier de phlaurent55 et pour une case à cocher:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D1")) Is Nothing Then
If Target <> "Benjamin" Then
Columns("Q:Q").EntireColumn.Hidden = True
CheckBox1.Visible = False
Else
Columns("Q:Q").EntireColumn.Hidden = False
CheckBox1.Visible = True
End If
End If
End Sub


A+

 

Pièces jointes

• phlaurent55.xls

  51.5 KB · Affichages: 21
• phlaurent55.xls

  51.5 KB · Affichages: 18
• phlaurent55.xls

  51.5 KB · Affichages: 22

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 22 Mai 2013

• #8

Re : Masquer colonne Si D1 =

Salut Pierrot,

Bien ton approche 🙂

Le problème c'est les "cases à cocher", je viens de renvoyer le fichier à Benjamin, j'y ai modifié ces "cases à cocher" et maintenant ça fonctionne. Enfin chez moi 😉, on va attendre le retour de Benjamin.

A+

Martial

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Mai 2013

• #9

Re : Masquer colonne Si D1 =

Re,

Le problème c'est les "cases à cocher", je viens de renvoyer le fichier à Benjamin,

Cliquez pour agrandir...

bah... perso vois pas de fichier dans le post de Benjamin..... ni qu'il y fasse allusion.... j'ai du manquer quelque chose

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 22 Mai 2013

• #10

Re : Masquer colonne Si D1 =

Re,

Benjamin m'a envoyé son fichier directement par mail. 4,6 mo avec beaucoup de données confidentielles.

A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Mai 2013

• #11

Re : Masquer colonne Si D1 =

Re,

Benjamin m'a envoyé son fichier directement p
ar mail. 4,6 mo avec beaucoup de données confidentielles.

Cliquez pour agrandir...

Aarf... ceci explique cela... si c'est du privé alors....

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 22 Mai 2013

• #12

Re : Masquer colonne Si D1 =

Re Pierrot,

Pas de vexation entre nous, le problème n'est pas privé mais le document oui. 😛

A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Mai 2013

• #13

Re : Masquer colonne Si D1 =

Re,

Yaloo à dit:

Re Pierrot,
Pas de vexation entre nous, le problème n'est pas privé mais le document oui. 😛
A+

Cliquez pour agrandir...

pas de souci🙂

 

Vote positif 0 Vote négatif

B

benjaminparez

Guest

• 17 Juin 2013

• #14

Re : Masquer colonne Si D1 =

Bonjour,

merci pour vos réactions, cela fonctionne bien. mais on complique un peu. en plus de masquer la colonne M, je dois également masquer des lignes. j'ai donc modifié un macro donné par vos soins mais il me marque une erreur, voici la macro

HTML:

Private Sub Worksheet_Change(Target As Range)
If Not Intersect(Target, Range("D1")) Is Nothing Then
If Target = "Belmedis" Then
        Columns("m:m").EntireColumn.Hidden = False
        Rows("87:96").EntireRow.Hidden = False
    Else
        Columns("m:m").EntireColumn.Hidden = True
        Rows("87:96").EntireRow.Hidden = True
    End If
End If
End Sub

il me mets erreur compilation: la declaration de la procédure ne correspond pas à la description de l'evenemenet ou de la procédure de même nom.

savez vous m'aider (encore)
merci,

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 17 Juin 2013

• #15

Re : Masquer colonne Si D1 =

Bonsoir Benjamin,

Il ne te manque que ByVal devant Target As Range

A+

Martial

 

Vote positif 0 Vote négatif