XL 2010 Déployer colonnes si

Marylgb · 10 Février 2021

bonjour,

En PJ le fichier exemple où j'aurais besoin que certaines colonnes se déploient en fonction du texte saisie dans la colonne D.
Déployer les colonnes E-F-G-H-I-J Si CIR dans la colonne D
Ne pas déployer les colonnes E-F-G-H-I-J si rien ou NON dans la colonne D.

Merci d'avance,

soan · 10 Février 2021

Bonjour Marylgb,

ton fichier en retour.

* les colonnes E:J sont masquées
* en D4, saisis "CIR" ➯ ça affiche E:J ; idem si tu avais saisis "cir"
* si tu saisis autre chose en D4, par exemple "NON", ça masque E:J
* idem si tu avais effacé D4 avec la touche Suppression

bien sûr, ça fait le job décrit ci-dessus pour la ligne en cours ➯ ça coïncidera pas avec les données des autres lignes ! ... sauf si toutes les données de la colonne D sont les mêmes, ce qui risque d'être vraiment très très rare, voire impossible en pratique !

si tu trouves un moyen pour masquer des colonnes pour certaines lignes et pas pour d'autres je suis très fortement preneur ! idem pour l'inverse : afficher des colonnes pour certaines lignes et pas pour d'autres ! mais Excel risque de te répondre : « À l'impossible nul n'est tenu ! »

code VBA du module de Feuil1 :

VB:

Option Explicit: Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .CountLarge > 1 Then Exit Sub
    If .Column <> 4 Then Exit Sub
    If .Row <> 1 Then Columns("E:J").Hidden = (.Value <> "CIR")
  End With
End Sub

à te lire pour avoir ton avis.

soan

XL 2010 Déployer colonnes si

Marylgb

XLDnaute Occasionnel

Pièces jointes

soan

XLDnaute Barbatruc

Pièces jointes

Discussions similaires