Macro pour cacher colonnes vides

T

TempusFugit

XLDnaute Impliqué

• 29 Septembre 2011

• #2

Re : Macro pour cacher colonnes vides

Bonjour Mesdames,Messieurs


Essaie cette macro

Code:

Sub masquercolonnesvides() ' valable pour les versions inférieures à Excel 2007
Dim i
For i = 1 To 256
Columns(i).Hidden = Application.CountA(Columns(i)) = 0
Next i
End Sub

 

Vote positif 0 Vote négatif

S

sabdani

Guest

• 29 Septembre 2011

• #3

Re : Macro pour cacher colonnes vides

Merci beaucoup, cette petite macro fonctionn très bien 🙂 Maintenant j'aurais encore une question : est-ce possible que excel considère comme vide une cellule contenant une formule mais qui est vide car il n'y a pas de résultat ou est-ce plus simple d'utiliser une fonction comme "esterruer"pour masquer ces colonnes?
Merci

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 29 Septembre 2011

• #4

Re : Macro pour cacher colonnes vides

Cela laisse supposer que tu as des colonnes ne contenant que des formules (et rien d'autres) qui renvoient aucune valeur

Du style : SI(A1<>"";1;"")

Est-ce la cas ?

La macro précédent masque la colonne en prenant comme principe que tout la colonne est vide.

 

Vote positif 0 Vote négatif

S

sabdani

Guest

• 29 Septembre 2011

• #5

Re : Macro pour cacher colonnes vides

Oui c'est bien ca, j'ai des colonnes avec des formules du style SI(esterreur(recherchev(...)....),"",recherchev(...)).
Ce que je voudrais, c'est que les colonnes qui ne renvoient aucune valeur soient masquées automatiquement.
Peut qu'il vaudrait mieux que je retire le si de ma formule et que la macro cache les colonnes renvoyant une erreur non?

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 29 Septembre 2011

• #6

Re : Macro pour cacher colonnes vides

Essaie cette macro (qui fonctionne dans les cas suivants)

Les colonnes vides sont masquées lorsque:
- la colonne ne contient aucun donnée
- la colonne ne contient que des formules qui renvoient une chaine vide
(exemple: toutes les cellules de la colonne A contiennent cette formule
=SI(B1<>"";1;"")
alors la colonne A sera masquée si la colonne B est entiérement vide.

Code:

Sub masquercolonnesvidesV2() ' valable pour les versions inférieures à Excel 2007
Dim i
Application.ScreenUpdating = False
For i = 1 To 256
Columns(i).Hidden = Application.CountBlank(Columns(i)) = 65536
Next i
End Sub

 

Dernière édition: 29 Septembre 2011

Vote positif 0 Vote négatif

S

sabdani

Guest

• 29 Septembre 2011

• #7

Re : Macro pour cacher colonnes vides

Ca ne marche pas... mais c'est ma faute en fait, je me suis trompée de mémoire. quand il y a une erreur, excel ne me met pas rien dans la cellule mais "0", du coup c'est logique que ca ne marche pas. J'ai essayé de remplacer countblank par cellule.value=0>1 mais ca ne marche pas. Un message d'erreur me demande une fin d'instruction et je ne sais pas pourquoi...

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 29 Septembre 2011

• #8

Re : Macro pour cacher colonnes vides

Pour masquer une colonne selon une condition
il faut que toutes les cellules de cette colonne remplissent cette condition.

Donc ton cas, on masquera une colonne si toutes ses cellules renvoient 0.

Est-ce le cas ton fichier ?

As-tu une une colonne pleine de 65536 zéros à masquer ?

Cette macro fonctionne (si les conditions précitées sont réunies)

Code:

Sub masquercolonnesvidesV3() ' valable pour les versions inférieures à Excel 2007
Dim i
Application.ScreenUpdating = False
For i = 1 To 256
Columns(i).Hidden = Application.CountBlank(Columns(i)) = 65536
Columns(i).Hidden = Application.CountIf(Columns(i), 0) = 65536
Next i
End Sub

 

Dernière édition: 29 Septembre 2011

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 29 Septembre 2011

• #9

Re : Macro pour cacher colonnes vides

Cette variante masquera toutes les colonnes vides et les colonnes contenant au mois un zéro.

Code:

Sub masquercolonnesvidesV4() ' valable pour les versions inférieures à Excel 2007
Dim i
Application.ScreenUpdating = False
For i = 1 To 256
Columns(i).Hidden = Application.CountBlank(Columns(i)) = 65536
Columns(i).Hidden = Application.CountIf(Columns(i), 0) > 0
Next i
End Sub

 

Vote positif 0 Vote négatif

S

sabdani

Guest

• 29 Septembre 2011

• #10

Re : Macro pour cacher colonnes vides

Malheureusement non.... Tanpis je crois que je vais modifier ma formule. Ca ne va pas etre facile car je ne peux pas en corriger une seule puis etirer, mais au moins je pourrais utiliser la macro précédente.
Merci beaucoup pour votre aide 🙂

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 29 Septembre 2011

• #11

Re : Macro pour cacher colonnes vides

Changer ta formule ne changera rien à l'affaire.


Masquer une colonne c'est masquer 65536 cellules d'un coup.
et masquer une ligne c'est masquer 256 cellules d'un coup.


Tu ne veux pas voir de zéros tu peux décocher Valeurs zéros dans les options d'Excel.
Menu: Outils
Menu: Options ; Onglet: Affichage : décocher Valeurs zéros.

 

Dernière édition: 29 Septembre 2011

Vote positif 0 Vote négatif