Masquer une ou des lignes si mois suivant !

[WDAndCo]

Bonjour le Forum

Comment masquer automatiquement une ou des lignes si celles ci sont du mois suivant voir copie d'écran jointe.
Soit dans l'exemple masquer la ligne 43, les dates sont en colonne A au format JJ
Soit un tableau de 31 lignes comment masquer celle qui ferons references au mois suivant.

D'avance merci.

 

[job75]

Re : Masquer une ou des lignes si mois suivant !

Bonjour,

602 posts et vous n'avez pas compris qu'une copie d'écran ne fournit pas toutes les informations.

Et ne permet pas de tester.

A+

 

[Staple1600]

Re : Masquer une ou des lignes si mois suivant !

Bonsoir à tous


Job75
Il est des conseils qui restent lettres mortes...
https://www.excel-downloads.com/threads/aide-pour-une-macro.216226/
Espérons que le tien aura plus de succès que le mien

 

[job75]

Re : Masquer une ou des lignes si mois suivant !

Bonjour Jean-Marie,

Puisque notre ami ne veut pas donner de fichier, travaillons pour les autres.

Normalement dans ce genre de problème il y a une cellule, disons A2, qui indique le mois.

Avec par exemple en A13 la formule :

=DATE(ANNEE(A$2);MOIS(A$2);LIGNES(A$13:A13))

On pourra alors mettre cette macro dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte
If Target.Address = "$A$2" Then
  For i = 41 To 43
    Rows(i).Hidden = Day(Cells(i, 1)) < 4
  Next
End If
End Sub

A+

 

[WDAndCo]

Re : Masquer une ou des lignes si mois suivant !

Bonjour le Forum

Voici le fichier tant attendu !

 

[job75]

Re : Masquer une ou des lignes si mois suivant !

Re,

Mieux vaut tard que jamais

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte
If Target.Address = "$AO$5" Then
  For i = 41 To 43
    Rows(i).Hidden = Day(Cells(i, 1)) < 4
  Next
End If
End Sub

A+

 

[WDAndCo]

Re : Masquer une ou des lignes si mois suivant !

Bonjour le Forum et merci job75

je ne comprends pas ce code : Rows(i).Hidden = Day(Cells(i, 1)) < 4

 

[job75]

Re : Masquer une ou des lignes si mois suivant !

Re,

Day(Cells(i, 1)) < 4 renvoie True (la ligne se masque) Or False (la ligne s'affiche) .

A+

 

[WDAndCo]

Re : Masquer une ou des lignes si mois suivant !

Re et merci, j'ai pensé à cela qui est plus parlant pour moi : Rows(i).Hidden = Month(Cells(i, 3)) <> Month(Cells(7, 59))

J'ai un autre problème, s’était une feuille mensuelle, mais j'ai des feuilles du 1er au 15 et une autre du 16 à la fin du mois. donc 16 lignes.

Comment adapter ce code ?

D'avance merci

 

[job75]

Re : Masquer une ou des lignes si mois suivant !

Re,

Ras le bol, vous ne comprendrez donc jamais le b a ba de XLD .

A+