Code d'invisibilité

Hello, Qu'est-ce qui en joue pas avec ce code ?

Quand je l'applique rien ne change.

En gros j'aimerais que quand la valeur en n18 (Feuille : parametres) est "Visible", la colonne A de la feuille "recolte" soit affiché

Et masqué si c'est la valeur est invisible...

Merci d'avance !

Sub primaireaffichageA()

If Worksheets("parametres").Range("N18").Value = Visible Then
Worksheets("recolte").Range("A1").EntireColumn.Hidden = True = False

End If

If Worksheets("parametres").Range("N18").Value = Invisible Then
Worksheets("recolte").Range("A1").EntireColumn.Hidden = True = True
End If

End Sub

bonjour,

True = False est toujours Faux !

Donc :

Worksheets("recolte").Range("A1").EntireColumn.Hidden = Faux

Bon de toute façon ça n'a pas d'importance puisque une cellule n'a pas de propriété Visible donc tu ne peux pas baser ta condition sur la visibilité d'une cellule...

A+

que voulez vous dire par: le contenu d'une cellule "visible ou invisible"?

En fait, y a une liste deroulante, avec les termes "visible" et "invisible"

Essaye avec ça, il faut juste faire attention au déclencheur (à placer dans le feuil paramètres)

 Private Sub Worksheet_Change(ByVal Target As Range)

If Worksheets("parametres").Range("N18").Value = "Visible" Then
    Worksheets("recolte").Range("A1").EntireColumn.Hidden = False
else
    Worksheets("recolte").Range("A1").EntireColumn.Hidden = True
End If

End Sub

Tu peux essayer :

 Private Sub Worksheet_Change(ByVal Target As Range)
    Worksheets("recolte").Range("A1").EntireColumn.Hidden = Worksheets("parametres").Range("N18") ="Visible"
'Si N18 = "Visible" la colonne sera Hidden sinon elle sera visible.
End Sub

ou l'inverse :

 Private Sub Worksheet_Change(ByVal Target As Range)
    Worksheets("recolte").Range("A1").EntireColumn.Hidden = Not Worksheets("parametres").Range("N18") ="Visible"
'les 2 seront visible en même temps...
End Sub

A+

Parfait merci beaucoup beaucoup !

Hello, je reviens avec uen question sur ce code qui m'as déjà bien aidé.

Encore merci.

Private Sub Worksheet_Change(ByVal Target As Range)

If Worksheets("Parametres").Range("B15").Value = "Visible" Then
    Worksheets("EPOP").Range("O1").EntireColumn.Hidden = False
Else
    Worksheets("EPOP").Range("O1").EntireColumn.Hidden = True
End If

If Worksheets("Parametres").Range("D1").Value = "Visible" Then
  For Each cellule In Sheets("EPOP").Range("c:c")
If cellule.Value = "Bloc 1" Then cellule.EntireRow.Hidden = True
Next cellule
         Else
 For Each cellule In Sheets("EPOP").Range("c:c")
If cellule.Value = "Bloc 1" Then cellule.EntireRow.Hidden = False
Next cellule

End If

End Sub

La première partie du code marche bien. Du coup, j'ai essayé par moi même de construire la suite, mais je suis pas encore assez bon apparemment.

La seconde partie consiste à masquer les lignes de la feuille EPOP qui contiendrait la valeur "Bloc 1" dans une de leur cellule (officiellement elle n'apparaitrais que dans la colonne C) si le terme "visible" n'est pas present dans le D1 de la feuille "paramètres".

PS : J'ai d'abord cherché par moi même et sur le forum avant de vous demander hein. :D :D :D

Bonjour,

Fournir le fichier KIVABIEN avec

A+