masquer des colonnes par macro

JCGL

XLDnaute Barbatruc

• 22 Août 2010

• #2

Re : masquer des colonnes par macro

Bonjour à tous,

Peux-tu essayer avec :

Code:

Option Explicit

Sub Masque()
Dim X As Byte
For X = 1 To 100
If Cells(9, X) <> "OK/NOK" Then Columns(X).EntireColumn.Hidden = True
Next X
End Sub

A+ à tous

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 22 Août 2010

• #3

Re : masquer des colonnes par macro

Bonjour,

voilà

Code:

Sub Masquer()
     Range("A:A,B:B,C:C,E:E,F:F,G:G,H:H,J:J,K:K,L:L,M:M,O:O").Select
    Selection.EntireColumn.Hidden = True
End Sub
 
 
Sub Afficher()
    Columns("A:P").Select
    Selection.EntireColumn.Hidden = False
End Sub

🙄

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Août 2010

• #4

Re : masquer des colonnes par macro

Bonsoir à tous


Avec un décor non pas de Roger Hart mais de Gilbert (😉 )

Deux en un

Code:

Sub a()
Range("A:A,B:B,C:C,E:E,F:F,G:G,H:H,J:J,K:K,L:L,M:M,O:O").EntireColumn.Hidden = _
Not Range("A:A,B:B,C:C,E:E,F:F,G:G,H:H,J:J,K:K,L:L,M:M,O:O").EntireColumn.Hidden
End Sub

 

Vote positif 0 Vote négatif

T

tite-cel

XLDnaute Occasionnel

• 22 Août 2010

• #5

Re : masquer des colonnes par macro

Re

en fait j'ai autant de colonne que de jours

et il possible d'augmenter le nombre de colonne à cacher, je n'ai pas tout compris dans le code de JCGL et j'aimerai pouvoir réafficher tout aussi en un clic
et que cela remette la mise en forme egalement

je remet le fichier avec toute mes colonnes


merci d'avance

celine

 

Pièces jointes

• Classeur1.xls

  29 KB · Affichages: 65
• Classeur1.xls

  29 KB · Affichages: 73
• Classeur1.xls

  29 KB · Affichages: 69

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 22 Août 2010

• #6

Re : masquer des colonnes par macro

Bonjour à tous,

Ton fichier en retour

A+ à tous

Edition : Salut Gilbert, l'Agrafe

 

Pièces jointes

• JC Masque_Affiche sur OK_NOK.xls

  39 KB · Affichages: 83
• JC Masque_Affiche sur OK_NOK.xls

  39 KB · Affichages: 84
• JC Masque_Affiche sur OK_NOK.xls

  39 KB · Affichages: 78

Dernière édition: 22 Août 2010

Vote positif 0 Vote négatif

T

tite-cel

XLDnaute Occasionnel

• 22 Août 2010

• #7

Re : masquer des colonnes par macro

Re bonsoir


merci a tous de votre rapidité et de votre réactivité , sans vouloir abuser est il possible dans ton code JCGL que lorsque l'on affiche les colonne OK/NOK cela fasse apparaitre la ligne 5 qui est masqué elle set juste à des calculs et la remasquer quand on ré affiche tout


merci tout plein

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 22 Août 2010

• #8

Re : masquer des colonnes par macro

Bonsoir à tous,
pourquoi dans la macro de JC est utilisé Rows(5) comme argument de countA alors que je crois comprendre que c'est le nombre de colonnes qui doit être évalué (autrement dit pourquoi rows et non columns) ?
Il y aquelque chose que je n'ai pas compris...

Sub Masque()
For X = 1 To Application.WorksheetFunction.CountA(Rows(5))
If Cells(9, X) <> "OK/NOK" Then Columns(X).EntireColumn.Hidden = True
Next X
End Sub

Cliquez pour agrandir...

Merci de m'éclairer !

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 22 Août 2010

• #9

Re : masquer des colonnes par macro

Bonjour à tous,

Avec ta dernière demande

A+ à tous

 

Pièces jointes

• JC Masque_Affiche sur OK_NOK.xls

  40 KB · Affichages: 64
• JC Masque_Affiche sur OK_NOK.xls

  40 KB · Affichages: 62
• JC Masque_Affiche sur OK_NOK.xls

  40 KB · Affichages: 68

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 22 Août 2010

• #10

Re : masquer des colonnes par macro

Bonjour à tous,
Salut David,

Code:

For X = 5 To Application.WorksheetFunction.CountA(Rows(5))

Je compte le nombre de valeurs de la ligne 5 (compris entre la colonne 5 et le NBVAL(5:5)

A+ à tous

 

Dernière édition: 22 Août 2010

Vote positif 0 Vote négatif

T

tite-cel

XLDnaute Occasionnel

• 22 Août 2010

• #11

Re : masquer des colonnes par macro

re

apparemment cela ne fonctionne pas sur le dernier jour du mois

je sais je suis casse pied

merci


celine

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 22 Août 2010

• #12

Re : masquer des colonnes par macro

Re,
Ok, si j'ai bien compris, cela te permet donc de régler la valeur maximale de ta boucle en fonction du nombre de cellules non vides de la ligne 5 à partir de la colonne 5 (ce qui remplace le For X = 1 To 100 proposé lors de la 1ère macro).
Merci pour cet éclairage🙂.
A+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 22 Août 2010

• #13

Re : masquer des colonnes par macro

Bonjour à tous,

Exactement... mais comme je commence en colonne cinq, il faut rajouter +5 en fin du COUNTA()

Code:

For X = 5 To Application.WorksheetFunction.CountA(Rows(5)) + 5

Pour avoir la dernière journée...

A+ à tous

 

Pièces jointes

• JC V3 Masque_Affiche sur OK_NOK.xls

  40 KB · Affichages: 53

Vote positif 0 Vote négatif

T

tite-cel

XLDnaute Occasionnel

• 22 Août 2010

• #14

Re : masquer des colonnes par macro

bonsoir


merci de votre aide grâce à vous mon tableau de suivi marche parfaitement
après avoir appris les sommeprod peut être arriverai je a faire quelquechose avec les macros

merci


celine

 

Vote positif 0 Vote négatif

T

tite-cel

XLDnaute Occasionnel

• 24 Août 2010

• #15

Re : masquer des colonnes par macro

Bonsoir

et oui encore moi

j'ai rajoute des colonnes dans mon tableau et du coup la macro ne va pas jusqu'a la fin du mois j 'essai de comprendre la macro mais je n'y arrive pas

Pourrais tu encore m'aider merci d'avance


celine

 

Pièces jointes

• Copie de JC V3 Masque_Affiche sur OK_NOK.xls

  42.5 KB · Affichages: 75

Vote positif 0 Vote négatif