Conditionner le masquage d'une colonne en vb ss excelRésolu

Question

Salut , 
Comment faire pour mettre une condition sur le masquage d'une colonne entière ??

Exemple : Si la cellule(2, 2) contient "AFFICHE"
                     la colonne E apparait 
                  Sinon 
                     la colonne E est cachée

Merci.

drikce06 · Accepted Answer

Salut

If Cells(2, 2).Value = "affiche" Then
    Columns("M:M").Hidden = True
    Else
    Columns("M:M").Hidden = False
End If

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

jrivet · Answer

Salut,
regarde ci ceci te convient

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns("E:E").Hidden = Not Range("B2").Value = "AFFICHE"
End Sub , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

drikce06 · Answer

C'est l'inverse:

If Cells(2, 2).Value = "affiche" Then
    Columns("E:E").Hidden = False
    Else
    Columns("E:E").Hidden = True
End If

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

cs_sushishumi · Answer

OKI, merci ça marche nickel, surtout la solution de Ju£i?n
car celle de Drikce necessite une selection de la cellule sur laquelle porte la condition pr prendre en compte le masquage ou non.

Par contre au risque de paraitre relou  je voudrai savoir si dans le meme principe il est possible de rendre des cellules inactives (j'entend par la on ne peut pas les selectionner ou ecrire des choses dedans) a partir du meme genre de condition.

Exemple : Si la cellule(2, 2) contient "OK"
                     la cellule (2, 5) devient active 
                  Sinon 
                     la cellule (2, 5) est inactive

Sushi.

cs_MPi · Answer

Tu dois d'abord mettre une protection sur ta feuille et "activer" seulement les cellules modifiables.

Ça peut se faire aussi par code, mais ça me paraît compliqué si tu peux le faire manuellement...

MPi

jrivet · Answer

Salut, Regarde ceci Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'L'objet Target représente la cellule qui va etre 'Selectionner donc en testant ca colonne et sa ligne tu 'peux savoir si tu veux l'activer ou non If Target.Row 2 And Target.Column 5 And Range("B2") <> "OK" Then Call Range("A1").Select End Sub

, ---- [code.aspx?ID=41455 By Renfield] @+: Ju£i?n Pensez: Réponse acceptée

Conditionner le masquage d'une colonne en vb ss excel

6 réponses

Votre réponse

Discussions similaires