Masquer les colonnes non remplie

[maval]

Bonjour

A l'aide de VBA j'aimerai Masquer les colonnes non remplie de " K4: AP50 & AS4:BX50 & BZ4😀E50" en sachant que les colonnes "AS4:BX50 & BZ4😀E50" ont des formules.

D'avance merci à qui pourra m'aider.
Cordialement

Maval

 

[Compte Supprimé 979]

Re : Masquer les colonnes non remplie

Salut MaVal,

Un exemple de code que tu peux utiliser

Sub MasquerColonneSansValeur() 
 Dim Col As Integer, Flg As Boolean
  Application.ScreenUpdating = False
  ' Pour les 32 colonnes
  For Col = 1 To 32
    ' Verifier si la colonne contient une valeur > 0
    Flg = Application.CountIf(Range(Cells(4, 10 + Col), Cells(50, 10 + Col)), ">0") > 0
    ' Masquer ou afficher la colonen en fonction
    Cells(1, 10 + Col).EntireColumn.Hidden = Not Flg
    Flg = Application.CountIf(Range(Cells(4, 44 + Col), Cells(50, 44 + Col)), ">0") > 0
    Cells(1, 44 + Col).EntireColumn.Hidden = Not Flg
    Flg = Application.CountIf(Range(Cells(4, 77 + Col), Cells(50, 77 + Col)), ">0") > 0
    Cells(1, 77 + Col).EntireColumn.Hidden = Not Flg
  Next Col
  Application.ScreenUpdating = True
End Sub

A+

 

[maval]

Re : Masquer les colonnes non remplie

Bonjour Bruno,

Et merci pour le code nickel, mais j'ai essayé de mettre un code pour les démasquer je ne suis pas arrivé?

Bonne journée

Max

 

[maval]

Re : Masquer les colonnes non remplie

Re bonjour,

Pour ce qui sont intéresser le code finaliser de Bruno que je remercie au passage avec un bouton masquer démasquer est le suivant:

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Masquer les colonnes non remplie" Then
    CommandButton1.Caption = "Afficher les colonnes non remplie"
    
 Dim Col As Integer, Flg As Boolean
  Application.ScreenUpdating = False
  ' Pour les 32 colonnes
 For Col = 1 To 32
    ' Verifier si la colonne contient une valeur > 0
   Flg = Application.CountIf(Range(Cells(4, 10 + Col), Cells(50, 10 + Col)), ">0") > 0
    ' Masquer ou afficher la colonen en fonction
   Cells(1, 10 + Col).EntireColumn.Hidden = Not Flg
    Flg = Application.CountIf(Range(Cells(4, 44 + Col), Cells(50, 44 + Col)), ">0") > 0
    Cells(1, 44 + Col).EntireColumn.Hidden = Not Flg
    Flg = Application.CountIf(Range(Cells(4, 77 + Col), Cells(50, 77 + Col)), ">0") > 0
    Cells(1, 77 + Col).EntireColumn.Hidden = Not Flg
  Next Col
  Application.ScreenUpdating = True
Else
    CommandButton1.Caption = "Masquer les colonnes non remplie"
    Cells.EntireColumn.Hidden = False
End If
End Sub

Bonne journée a tous

Maval