Bonjour,
Tout d'abord merci de votre aide.
Mon pb est le suivant, j'ai un fichier excel ou j'aimerais que les lignes se masque automatiquement si :
D'un part les donnés de la colonne J sont égal à zéro
et ensuite si les donnés de la colonne H sont inférieurs à la date du jour +30 jours.
Pour le moment j'ai essayer de créer deux codes distincts mais le premier veux pas fonctionner :
Sub Masque_lig() ' masque les lignes ou la valeur dans les cellules de la colonne j sont =0
Dim cellule As Range
For Each cellule In Range("j5:j3000")
If cellule.Value > 0 Then cellule.EntireRow.Hidden = True
Next cellule
End Sub
Et l'autre
Sub Masque_lig2() ' masque les lignes ou la valeur dans les cellules de la colonne h sont < a la date du jour +30
Dim cellule As Range
For Each cellule In Range("h5:h500")
If cellule.Value > Now + 30 Then cellule.EntireRow.Hidden = True
Next cellule
End Sub
Mais les deux ne veulent pas fonctionner ensemble.
Pourriez vous m'aider?
Par avance merci
Tout d'abord merci de votre aide.
Mon pb est le suivant, j'ai un fichier excel ou j'aimerais que les lignes se masque automatiquement si :
D'un part les donnés de la colonne J sont égal à zéro
et ensuite si les donnés de la colonne H sont inférieurs à la date du jour +30 jours.
Pour le moment j'ai essayer de créer deux codes distincts mais le premier veux pas fonctionner :
Sub Masque_lig() ' masque les lignes ou la valeur dans les cellules de la colonne j sont =0
Dim cellule As Range
For Each cellule In Range("j5:j3000")
If cellule.Value > 0 Then cellule.EntireRow.Hidden = True
Next cellule
End Sub
Et l'autre
Sub Masque_lig2() ' masque les lignes ou la valeur dans les cellules de la colonne h sont < a la date du jour +30
Dim cellule As Range
For Each cellule In Range("h5:h500")
If cellule.Value > Now + 30 Then cellule.EntireRow.Hidden = True
Next cellule
End Sub
Mais les deux ne veulent pas fonctionner ensemble.
Pourriez vous m'aider?
Par avance merci