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é
...

[latouk]

Bonjour,

dans ce cas c'est moi qui dois rater un truc je vais chercher quoi.

Merci pour votre aide, à bientôt.

[AlainTech]

Si, déjà, tu nous disais sur quelle ligne, l'erreur, ça nous aiderait à t'aider...

[latouk]

D'habitude quand je fais un code et qu'il ne marche pas, la fenêtre VBA s'ouvre et l'endroit où est l'erreur est écrit. Là, non. Seul un message d'erreur "argument non facultatif" s'ouvre, et c'est tout. Donc je ne sais pas sur quelle ligne est l'erreur.

Je pense que je suis encore beaucoup trop débutante, je ne veux pas non plus vous faire perdre votre temps il faut que je me penche plus sur l'aide.

[AlainTech]

Si tu veux savoir sur quelle ligne l'erreur se présente, mets un point d'arrêt en début de macro et fais F8 jusqu'à l'erreur.