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
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
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
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
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
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+
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