Masquer une ou des lignes si mois suivant !

job75

XLDnaute Barbatruc

• 14 Avril 2014

• #2

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+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Avril 2014

• #3

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Avril 2014

• #4

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 :

Code:

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

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

Code:

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+

 

Vote positif 0 Vote négatif

WDAndCo

XLDnaute Impliqué

• 15 Avril 2014

• #5

Re : Masquer une ou des lignes si mois suivant !

Bonjour le Forum

Voici le fichier tant attendu !

 

Pièces jointes

• MENSUEL Vierge 2.xls

  46.5 KB · Affichages: 27

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Avril 2014

• #6

Re : Masquer une ou des lignes si mois suivant !

Re,

Mieux vaut tard que jamais

Code:

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+

 

Vote positif 0 Vote négatif

WDAndCo

XLDnaute Impliqué

• 15 Avril 2014

• #7

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Avril 2014

• #8

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+

 

Vote positif 0 Vote négatif

WDAndCo

XLDnaute Impliqué

• 15 Avril 2014

• #9

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Avril 2014

• #10

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+

 

Vote positif 0 Vote négatif