Selection période congès

Salut Gilles,

Je suis à la recherche de formules me selectionnant en fonction de la date
du jour (26/8/2003):
...

Une formule ne sélectionne rien : elle retourne un résultat en fonction de
calculs sur d'autres cellules/noms.

Qu'est-ce que tu entends par 'sélectionner'? Mettre en évidence? Faire un
calcul sur ces dates?

Précise ta demande et je pourrais t'aider.

Salutations,

Daniel M.

Bonjour Gilles,


à copier dans un module standard, et remplace le nom de la feuille de la procédure par celle de ton application.

'---------------------------
Sub SelectDate()

Dim Rg As Range, A As Long, B As Long
Dim DateDebut As Long, DateFin As Long

'Dateserial = année,mois,jour
DateDebut = DateSerial(2003, 12, 1)
DateFin = DateSerial(2003, 9, 15)

On Error Resume Next
With Worksheets("Feuil1")
Set Rg = .Range("A1:A" & .Range("A65356").End(xlUp).Row)
A = Application.Match(DateDebut, Rg, 0)
B = Application.Match(DateFin, Rg, 0)
If A <> 0 And B <> 0 Then
.Range("A" & A & ":A" & B).Select
'Selectionne ligne au complet
'.Range("A" & A & ":A" & B).EntireRow.Select
Else
MsgBox "Au moins une des dates est à l'extérieur" & vbCrLf & _
"de la plage des valeurs ""date.""", vbInformation + vbOKOnly, "Attention"
End If
End With

End Sub
'---------------------------


Salutations!

"Gilse" <gil.34@laposte.cet> a écrit dans le message de news:eAnRh76aDHA.1272@TK2MSFTNGP12.phx.gbl...
Bonjour à tous
Dans ma colonne A j'ai saisi tous les jours du 1/1/2001 au 31/12/2013.
Je suis à la recherche de formules me selectionnant en fonction de la date
du jour (26/8/2003)
-les lignes de la période des congès annuel (donc du 1/6/2003 au 31/5/2004)
-les lignes de la période scolaire (donc du 1/9/2003 au 30/6/2004)
bien sur au changement de l'année de la date du jour (1/1/2004) ces 2
selections ne changent pas
-les lignes de l'année en cours (donc du 1/1/2003 au 31/12/2003)
Merci de votre aide
Gilles

Bonjour michel
Merci de ton aide et te tiens au courant pour la mise en place de ta
solution
Gilles

"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23Lt2hH9aDHA.1832@TK2MSFTNGP10.phx.gbl...

Bonjour Gilles,


à copier dans un module standard, et remplace le nom de la feuille de la
procédure par celle de ton application.

'---------------------------
Sub SelectDate()

Dim Rg As Range, A As Long, B As Long
Dim DateDebut As Long, DateFin As Long

'Dateserial = année,mois,jour
DateDebut = DateSerial(2003, 12, 1)
DateFin = DateSerial(2003, 9, 15)

On Error Resume Next
With Worksheets("Feuil1")
Set Rg = .Range("A1:A" & .Range("A65356").End(xlUp).Row)
A = Application.Match(DateDebut, Rg, 0)
B = Application.Match(DateFin, Rg, 0)
If A <> 0 And B <> 0 Then
.Range("A" & A & ":A" & B).Select
'Selectionne ligne au complet
'.Range("A" & A & ":A" & B).EntireRow.Select
Else
MsgBox "Au moins une des dates est à l'extérieur" & vbCrLf & _
"de la plage des valeurs ""date.""", vbInformation + vbOKOnly,
"Attention"

End If
End With

End Sub
'---------------------------


Salutations!

"Gilse" <gil.34@laposte.cet> a écrit dans le message de
news:eAnRh76aDHA.1272@TK2MSFTNGP12.phx.gbl...

Bonjour à tous
Dans ma colonne A j'ai saisi tous les jours du 1/1/2001 au 31/12/2013.
Je suis à la recherche de formules me selectionnant en fonction de la date
du jour (26/8/2003)
-les lignes de la période des congès annuel (donc du 1/6/2003 au
31/5/2004)

-les lignes de la période scolaire (donc du 1/9/2003 au 30/6/2004)
bien sur au changement de l'année de la date du jour (1/1/2004) ces 2
selections ne changent pas
-les lignes de l'année en cours (donc du 1/1/2003 au 31/12/2003)
Merci de votre aide
Gilles