Discussion :

[patatelea]

Bonjour,
Je souhaite masquer une ligne automatiquement si le résultat dans la colone B = dimanche ceci de facon limiter dans un tableau de 6 colonnes et d'environ 45 lignes.
Merci d'avance car je galère

[Gorfael]

Salut patatelea et le forum

colone B = dimanche

Pas assez de données pour faire quelque chose : comment tu obtiens dimanche ? du texte ? une date ?
Ce sera obligatoirement par macro : comment on la lance ?
A+

[patatelea]

ben voila ce que j'ai trouvé qui peu correspondre a mon besoin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, 4) = 0 Then Rows(i).RowHeight = 0
 
Next

mais je ne sais pas ecrire une macro et de plus ceci n'est pas limite dans le nombre de ligne et de colonne.
Pour info dimanche on l'obtient en effet par une date
@+ patou

[YANN-56]

Bonsoir,

Tu peux aussi faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Worksheets("Feuil1").Rows("2:3").EntireRow.Hidden 
'Pour masquer les lignes 3 et 4
Ou 
Worksheets("Feuil1").Rows("1:1").EntireRow.Hidden 
'Pour masquer que la ligne 1

Tu remplaces feuil1 par ActiveSheet, au besoin.

Bonne fin de soirée

Yann

[LeForestier]

Bonjour,
Si tu teste par une date...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CacheDimanche()
Dim Lig As Long
    For Lig = 2 To Range("B65536").End(xlUp).Row
        'Le 1 dépend de la configuration de ton PC,ça pourrait être 7 ou autre
        If Weekday(Cells(Lig, 2)) = 1 Then
            Rows(Lig).Hidden = True
        End If
    Next Lig
End Sub
 
Sub RemetTout()
    ActiveSheet.UsedRange.Rows.Hidden = False
End Sub

A+