cacher une colonne à conditions

[bibou1212]

Bonjour le forum,

j'ai un petit problème qui réside dans ma connaissance à retranscrire ce que je pense en VBA...

Alors pour le contexte j'ai un fichier qui contien 2 feuilles🙁"Présentation";"Production"), à l'aide de bouton d'option j'obtien un codage(1,2,3,4).

Ce qu'il me faudrai en VBA est simple pour vous:

SI la cellule G35=1 dans la feuille "Présentation"
-> Cacher les colonnes D et E de la feuille "Production"

SI la cellule G35=2 dans la feuille "Présentation"
-> Cacher la colonne E de la feuille "Production"

SI la cellule G35=3 dans la feuille "Présentation"
-> Cacher la colonne D de la feuille "Production"

SI la cellule G35=4 dans la feuille "Présentation"
-> Rien ne se passe


Merci d'avance amis excelliens

David

 

[pierrejean]

Re : cacher une colonne à conditions

bonjour David

A tester:

Select Case Sheets("Présentation").Range("G35")
Case 1
Sheets("Production").Columns("D:E").Hidden = True
Case 2
Sheets("Production").Columns("E").Hidden = True
Sheets("Production").Columns("D").Hidden = False
Case 3
Sheets("Production").Columns("E").Hidden = False
Sheets("Production").Columns("D").Hidden = True
Case 4
Sheets("Production").Columns("D:E").Hidden = False
End Select

 

[Gorfael]

Re : cacher une colonne à conditions

Salut david, pierrejean et le forum
Bonne et heureuse année 2008 à tous

moi, je préfère :

With Sheets("Production")
    .Columns("D:E").Hidden = False
    Select Case .Range("G35")
        Case 1
            .Columns("D:E").Hidden = True
        Case 2
            .Columns("E").Hidden = True
        Case 3
            .Columns("D").Hidden = True
    End Select
End With

Absolument pas copiée sur la macro de pierrejean 😛
En Affichant d'entrée toutes les colonnes masquable, puis en ne masquant que celles nécessaires : ça permet de ne pas se cantonner à 2 colonnes, et on affiche les colonnes sauf sur 1, 2 et 3. on pourrait faire l'inverse (masquer, puis afficher)
Je préfère un raisonnement plus général, même si l'application pourrait se faire autrement.
A+

 

[pierrejean]

Re : cacher une colonne à conditions

Re

Voui mais .....

je crois que le select case devrait etre:

Select Case Sheets("Présentation").Range("G35")

 

[Gorfael]

Re : cacher une colonne à conditions

Re

Voui mais .....

je crois que le select case devrait etre:

Select Case Sheets("Présentation").Range("G35")

Salut
Oups, trop vite 🙄, pas relu. Comme pour les tests, je n'avais qu'une feuille, j'ai oublié de le remettre en recopiant
Merci à toi
A+

 

[bibou1212]

Re : cacher une colonne à conditions

Bonjour Pierre Jean,

Mecri de ton aide.

ça marche très bien

 

[bibou1212]

Re : cacher une colonne à conditions

Désolé Gorfael,

je ne t'avais pas vu merci pour ta réponse aussi