Discussion :

[latouk]

Bonjour,

j'ai un tableau à double entrées, j'applique un filtre tout bête à la première colonne et je souhaite masquer les colonnes pour lesquelles la ligne choisie est vide. Je ne m'explique pas très bien donc exemples en pièces jointes : 1) le tableau complet ; 2) je filtre pour ne garder les valeurs correspondant aux types 2, 3 et 7 donc je voudrais masquer les colonnes vides (entreprises 3, 4, 5, 6, 9, 10, 11, 12).

Si vous avez des bouts de codes à me proposer siouplait...

(si je fais une macro toute bête qui masque les colonnes vides il n'y en aura jamais aucune de masquées)

Merci !

[Invité]

Salut Latouk,

Pas simple de te répondre sans fichier, mais tu peux essayer un truc du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub MasquerColonneVide()
  Dim Col As Integer
  For Col = 2 To 12
    ' Utiliser la fonction NBVAL() dans la colonne
    If Application.WorksheetFunction.CountA(Range(Cells(6, Col), Cells(Rows.Count, Col))) = 0 Then
      Cells(1, Col).EntireColumn.Hidden = True
    End If
  Next Col
End Sub

A+

[latouk]

Bonjour,

merci pour ce début de code Bruno.

Ci-joint un fichier un peu réduit qui reprend à peu près le même que le mien (j'ai supprimé les noms...).

En fait les utilisateurs vont d'abord filtrer les déchets qui les intéressent, et comme il y a beaucoup de colonnes je voudrais qu'il puissent masquer toutes celles des entreprises n'ayant pas le type de déchet en question, qui sont donc vides une fois que l'on a appliqué le filtre auto.

Je ne sais pas si c'est beaucoup mieux expliqué mais en tout cas merci pour votre aide...

[mercatog]

Bonjour
En utilisant l'évènement SlectionChange de la feuille (le code est lancé dès sélection d'une cellule quelconque de la feuille)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LastLig As Long
Dim i As Integer
 
Application.ScreenUpdating = False
LastLig = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
On Error Resume Next
Application.EnableEvents = False
Columns("B:AA").Hidden = False
For i = 2 To 27
    Columns(i).Hidden = Application.CountA(Range(Cells(3, i), Cells(LastLig, i)).SpecialCells(xlCellTypeVisible)) = 0
Next i
Application.EnableEvents = True
End Sub

[latouk]

merci.

"argument non facultatif"

...

[mercatog]

Testé
...