Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle de
C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle de
C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle de
C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle de
C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle de
C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle de
C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Je voudrais afficher uniquement les lignes dont la date est entre celle de
C1 et B1
Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle de
C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Je voudrais afficher uniquement les lignes dont la date est entre celle de
C1 et B1
Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle de
C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Je voudrais afficher uniquement les lignes dont la date est entre celle de
C1 et B1
Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle de
C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Bonjour RThompson,
As-tu essayé le filtre automatique / Personnalisé ?
"rthompson" a écrit dans le message de
groupe de discussion :
Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle de
C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Bonjour RThompson,
As-tu essayé le filtre automatique / Personnalisé ?
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
groupe de discussion : epcrWcpvJHA.924@TK2MSFTNGP03.phx.gbl...
Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle de
C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Bonjour RThompson,
As-tu essayé le filtre automatique / Personnalisé ?
"rthompson" a écrit dans le message de
groupe de discussion :
Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle de
C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle de
C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle de
C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle de
C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
bonjour Rex,
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
If Cells(i, "A") > [C1] Or Cells(i, "A") < [B1] Then Rows(i).Hidden =
True
Next i
End Sub
isabelle
rthompson a écrit :Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle
de C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
bonjour Rex,
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
If Cells(i, "A") > [C1] Or Cells(i, "A") < [B1] Then Rows(i).Hidden =
True
Next i
End Sub
isabelle
rthompson a écrit :
Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle
de C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
bonjour Rex,
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
If Cells(i, "A") > [C1] Or Cells(i, "A") < [B1] Then Rows(i).Hidden =
True
Next i
End Sub
isabelle
rthompson a écrit :Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle
de C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Bonjour,Je voudrais afficher uniquement les lignes dont la date est entre celle
de C1 et B1
'-------------
Sub jj()
Application.ScreenUpdating = False
Range("a5:a" & Cells(Rows.Count, "a").End(3).Row).EntireRow.Hidden = False
For Each c In Range("a5:a" & Cells(Rows.Count, "a").End(3).Row)
If c < [b1] Or c > [c1] Then c.EntireRow.Hidden = True
Next
End Sub
'-----------------
--
Salutations
JJ
"rthompson" a écrit dans le message de
news:Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle
de C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Bonjour,
Je voudrais afficher uniquement les lignes dont la date est entre celle
de C1 et B1
'-------------
Sub jj()
Application.ScreenUpdating = False
Range("a5:a" & Cells(Rows.Count, "a").End(3).Row).EntireRow.Hidden = False
For Each c In Range("a5:a" & Cells(Rows.Count, "a").End(3).Row)
If c < [b1] Or c > [c1] Then c.EntireRow.Hidden = True
Next
End Sub
'-----------------
--
Salutations
JJ
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: epcrWcpvJHA.924@TK2MSFTNGP03.phx.gbl...
Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle
de C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Bonjour,Je voudrais afficher uniquement les lignes dont la date est entre celle
de C1 et B1
'-------------
Sub jj()
Application.ScreenUpdating = False
Range("a5:a" & Cells(Rows.Count, "a").End(3).Row).EntireRow.Hidden = False
For Each c In Range("a5:a" & Cells(Rows.Count, "a").End(3).Row)
If c < [b1] Or c > [c1] Then c.EntireRow.Hidden = True
Next
End Sub
'-----------------
--
Salutations
JJ
"rthompson" a écrit dans le message de
news:Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle
de C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Ta solution me donne le même problème que celle d'Isabelle
Elle cache toutes lignes
Bonjour
Ta solution me donne le même problème que celle d'Isabelle
Elle cache toutes lignes
La solution de Corto fonctionne pour ce que je cherche à faire donc je
prends celle-là
MERCI pour ton aide et à très bientôt
Rex
"Jacky" a écrit dans le message de news:Bonjour,Je voudrais afficher uniquement les lignes dont la date est entre celle
de C1 et B1
'-------------
Sub jj()
Application.ScreenUpdating = False
Range("a5:a" & Cells(Rows.Count, "a").End(3).Row).EntireRow.Hidden =
False
For Each c In Range("a5:a" & Cells(Rows.Count, "a").End(3).Row)
If c < [b1] Or c > [c1] Then c.EntireRow.Hidden = True
Next
End Sub
'-----------------
--
Salutations
JJ
"rthompson" a écrit dans le message de
news:Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle
de C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Ta solution me donne le même problème que celle d'Isabelle
Elle cache toutes lignes
Bonjour
Ta solution me donne le même problème que celle d'Isabelle
Elle cache toutes lignes
La solution de Corto fonctionne pour ce que je cherche à faire donc je
prends celle-là
MERCI pour ton aide et à très bientôt
Rex
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
ukxi4mpvJHA.1536@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je voudrais afficher uniquement les lignes dont la date est entre celle
de C1 et B1
'-------------
Sub jj()
Application.ScreenUpdating = False
Range("a5:a" & Cells(Rows.Count, "a").End(3).Row).EntireRow.Hidden =
False
For Each c In Range("a5:a" & Cells(Rows.Count, "a").End(3).Row)
If c < [b1] Or c > [c1] Then c.EntireRow.Hidden = True
Next
End Sub
'-----------------
--
Salutations
JJ
"rthompson" <roubliemoithompson@softscreen.be> a écrit dans le message de
news: epcrWcpvJHA.924@TK2MSFTNGP03.phx.gbl...
Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle
de C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Ta solution me donne le même problème que celle d'Isabelle
Elle cache toutes lignes
Bonjour
Ta solution me donne le même problème que celle d'Isabelle
Elle cache toutes lignes
La solution de Corto fonctionne pour ce que je cherche à faire donc je
prends celle-là
MERCI pour ton aide et à très bientôt
Rex
"Jacky" a écrit dans le message de news:Bonjour,Je voudrais afficher uniquement les lignes dont la date est entre celle
de C1 et B1
'-------------
Sub jj()
Application.ScreenUpdating = False
Range("a5:a" & Cells(Rows.Count, "a").End(3).Row).EntireRow.Hidden =
False
For Each c In Range("a5:a" & Cells(Rows.Count, "a").End(3).Row)
If c < [b1] Or c > [c1] Then c.EntireRow.Hidden = True
Next
End Sub
'-----------------
--
Salutations
JJ
"rthompson" a écrit dans le message de
news:Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle
de C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Comment fait-il en ce printemp là-bas dans le grand nord
Si je ne me trompe tu es de l'autre côté de la grande eau, non?
Comment fait-il en ce printemp là-bas dans le grand nord
Si je ne me trompe tu es de l'autre côté de la grande eau, non?
Comment fait-il en ce printemp là-bas dans le grand nord
Si je ne me trompe tu es de l'autre côté de la grande eau, non?
Bonjour
C'est bizarre
Quand je lance ta macro elle cache toutes les lignes de 5 à 50
Je suis curieux par nature
donc aussitôt que j'ai le temps je vais voire ce qui s'y passe
Mais en attendant et comme je suis pressé
Je prends la solution de Corto qui fonctionne nickel
A bientôt et MERCI
PS
Comment fait-il en ce printemp là-bas dans le grand nord
Si je ne me trompe tu es de l'autre côté de la grande eau, non?
Rex
"isabelle" a écrit dans le message de news:bonjour Rex,
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
If Cells(i, "A") > [C1] Or Cells(i, "A") < [B1] Then Rows(i).Hidden =
True
Next i
End Sub
isabelle
rthompson a écrit :Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle
de C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Bonjour
C'est bizarre
Quand je lance ta macro elle cache toutes les lignes de 5 à 50
Je suis curieux par nature
donc aussitôt que j'ai le temps je vais voire ce qui s'y passe
Mais en attendant et comme je suis pressé
Je prends la solution de Corto qui fonctionne nickel
A bientôt et MERCI
PS
Comment fait-il en ce printemp là-bas dans le grand nord
Si je ne me trompe tu es de l'autre côté de la grande eau, non?
Rex
"isabelle" <i@v> a écrit dans le message de news:
OCOKMjpvJHA.5672@TK2MSFTNGP06.phx.gbl...
bonjour Rex,
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
If Cells(i, "A") > [C1] Or Cells(i, "A") < [B1] Then Rows(i).Hidden =
True
Next i
End Sub
isabelle
rthompson a écrit :
Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle
de C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex
Bonjour
C'est bizarre
Quand je lance ta macro elle cache toutes les lignes de 5 à 50
Je suis curieux par nature
donc aussitôt que j'ai le temps je vais voire ce qui s'y passe
Mais en attendant et comme je suis pressé
Je prends la solution de Corto qui fonctionne nickel
A bientôt et MERCI
PS
Comment fait-il en ce printemp là-bas dans le grand nord
Si je ne me trompe tu es de l'autre côté de la grande eau, non?
Rex
"isabelle" a écrit dans le message de news:bonjour Rex,
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
If Cells(i, "A") > [C1] Or Cells(i, "A") < [B1] Then Rows(i).Hidden =
True
Next i
End Sub
isabelle
rthompson a écrit :Bonjour à toutes et tous
En B1 j'ai une date (21/2/2009)
En C1 j'ai une date postérieure à celle de B1 (15/3/2009)
De ma ligne 5 jusqu'à xxxxxxx dans la colonne A j'ai des dates
Je voudrais afficher uniquement les lignes dont la date est entre celle
de C1 et B1
Donc j'utilise ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Rows(i).Hidden = (Cells(i, "A") < [B1])
Next i
End Sub
Il me cache celles qui sont antérieures à B1
Mais pas celles qui sont postérieures à C1
MAIS
Si j'utilise uniquement ce code-ci
Sub Periode_Visible()
Application.ScreenUpdating = False
For i = 5 To 50
Rows(i).Hidden = (Cells(i, "A") > [C1])
Next i
End Sub
Alors il me cache celles qui sont postérieures à C1
Et je n'y comprends rien
D'avance un grand merci
A bientôt
Rex