Macro Afficher/Masquer des colones en fonction d'une cellule

L

Ladoo

XLDnaute Nouveau

• 12 Mai 2011

• #2

Re : Macro Afficher/Masquer des colones en fonction d'une cellule

for i=2 to 7
if cells(8,i).value<>"OUI" Then
Columns(i).Hidden = True
end if
next

Je n'ai pas compris votre deuxième étape...sûrement l'heure d'aller manger. A moins que :

for i=2 to 7
if cells(8,i).value <>"OUI" and cells(9,i)<=0 Then
Columns(i).Hidden = true
end if
next

J'ai un clavier QWERTZ, il y a des accents...

 

Dernière édition: 12 Mai 2011

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 12 Mai 2011

• #3

Re : Macro Afficher/Masquer des colones en fonction d'une cellule

Salut jeremy et le forum
Une proposition

Code:

Sub Test()
Dim X As Integer
For X = 2 To Cells(7, Columns.Count).End(xlToLeft).Column
    If Cells(8, X) = "OUI" And Cells(9, X) > 0 Then
        Columns(X).Hidden = False
    Else
        Columns(X).Hidden = True
    End If
Next
End Sub
'---------------------------------------------------------------------
Sub essai()
Columns.Hidden = False
End Sub

j'aimerai pouvoir afficher les colonnes contenant OUI en ligne 8 et un chiffre supérieur a 0 en ligne 9. => test
Essai ne sert qu'à réafficher toutes les colonnes masquées.
A+

 

Vote positif 0 Vote négatif

J

jeremy

XLDnaute Nouveau

• 12 Mai 2011

• #4

Re : Macro Afficher/Masquer des colones en fonction d'une cellule

Merci pour votre aide...

Lorsque je l'insere dans mon fichier la macro ne demarre pas...

Savez vous si j ai fais une erreur en l inserant ?

 

Pièces jointes

• test2.xls

  28.5 KB · Affichages: 69
• test2.xls

  28.5 KB · Affichages: 75
• test2.xls

  28.5 KB · Affichages: 71

Vote positif 0 Vote négatif

L

Ladoo

XLDnaute Nouveau

• 12 Mai 2011

• #5

Re : Macro Afficher/Masquer des colones en fonction d'une cellule

Voilà.
je pense que ça marche maintenant.

 

Pièces jointes

• test2(1).xls

  30.5 KB · Affichages: 116
• test2(1).xls

  30.5 KB · Affichages: 115
• test2(1).xls

  30.5 KB · Affichages: 108

Vote positif 0 Vote négatif

J

jeremy

XLDnaute Nouveau

• 12 Mai 2011

• #6

Re : Macro Afficher/Masquer des colones en fonction d'une cellule

J'ai tester avec le code suivant et ca a l'air de marcher :

Option Explicit
Dim X As Byte

Sub Masque()
For X = 2 To Application.WorksheetFunction.CountA(Rows(8))
If Cells(8, X) <> "NON" Then Columns(X).EntireColumn.Hidden = True
Next X
End Sub

Sub Affiche()
For X = 2 To Application.WorksheetFunction.CountA(Rows(8))
Columns(X).EntireColumn.Hidden = False
Next X
End Sub

Cliquez pour agrandir...

Par contre savez vous comment je pourrai appliquer cette macro a plusieurs feuille
(Pas toutes les feulles)

Voici mon ex ou la macro ne fonctionne que sur la Feuille 1

 

Pièces jointes

• test3.xls

  35.5 KB · Affichages: 86
• test3.xls

  35.5 KB · Affichages: 92
• test3.xls

  35.5 KB · Affichages: 88

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 13 Mai 2011

• #7

Re : Macro Afficher/Masquer des colones en fonction d'une cellule

Salut jeremy et le forum

Par contre savez vous comment je pourrai appliquer cette macro a plusieurs feuille
(Pas toutes les feulles)

Cliquez pour agrandir...

Ta macro s'applique uniquement sur la feuille active, quelle qu'elle soit.
Si tu veux qu'elle s'applique sur plusieurs feuilles, il faut le lui dire. Mais avec aussi peu de renseignements...
Peut-être en faisant une boucles "for each F in sheets", avec un discriminateur "if F.range("A9")="EN STOCK" then"
A+

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 13 Mai 2011

• #8

Re : Macro Afficher/Masquer des colones en fonction d'une cellule

Bonjour,

un autre exemple.

 

Pièces jointes

• AfficherCacherColonnes.xls

  43.5 KB · Affichages: 137

Vote positif 0 Vote négatif

J

jeremy

XLDnaute Nouveau

• 26 Mai 2011

• #9

Re : Macro Afficher/Masquer des colones en fonction d'une cellule

Fo_rum à dit:

Bonjour,

un autre exemple.

Cliquez pour agrandir...

Merci bcp je vais tester ca....

 

Vote positif 0 Vote négatif