Macro Excel pour masquage conditionnel

Macro Excel pour masquage conditionnel - Résolu

Domestos

Posté le 29/09/2004 @ 17:04

Bonjour à tous J'ai besoin besoin d'imprimer, quasi quotidiennement, un tableau qui à la base fait 255 colonnes sur environ une trentaine de lignes. La plupart de ces colonnes sont une succession de nombre avec des totaux intermédiaires A l'édition je n'imprime pas les colonnes (que je masque manuellement[desapprouve] !) dont les valeurs sont nulles. Une macro du style "colonne masquée si totale colonne = 0" serait la bienvenue. Est ce faisable ?

Modifié par Domestos le 30/09/2004 17:48

johma

Posté le 29/09/2004 à 18:58

Salut, oui, c'est faisable (je n'ai pas trop le temps maintenant, ce soir peut-être) Pour avancer, la ligne "total" ou l'on doit détecter la valeur 0 est-ce toujours la même? si oui laquelle, sinon, donne nous des indices sur le moyen de la repérer a coup sûr. (texte figé dans 1ère colonne, avant dernière ligne, etc.) Ou faut-il vérifier si toute la colonne est a zéro?

Domestos

Posté le 30/09/2004 à 07:38

Salut johma Alors en fait ce tableau est un modèle créer tous les mois. Le classeur comporte 31 onglets pour les jours du mois + un onglet de récapitulation. Les 3 lignes à tester se suivent et sont toutes les mêmes dans tous les onglets. (sauf la récap) On peut très bien insèrer une ligne qui totaliserait les 3 précédentes de manière à n'avoir qu'une ligne en référence dans la macro. On peut également définir une plage... Les 4 ou 5 premières colonnes sont figées et ne sont pas à prendre en compte dans le test. Voilà merci de ton aide

Domestos

Posté le 30/09/2004 à 13:39

J'ai trouvé une macro qui a priori fonctionne. J'ai insérer une ligne (38) qui sert de test à la macro : qd cette valeur est nulle ça masque la colonne correspondante sinon rien. Sub Macro1() For a = 11 To 251 Select Case Cells(38, a) Case 0 ActiveSheet.Columns(a).Hidden = True Case Else ActiveSheet.Columns(a).Hidden = False End SelectNext a End Sub

Modifié par Domestos le 30/09/2004 17:41

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

Les bons plans du moment PC Astuces

Tous les Bons Plans

89,99 €

Disque dur externe portable Seagate Expansion 4 To USB 3.0 à 89,99 €
Valable jusqu'au 29 Novembre

Boulanger fait une promotion sur le disque dur externe portable Seagate Expansion d'une capacité de 4 To qui passe à 89,99 € alors qu'on le trouve ailleurs à partir de 100 €. Ce disque dur externe portable au format 2,5 pouces dispose d'une interface USB 3.0 compatible USB 2.0. Une excellente affaire pour ce disque dur qui offre des débits de 115 Mo/s. Il n'est pas soudé et est donc démontable si vous souhaitez le réutiliser ailleurs (console, NAS, PC).

> Voir l'offre

-30%

Black Friday Leclerc sur les TV : -30% en ticket Leclerc
Valable jusqu'au 28 Novembre

A l'occasion du Black Friday, Leclerc propose une remise de 30% en ticket Leclerc sur une sélection de téléviseur notamment des marques Samsung, TCL, Thomson, HiSense.

> Voir l'offre

699,99 €

PC portable 15.6 pouces Dell Inspiron G15 (FHD 120Hz, Core i5, 8Go/256Go, GTX 1650) à 699,99 €
Valable jusqu'au 27 Novembre

Boulanger fait une promotion sur le PC portable 15.6 pouces Dell Inspiron G15 qui passe à 699,99 € au lieu de 849 €. Ce portable possède un écran Full HD antireflet 120 Hz, un processeur Intel Core i5 10500H, 8 Go de RAM, un SSD NVMe de 256 Go et une carte graphique NVIDIA GeForce GTX 1650 avec 4 Go de mémoire. Le tout tourne sous Windows 10.

> Voir l'offre