Bonjour à tous,
Voici mon premier poste mais surement pas le dernier.
J'espère que je saurai m'expliquer clairement pour ma première demande.
J'ai un fichier sur lequel je souhaite cacher les colonnes d'une plage si la somme de la colonne (dans la plage) est vide.
Voici ce que j'ai tenté de faire :
Voici mon premier poste mais surement pas le dernier.
J'espère que je saurai m'expliquer clairement pour ma première demande.
J'ai un fichier sur lequel je souhaite cacher les colonnes d'une plage si la somme de la colonne (dans la plage) est vide.
Voici ce que j'ai tenté de faire :
Code:
Sub masquercolonne()
Dim K As Long ' numéro de la colonne
For K = 4 To 33 Step -1 'Pour chaque colonne dans la plage "D10:AG1170" si la somme de la colonne = 0 alors on cache la colonne.
If Evaluate("=SUBTOTAL(3," & Range(Cells(10, K), Cells(1170, K)).Address & ")") = 0 Then
Columns(K).Hidden = True
End If
Next K
End Sub
[CODE]
Je sais qu'il serait plus simple pour vous si je mets le fichier en question en ligne mais malheureusement je ne peux pas.
Merci d'avance pour votre aide.
GuizmoD