Masquer Ligne en VB

[Goose]

Bonjour à tous,
voici un code que j'aimerai adapter a des colonnes (G:K)
sachant que le "2" est toujours positionné en ligne 1 des ces colonnes

Sub Masquer()
Application.ScreenUpdating = False
Dim c As Range
For Each c In Range("J10:J84")
If c.Value = "2" Then
    c.EntireRow.Hidden = True
End If
Next
Range("D6").Select
Application.ScreenUpdating = True
End Sub

possible ou pas ?
merci par avance
Salut

 

[Efgé]

Re : Masquer Ligne en VB

Bonjour Goose,
Je n'ai peut être pas compris mais, si le "2" est toujours en ligne 1 des colonnes, il suffit de masquer la ligne 1 du tableau.
A moins qu'avec un fichier exemple votre demande s'éclaircisse?
Cordialement

 

[Papou-net]

Re : Masquer Ligne en VB

Bonjour Goose,

Oui bien sûr, c'est possible en modifiant ta ligne ainsi :

For Each c In Range("G:K")

Mais attention, ta macro risque de prendre son temps.

Espérant avoir répondu.

Cordialement.

 

[Goose]

Re : Masquer Ligne en VB

bjr Papou-net et Efgé,

effectivement, sa rame un peu !!

ne peut on pas insérer une ligne de type

Columns("G:K").Hidden = True

????

 

[Papou-net]

Re : Masquer Ligne en VB

bjr Papou-net et Efgé,

effectivement, sa rame un peu !!

ne peut on pas insérer une ligne de type

Columns("G:K").Hidden = True

????

Si bien sûr ! Pourquoi n'as-tu pas essayé ?
Mais là, on dérive de la demande première qui consistait à masquer des lignes.

Cordialement.

 

[Goose]

Re : Masquer Ligne en VB

si mais avec le code:

Sub masquer_Ligne()
Application.ScreenUpdating = False
For Each c In Columns("G:K")
If c.Value = "2" Then
    c.EntireRow.Hidden = True
End If
Next
Range("D1").Select
Application.ScreenUpdating = True
End Sub

ça bug en >>> If c.Value = "2" Then
!!!
je vais vous faire un exemple
salut

 

[Efgé]

Re : Masquer Ligne en VB

Bonjour,
Voici un exemple, si j'ai bien comptris...
Cordialement

 

[Goose]

Re : Masquer Ligne en VB

MErci Efgé mais ton exemple masque des lignes et non des colonnes !!
ci-joint un exemple
Salut

 

[Papou-net]

Re : Masquer Ligne en VB

MErci Efgé mais ton exemple masque des lignes et non des colonnes !!
ci-joint un exemple
Salut

Bonjour Goose, Efgé,

Goose, je pense que tu atteindras ton but en modifiant ton code ainsi :

Sub masquer_Ligne()
Application.ScreenUpdating = False

For Each c In Columns("G:K")
If Cells(1, c.Column) = "2" Then
    c.EntireColumn.Hidden = True
End If
Next
Range("D1").Select
Application.ScreenUpdating = True
End Sub

Espérant avoir résolu.

Cordialement.

 

[Goose]

Re : Masquer Ligne en VB

Excel...lant Papou-net !!
tout à fait ça
merci et @+

 

[Efgé]

Re : Masquer Ligne en VB

MErci Efgé mais ton exemple masque des lignes et non des colonnes !!

Euhhh, l'intitulé du fil était bien "Masquer Ligne en VB" non ?
Cordialement

 

[Goose]

Re : Masquer Ligne en VB

autant pour moi...il y a eu un bug dans l'intitulé !!
pas grave !!...l'essentiel c'est de m'avoir aidé !!
Salut