Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
Bonjour,
Voici un exemple si tes dates sont en colonne A de la feuil1.
Il n'y a pas de gestion d'erreur à la procédure. Si la date saisie n'est pas bonne, c'est évident que cela va générer une erreur!
'------------------------------------ Sub test1()
Dim Rg As Range Dim DateDébut As Date Dim DateFin As Date '10/01/2013 au 23/01/2013 'Dateserial(année,mois,jour) DateDébut = DateSerial(2013, 1, 10) DateFin = DateSerial(2013, 1, 23)
With Worksheets("Feuil1") 'Nom feuille à adapter Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row) x = Application.Match(CLng(DateDébut), Rg, 0) y = Application.Match(CLng(DateFin), Rg, 0) Set Plg = .Range("A" & x & ":A" & y) End With MsgBox "L'adresse de la plage recherchée est : " & Plg.Address
Voici un exemple si tes dates sont en colonne A
de la feuil1.
Il n'y a pas de gestion d'erreur à la procédure. Si
la date saisie n'est pas bonne, c'est évident que cela
va générer une erreur!
'------------------------------------
Sub test1()
Dim Rg As Range
Dim DateDébut As Date
Dim DateFin As Date
'10/01/2013 au 23/01/2013
'Dateserial(année,mois,jour)
DateDébut = DateSerial(2013, 1, 10)
DateFin = DateSerial(2013, 1, 23)
With Worksheets("Feuil1") 'Nom feuille à adapter
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
x = Application.Match(CLng(DateDébut), Rg, 0)
y = Application.Match(CLng(DateFin), Rg, 0)
Set Plg = .Range("A" & x & ":A" & y)
End With
MsgBox "L'adresse de la plage recherchée est : " & Plg.Address
Voici un exemple si tes dates sont en colonne A de la feuil1.
Il n'y a pas de gestion d'erreur à la procédure. Si la date saisie n'est pas bonne, c'est évident que cela va générer une erreur!
'------------------------------------ Sub test1()
Dim Rg As Range Dim DateDébut As Date Dim DateFin As Date '10/01/2013 au 23/01/2013 'Dateserial(année,mois,jour) DateDébut = DateSerial(2013, 1, 10) DateFin = DateSerial(2013, 1, 23)
With Worksheets("Feuil1") 'Nom feuille à adapter Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row) x = Application.Match(CLng(DateDébut), Rg, 0) y = Application.Match(CLng(DateFin), Rg, 0) Set Plg = .Range("A" & x & ":A" & y) End With MsgBox "L'adresse de la plage recherchée est : " & Plg.Address
On Mon, 15 Apr 2013 13:40:55 -0400, "MichD" wrote:
Bonjour,
Voici un exemple si tes dates sont en colonne A de la feuil1.
Il n'y a pas de gestion d'erreur à la procédure. Si la date saisie n'est pas bonne, c'est évident que cela va générer une erreur!
'------------------------------------ Sub test1()
Dim Rg As Range Dim DateDébut As Date Dim DateFin As Date '10/01/2013 au 23/01/2013 'Dateserial(année,mois,jour) DateDébut = DateSerial(2013, 1, 10) DateFin = DateSerial(2013, 1, 23)
With Worksheets("Feuil1") 'Nom feuille à adapter Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row) x = Application.Match(CLng(DateDébut), Rg, 0) y = Application.Match(CLng(DateFin), Rg, 0) Set Plg = .Range("A" & x & ":A" & y) End With MsgBox "L'adresse de la plage recherchée est : " & Plg.Address
On Mon, 15 Apr 2013 13:40:55 -0400, "MichD" <michdenis@hotmail.com>
wrote:
Bonjour,
Voici un exemple si tes dates sont en colonne A
de la feuil1.
Il n'y a pas de gestion d'erreur à la procédure. Si
la date saisie n'est pas bonne, c'est évident que cela
va générer une erreur!
'------------------------------------
Sub test1()
Dim Rg As Range
Dim DateDébut As Date
Dim DateFin As Date
'10/01/2013 au 23/01/2013
'Dateserial(année,mois,jour)
DateDébut = DateSerial(2013, 1, 10)
DateFin = DateSerial(2013, 1, 23)
With Worksheets("Feuil1") 'Nom feuille à adapter
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
x = Application.Match(CLng(DateDébut), Rg, 0)
y = Application.Match(CLng(DateFin), Rg, 0)
Set Plg = .Range("A" & x & ":A" & y)
End With
MsgBox "L'adresse de la plage recherchée est : " & Plg.Address
On Mon, 15 Apr 2013 13:40:55 -0400, "MichD" wrote:
Bonjour,
Voici un exemple si tes dates sont en colonne A de la feuil1.
Il n'y a pas de gestion d'erreur à la procédure. Si la date saisie n'est pas bonne, c'est évident que cela va générer une erreur!
'------------------------------------ Sub test1()
Dim Rg As Range Dim DateDébut As Date Dim DateFin As Date '10/01/2013 au 23/01/2013 'Dateserial(année,mois,jour) DateDébut = DateSerial(2013, 1, 10) DateFin = DateSerial(2013, 1, 23)
With Worksheets("Feuil1") 'Nom feuille à adapter Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row) x = Application.Match(CLng(DateDébut), Rg, 0) y = Application.Match(CLng(DateFin), Rg, 0) Set Plg = .Range("A" & x & ":A" & y) End With MsgBox "L'adresse de la plage recherchée est : " & Plg.Address
On Mon, 15 Apr 2013 20:22:31 +0200, Baton .rouge wrote:
On Mon, 15 Apr 2013 13:40:55 -0400, "MichD" wrote:
Bonjour,
Voici un exemple si tes dates sont en colonne A de la feuil1.
Il n'y a pas de gestion d'erreur à la procédure. Si la date saisie n'est pas bonne, c'est évident que cela va générer une erreur!
'------------------------------------ Sub test1()
Dim Rg As Range Dim DateDébut As Date Dim DateFin As Date '10/01/2013 au 23/01/2013 'Dateserial(année,mois,jour) DateDébut = DateSerial(2013, 1, 10) DateFin = DateSerial(2013, 1, 23)
With Worksheets("Feuil1") 'Nom feuille à adapter Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row) x = Application.Match(CLng(DateDébut), Rg, 0) y = Application.Match(CLng(DateFin), Rg, 0) Set Plg = .Range("A" & x & ":A" & y) End With MsgBox "L'adresse de la plage recherchée est : " & Plg.Address
http://groupes.codes-sources.com/article-date-lundi-fonction-semaine-153599.aspx Function LUNDI(annee As Integer, NumSemaine As Integer) As Double 'mpfe B Mazas 'retourne la date du lundi de la semaine n° "NumSemaine" (ISO) de l 'année "Annee"
Dim PremierJour As Date
PremierJour = DateSerial(annee, 1, 1) If Weekday(PremierJour) = 6 Or Weekday(PremierJour) = 7 Then 'si le 1er janvier tombe un vendredi ou un samedi
On Mon, 15 Apr 2013 13:40:55 -0400, "MichD" <michdenis@hotmail.com>
wrote:
Bonjour,
Voici un exemple si tes dates sont en colonne A
de la feuil1.
Il n'y a pas de gestion d'erreur à la procédure. Si
la date saisie n'est pas bonne, c'est évident que cela
va générer une erreur!
'------------------------------------
Sub test1()
Dim Rg As Range
Dim DateDébut As Date
Dim DateFin As Date
'10/01/2013 au 23/01/2013
'Dateserial(année,mois,jour)
DateDébut = DateSerial(2013, 1, 10)
DateFin = DateSerial(2013, 1, 23)
With Worksheets("Feuil1") 'Nom feuille à adapter
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
x = Application.Match(CLng(DateDébut), Rg, 0)
y = Application.Match(CLng(DateFin), Rg, 0)
Set Plg = .Range("A" & x & ":A" & y)
End With
MsgBox "L'adresse de la plage recherchée est : " & Plg.Address
http://groupes.codes-sources.com/article-date-lundi-fonction-semaine-153599.aspx
Function LUNDI(annee As Integer, NumSemaine As Integer) As Double
'mpfe B Mazas
'retourne la date du lundi de la semaine n° "NumSemaine" (ISO) de l
'année
"Annee"
Dim PremierJour As Date
PremierJour = DateSerial(annee, 1, 1)
If Weekday(PremierJour) = 6 Or Weekday(PremierJour) = 7 Then
'si le 1er janvier tombe un vendredi ou un samedi
On Mon, 15 Apr 2013 20:22:31 +0200, Baton .rouge wrote:
On Mon, 15 Apr 2013 13:40:55 -0400, "MichD" wrote:
Bonjour,
Voici un exemple si tes dates sont en colonne A de la feuil1.
Il n'y a pas de gestion d'erreur à la procédure. Si la date saisie n'est pas bonne, c'est évident que cela va générer une erreur!
'------------------------------------ Sub test1()
Dim Rg As Range Dim DateDébut As Date Dim DateFin As Date '10/01/2013 au 23/01/2013 'Dateserial(année,mois,jour) DateDébut = DateSerial(2013, 1, 10) DateFin = DateSerial(2013, 1, 23)
With Worksheets("Feuil1") 'Nom feuille à adapter Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row) x = Application.Match(CLng(DateDébut), Rg, 0) y = Application.Match(CLng(DateFin), Rg, 0) Set Plg = .Range("A" & x & ":A" & y) End With MsgBox "L'adresse de la plage recherchée est : " & Plg.Address
http://groupes.codes-sources.com/article-date-lundi-fonction-semaine-153599.aspx Function LUNDI(annee As Integer, NumSemaine As Integer) As Double 'mpfe B Mazas 'retourne la date du lundi de la semaine n° "NumSemaine" (ISO) de l 'année "Annee"
Dim PremierJour As Date
PremierJour = DateSerial(annee, 1, 1) If Weekday(PremierJour) = 6 Or Weekday(PremierJour) = 7 Then 'si le 1er janvier tombe un vendredi ou un samedi
PremierJour = PremierJour - Weekday(PremierJour) - 5 End If LUNDI = PremierJour + 7 * NumSemaine End Function
Baton .rouge
On Mon, 15 Apr 2013 20:22:31 +0200, Baton .rouge wrote:
On Mon, 15 Apr 2013 13:40:55 -0400, "MichD" wrote:
Bonjour,
Voici un exemple si tes dates sont en colonne A de la feuil1.
Il n'y a pas de gestion d'erreur à la procédure. Si la date saisie n'est pas bonne, c'est évident que cela va générer une erreur!
'------------------------------------ Sub test1()
Dim Rg As Range Dim DateDébut As Date Dim DateFin As Date '10/01/2013 au 23/01/2013 'Dateserial(année,mois,jour) DateDébut = DateSerial(2013, 1, 10) DateFin = DateSerial(2013, 1, 23)
With Worksheets("Feuil1") 'Nom feuille à adapter Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row) x = Application.Match(CLng(DateDébut), Rg, 0) y = Application.Match(CLng(DateFin), Rg, 0) Set Plg = .Range("A" & x & ":A" & y) End With MsgBox "L'adresse de la plage recherchée est : " & Plg.Address
On Mon, 15 Apr 2013 13:40:55 -0400, "MichD" <michdenis@hotmail.com>
wrote:
Bonjour,
Voici un exemple si tes dates sont en colonne A
de la feuil1.
Il n'y a pas de gestion d'erreur à la procédure. Si
la date saisie n'est pas bonne, c'est évident que cela
va générer une erreur!
'------------------------------------
Sub test1()
Dim Rg As Range
Dim DateDébut As Date
Dim DateFin As Date
'10/01/2013 au 23/01/2013
'Dateserial(année,mois,jour)
DateDébut = DateSerial(2013, 1, 10)
DateFin = DateSerial(2013, 1, 23)
With Worksheets("Feuil1") 'Nom feuille à adapter
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
x = Application.Match(CLng(DateDébut), Rg, 0)
y = Application.Match(CLng(DateFin), Rg, 0)
Set Plg = .Range("A" & x & ":A" & y)
End With
MsgBox "L'adresse de la plage recherchée est : " & Plg.Address
On Mon, 15 Apr 2013 20:22:31 +0200, Baton .rouge wrote:
On Mon, 15 Apr 2013 13:40:55 -0400, "MichD" wrote:
Bonjour,
Voici un exemple si tes dates sont en colonne A de la feuil1.
Il n'y a pas de gestion d'erreur à la procédure. Si la date saisie n'est pas bonne, c'est évident que cela va générer une erreur!
'------------------------------------ Sub test1()
Dim Rg As Range Dim DateDébut As Date Dim DateFin As Date '10/01/2013 au 23/01/2013 'Dateserial(année,mois,jour) DateDébut = DateSerial(2013, 1, 10) DateFin = DateSerial(2013, 1, 23)
With Worksheets("Feuil1") 'Nom feuille à adapter Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row) x = Application.Match(CLng(DateDébut), Rg, 0) y = Application.Match(CLng(DateFin), Rg, 0) Set Plg = .Range("A" & x & ":A" & y) End With MsgBox "L'adresse de la plage recherchée est : " & Plg.Address