Masquer colonne Si D1 =

[benjaminparez]

Bonjour,

voila, j'ai cherché sur internet mais pas trouver ce que je voulais, ou ne fonctionne pas.

j'ai une liste de choix en D1 avec p. ex Benjamin, Céline, Cloé. je souhaite que si c'est Benjamin, la colonnes Q sont afficher si non je veux qu'elle soit masquer.

avez vous un code pour cela?

merci

 

[Yaloo]

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

 

[benjaminparez]

Re : Masquer colonne Si D1 =

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

 

[phlaurent55]

Re : Masquer colonne Si D1 =

Bonjour à tous,

avec ce 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

 

[Yaloo]

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

 

[Pierrot93]

Re : Masquer colonne Si D1 =

Bonjour,

une autre approche :

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

 

[degap05]

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+

 

[Yaloo]

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

 

[Pierrot93]

Re : Masquer colonne Si D1 =

Re,

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

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

 

[Yaloo]

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+

 

[Pierrot93]

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.

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

 

[Yaloo]

Re : Masquer colonne Si D1 =

Re Pierrot,

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

A+

 

[Pierrot93]

Re : Masquer colonne Si D1 =

Re,

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

pas de souci🙂

 

[benjaminparez]

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

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,

 

[Yaloo]

Re : Masquer colonne Si D1 =

Bonsoir Benjamin,

Il ne te manque que ByVal devant Target As Range

A+

Martial