Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Macro pour générer colonne Date et Heure

Macro pour générer colonne Date et Heure

28 réponses
Avatar
Christophe Joly
Bonsoir:



Je cherche de l'aide pour creer une macro qui permettrait grace à une input
box demandant 5 variables

1- date Début

2- date Fin

3- Heure Début

4- Heure Fin

3- Incrément Heure



de générer une colonne Date/Heure



Par exemple en rentant:

1- 6/17/03

2- 6/19/03

3- 9:00 AM

4- 6:00PM

5- 30 mn



Je veux génerer

6/17/03 9:00 AM

6/17/03 9:30 AM

6/17/03 10:00 AM

6/17/03 10:30 AM

6/17/03 11:00 AM

6/17/03 11:30 AM

6/17/03 12:00 PM

6/17/03 12:30 PM

6/17/03 1:00 PM

6/17/03 1:30 PM

6/17/03 2:00 PM

6/17/03 2:30 PM

6/17/03 3:00 PM

6/17/03 3:30 PM

6/17/03 4:00 PM

6/17/03 4:30 PM

6/17/03 5:00 PM

6/17/03 5:30 PM

6/17/03 6:00 PM

6/18/03 9:00 AM

6/18/03 9:30 AM

6/18/03 10:00 AM

6/18/03 10:30 AM

6/18/03 11:00 AM

6/18/03 11:30 AM

6/18/03 12:00 PM

6/18/03 12:30 PM

6/18/03 1:00 PM

6/18/03 1:30 PM

6/18/03 2:00 PM

6/18/03 2:30 PM

6/18/03 3:00 PM

6/18/03 3:30 PM

6/18/03 4:00 PM

6/18/03 4:30 PM

6/18/03 5:00 PM

6/18/03 5:30 PM

6/18/03 6:00 PM

6/19/03 9:00 AM

6/19/03 9:30 AM

6/19/03 10:00 AM

6/19/03 10:30 AM

6/19/03 11:00 AM

6/19/03 11:30 AM

6/19/03 12:00 PM

6/19/03 12:30 PM

6/19/03 1:00 PM

6/19/03 1:30 PM

6/19/03 2:00 PM

6/19/03 2:30 PM

6/19/03 3:00 PM

6/19/03 3:30 PM

6/19/03 4:00 PM

6/19/03 4:30 PM

6/19/03 5:00 PM

6/19/03 5:30 PM

6/19/03 6:00 PM



Merci d'avance.



Christophe
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2 3
Avatar
isabelle
bonjour Christophe,

voici un début de piste,

Sub Macro1()
a = CDate("6/17/03")
b = CDate("6/20/03")
c = CDate("9:00 AM")
d = CDate("18:00PM")
e = CDate("00:30")
f = 24 - ((d * 24) - (c * 24))
x = 2
Range("A1") = CDate(a & " " & c)
While y <> CDate(b & " " & d)
y = Range("A" & x - 1) + e
w = CDate(Right(y, 8))
If w > d Then
y = Range("A" & x - 1) + f / 24
Range("A" & x) = y
Else
Range("A" & x) = y
End If
x = x + 1
Wend
End Sub

isabelle


Bonsoir:

Je cherche de l'aide pour creer une macro qui permettrait grace à une input
box demandant 5 variables

1- date Début

2- date Fin

3- Heure Début

4- Heure Fin

3- Incrément Heure

de générer une colonne Date/Heure

Par exemple en rentant:

1- 6/17/03

2- 6/19/03

3- 9:00 AM

4- 6:00PM

5- 30 mn

Je veux génerer

6/17/03 9:00 AM

6/17/03 9:30 AM

6/17/03 10:00 AM

6/17/03 10:30 AM

6/17/03 11:00 AM

6/17/03 11:30 AM

6/17/03 12:00 PM

6/17/03 12:30 PM

6/17/03 1:00 PM

6/17/03 1:30 PM

6/17/03 2:00 PM

6/17/03 2:30 PM

6/17/03 3:00 PM

6/17/03 3:30 PM

6/17/03 4:00 PM

6/17/03 4:30 PM

6/17/03 5:00 PM

6/17/03 5:30 PM

6/17/03 6:00 PM

6/18/03 9:00 AM

6/18/03 9:30 AM

6/18/03 10:00 AM

6/18/03 10:30 AM

6/18/03 11:00 AM

6/18/03 11:30 AM

6/18/03 12:00 PM

6/18/03 12:30 PM

6/18/03 1:00 PM

6/18/03 1:30 PM

6/18/03 2:00 PM

6/18/03 2:30 PM

6/18/03 3:00 PM

6/18/03 3:30 PM

6/18/03 4:00 PM

6/18/03 4:30 PM

6/18/03 5:00 PM

6/18/03 5:30 PM

6/18/03 6:00 PM

6/19/03 9:00 AM

6/19/03 9:30 AM

6/19/03 10:00 AM

6/19/03 10:30 AM

6/19/03 11:00 AM

6/19/03 11:30 AM

6/19/03 12:00 PM

6/19/03 12:30 PM

6/19/03 1:00 PM

6/19/03 1:30 PM

6/19/03 2:00 PM

6/19/03 2:30 PM

6/19/03 3:00 PM

6/19/03 3:30 PM

6/19/03 4:00 PM

6/19/03 4:30 PM

6/19/03 5:00 PM

6/19/03 5:30 PM

6/19/03 6:00 PM

Merci d'avance.

Christophe


Avatar
Daniel.M
Salut Christophe,

Pour un canevas:

i = 1
For t = DateDebut + HeureDebut To _
DateFin + HeureFin Step IncrementHeure
Cells(i, "A") = t
i = i + 1
Next t

Salutations,

Daniel M.

"Christophe Joly" wrote in message
news:
Bonsoir:



Je cherche de l'aide pour creer une macro qui permettrait grace à une input
box demandant 5 variables

1- date Début

2- date Fin

3- Heure Début

4- Heure Fin

3- Incrément Heure



de générer une colonne Date/Heure



Par exemple en rentant:

1- 6/17/03

2- 6/19/03

3- 9:00 AM

4- 6:00PM

5- 30 mn



Je veux génerer

6/17/03 9:00 AM

6/17/03 9:30 AM

6/17/03 10:00 AM

6/17/03 10:30 AM

6/17/03 11:00 AM

6/17/03 11:30 AM

6/17/03 12:00 PM

6/17/03 12:30 PM

6/17/03 1:00 PM

6/17/03 1:30 PM

6/17/03 2:00 PM

6/17/03 2:30 PM

6/17/03 3:00 PM

6/17/03 3:30 PM

6/17/03 4:00 PM

6/17/03 4:30 PM

6/17/03 5:00 PM

6/17/03 5:30 PM

6/17/03 6:00 PM

6/18/03 9:00 AM

6/18/03 9:30 AM

6/18/03 10:00 AM

6/18/03 10:30 AM

6/18/03 11:00 AM

6/18/03 11:30 AM

6/18/03 12:00 PM

6/18/03 12:30 PM

6/18/03 1:00 PM

6/18/03 1:30 PM

6/18/03 2:00 PM

6/18/03 2:30 PM

6/18/03 3:00 PM

6/18/03 3:30 PM

6/18/03 4:00 PM

6/18/03 4:30 PM

6/18/03 5:00 PM

6/18/03 5:30 PM

6/18/03 6:00 PM

6/19/03 9:00 AM

6/19/03 9:30 AM

6/19/03 10:00 AM

6/19/03 10:30 AM

6/19/03 11:00 AM

6/19/03 11:30 AM

6/19/03 12:00 PM

6/19/03 12:30 PM

6/19/03 1:00 PM

6/19/03 1:30 PM

6/19/03 2:00 PM

6/19/03 2:30 PM

6/19/03 3:00 PM

6/19/03 3:30 PM

6/19/03 4:00 PM

6/19/03 4:30 PM

6/19/03 5:00 PM

6/19/03 5:30 PM

6/19/03 6:00 PM



Merci d'avance.



Christophe








Avatar
AV
La gestion des erreurs n'est pas faite !
Si tu n'y arrives pas, fais signe
* Dates ou heures doivent être saisies sous formes reconnues !
Ex : 01/01/03 pour une date et 8:0 pour une heure

Sub zz_ListDatHeur()
Jr1 = CDate(InputBox("Date déb", ""))
Jr2 = CDate(InputBox("Date fin", ""))
Hh1 = CDate(InputBox("Heure déb", ""))
Hh2 = CDate(InputBox("Heure fin", ""))
Pas = CDate(InputBox("Intervalle horaire", ""))
[A1] = Jr1 * 1 + Hh1 * 1
[A1].DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=Pas * 1, Stop:=Jr2 * 1 + Hh2 * 1
End Sub

AV
Avatar
Christophe Joly
Alain:

Bonsoir et merci pour ta proposition. C'est très proche de ce que je
recherche. Si je peux faire la gestion d'erreur de format c'est mieux sinon
je peux m'en passer.

Ceci dit, j'ai testé ta macro:

Lorsque je rentre dans l'input box respectivement:
12/23/03
12/24/03
6:00 AM
2:00 PM
00:30

J'obtiens le résultat suivant. Je constate que la date et l'heure de
début sont bons, la date et l'heure de fin sont bons bons, que
l'incrémentation est respectée.
En revanche, pour le 12/23/03 le dernier horaire est 11:30 PM alors
que cela devrait être 2:30 PM et le 12/24/03 le premier horaire est 12:00 AM
au lieu de 6:00 AM

Merci pour ton aide.

Christophe

12/23/03 6:00 AM
12/23/03 6:30 AM
12/23/03 7:00 AM
12/23/03 7:30 AM
12/23/03 8:00 AM
12/23/03 8:30 AM
12/23/03 9:00 AM
12/23/03 9:30 AM
12/23/03 10:00 AM
12/23/03 10:30 AM
12/23/03 11:00 AM
12/23/03 11:30 AM
12/23/03 12:00 PM
12/23/03 12:30 PM
12/23/03 1:00 PM
12/23/03 1:30 PM
12/23/03 2:00 PM
12/23/03 2:30 PM
12/23/03 3:00 PM
12/23/03 3:30 PM
12/23/03 4:00 PM
12/23/03 4:30 PM
12/23/03 5:00 PM
12/23/03 5:30 PM
12/23/03 6:00 PM
12/23/03 6:30 PM
12/23/03 7:00 PM
12/23/03 7:30 PM
12/23/03 8:00 PM
12/23/03 8:30 PM
12/23/03 9:00 PM
12/23/03 9:30 PM
12/23/03 10:00 PM
12/23/03 10:30 PM
12/23/03 11:00 PM
12/23/03 11:30 PM
12/24/03 12:00 AM
12/24/03 12:30 AM
12/24/03 1:00 AM
12/24/03 1:30 AM
12/24/03 2:00 AM
12/24/03 2:30 AM
12/24/03 3:00 AM
12/24/03 3:30 AM
12/24/03 4:00 AM
12/24/03 4:30 AM
12/24/03 5:00 AM
12/24/03 5:30 AM
12/24/03 6:00 AM
12/24/03 6:30 AM
12/24/03 7:00 AM
12/24/03 7:30 AM
12/24/03 8:00 AM
12/24/03 8:30 AM
12/24/03 9:00 AM
12/24/03 9:30 AM
12/24/03 10:00 AM
12/24/03 10:30 AM
12/24/03 11:00 AM
12/24/03 11:30 AM
12/24/03 12:00 PM
12/24/03 12:30 PM
12/24/03 1:00 PM
12/24/03 1:30 PM
12/24/03 2:00 PM


"AV" a écrit dans le message de
news:
La gestion des erreurs n'est pas faite !
Si tu n'y arrives pas, fais signe
* Dates ou heures doivent être saisies sous formes reconnues !
Ex : 01/01/03 pour une date et 8:0 pour une heure

Sub zz_ListDatHeur()
Jr1 = CDate(InputBox("Date déb", ""))
Jr2 = CDate(InputBox("Date fin", ""))
Hh1 = CDate(InputBox("Heure déb", ""))
Hh2 = CDate(InputBox("Heure fin", ""))
Pas = CDate(InputBox("Intervalle horaire", ""))
[A1] = Jr1 * 1 + Hh1 * 1
[A1].DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=Pas * 1, Stop:=Jr2 * 1 + Hh2 * 1
End Sub

AV




Avatar
Christophe Joly
Bonjour Isabelle:

J'ai essayé ta macro et est rencontré un bug. Je dois dire que je suis
depuis longtemps dépassé par les événements. La macro d'Alain me semble,(no
offense), assez proche du résultat que je recherche, même si pour l'instant
il y a un encore un petit pb.

Merci.

Christophe

"isabelle" a écrit dans le message de
news:
bonjour Christophe,

voici un début de piste,

Sub Macro1()
a = CDate("6/17/03")
b = CDate("6/20/03")
c = CDate("9:00 AM")
d = CDate("18:00PM")
e = CDate("00:30")
f = 24 - ((d * 24) - (c * 24))
x = 2
Range("A1") = CDate(a & " " & c)
While y <> CDate(b & " " & d)
y = Range("A" & x - 1) + e
w = CDate(Right(y, 8))
If w > d Then
y = Range("A" & x - 1) + f / 24
Range("A" & x) = y
Else
Range("A" & x) = y
End If
x = x + 1
Wend
End Sub

isabelle


Bonsoir:

Je cherche de l'aide pour creer une macro qui permettrait grace à une
input


box demandant 5 variables

1- date Début

2- date Fin

3- Heure Début

4- Heure Fin

3- Incrément Heure

de générer une colonne Date/Heure

Par exemple en rentant:

1- 6/17/03

2- 6/19/03

3- 9:00 AM

4- 6:00PM

5- 30 mn

Je veux génerer

6/17/03 9:00 AM

6/17/03 9:30 AM

6/17/03 10:00 AM

6/17/03 10:30 AM

6/17/03 11:00 AM

6/17/03 11:30 AM

6/17/03 12:00 PM

6/17/03 12:30 PM

6/17/03 1:00 PM

6/17/03 1:30 PM

6/17/03 2:00 PM

6/17/03 2:30 PM

6/17/03 3:00 PM

6/17/03 3:30 PM

6/17/03 4:00 PM

6/17/03 4:30 PM

6/17/03 5:00 PM

6/17/03 5:30 PM

6/17/03 6:00 PM

6/18/03 9:00 AM

6/18/03 9:30 AM

6/18/03 10:00 AM

6/18/03 10:30 AM

6/18/03 11:00 AM

6/18/03 11:30 AM

6/18/03 12:00 PM

6/18/03 12:30 PM

6/18/03 1:00 PM

6/18/03 1:30 PM

6/18/03 2:00 PM

6/18/03 2:30 PM

6/18/03 3:00 PM

6/18/03 3:30 PM

6/18/03 4:00 PM

6/18/03 4:30 PM

6/18/03 5:00 PM

6/18/03 5:30 PM

6/18/03 6:00 PM

6/19/03 9:00 AM

6/19/03 9:30 AM

6/19/03 10:00 AM

6/19/03 10:30 AM

6/19/03 11:00 AM

6/19/03 11:30 AM

6/19/03 12:00 PM

6/19/03 12:30 PM

6/19/03 1:00 PM

6/19/03 1:30 PM

6/19/03 2:00 PM

6/19/03 2:30 PM

6/19/03 3:00 PM

6/19/03 3:30 PM

6/19/03 4:00 PM

6/19/03 4:30 PM

6/19/03 5:00 PM

6/19/03 5:30 PM

6/19/03 6:00 PM

Merci d'avance.

Christophe




Avatar
Christophe Joly
Daniel:

Merci.
"Daniel.M" a écrit dans le message de
news:e8vR%
Salut Christophe,

Pour un canevas:

i = 1
For t = DateDebut + HeureDebut To _
DateFin + HeureFin Step IncrementHeure
Cells(i, "A") = t
i = i + 1
Next t

Salutations,

Daniel M.

"Christophe Joly" wrote in message
news:
Bonsoir:



Je cherche de l'aide pour creer une macro qui permettrait grace à une
input


box demandant 5 variables

1- date Début

2- date Fin

3- Heure Début

4- Heure Fin

3- Incrément Heure



de générer une colonne Date/Heure



Par exemple en rentant:

1- 6/17/03

2- 6/19/03

3- 9:00 AM

4- 6:00PM

5- 30 mn



Je veux génerer

6/17/03 9:00 AM

6/17/03 9:30 AM

6/17/03 10:00 AM

6/17/03 10:30 AM

6/17/03 11:00 AM

6/17/03 11:30 AM

6/17/03 12:00 PM

6/17/03 12:30 PM

6/17/03 1:00 PM

6/17/03 1:30 PM

6/17/03 2:00 PM

6/17/03 2:30 PM

6/17/03 3:00 PM

6/17/03 3:30 PM

6/17/03 4:00 PM

6/17/03 4:30 PM

6/17/03 5:00 PM

6/17/03 5:30 PM

6/17/03 6:00 PM

6/18/03 9:00 AM

6/18/03 9:30 AM

6/18/03 10:00 AM

6/18/03 10:30 AM

6/18/03 11:00 AM

6/18/03 11:30 AM

6/18/03 12:00 PM

6/18/03 12:30 PM

6/18/03 1:00 PM

6/18/03 1:30 PM

6/18/03 2:00 PM

6/18/03 2:30 PM

6/18/03 3:00 PM

6/18/03 3:30 PM

6/18/03 4:00 PM

6/18/03 4:30 PM

6/18/03 5:00 PM

6/18/03 5:30 PM

6/18/03 6:00 PM

6/19/03 9:00 AM

6/19/03 9:30 AM

6/19/03 10:00 AM

6/19/03 10:30 AM

6/19/03 11:00 AM

6/19/03 11:30 AM

6/19/03 12:00 PM

6/19/03 12:30 PM

6/19/03 1:00 PM

6/19/03 1:30 PM

6/19/03 2:00 PM

6/19/03 2:30 PM

6/19/03 3:00 PM

6/19/03 3:30 PM

6/19/03 4:00 PM

6/19/03 4:30 PM

6/19/03 5:00 PM

6/19/03 5:30 PM

6/19/03 6:00 PM



Merci d'avance.



Christophe












Avatar
isabelle
bonjour Christophe,

quel est le bug rencontré ?

isabelle


Bonjour Isabelle:

J'ai essayé ta macro et est rencontré un bug. Je dois dire que je suis
depuis longtemps dépassé par les événements. La macro d'Alain me semble,(no
offense), assez proche du résultat que je recherche, même si pour l'instant
il y a un encore un petit pb.

Merci.

Christophe

"isabelle" a écrit dans le message de
news:
bonjour Christophe,

voici un début de piste,

Sub Macro1()
a = CDate("6/17/03")
b = CDate("6/20/03")
c = CDate("9:00 AM")
d = CDate("18:00PM")
e = CDate("00:30")
f = 24 - ((d * 24) - (c * 24))
x = 2
Range("A1") = CDate(a & " " & c)
While y <> CDate(b & " " & d)
y = Range("A" & x - 1) + e
w = CDate(Right(y, 8))
If w > d Then
y = Range("A" & x - 1) + f / 24
Range("A" & x) = y
Else
Range("A" & x) = y
End If
x = x + 1
Wend
End Sub

isabelle


Bonsoir:

Je cherche de l'aide pour creer une macro qui permettrait grace à une
input


box demandant 5 variables

1- date Début

2- date Fin

3- Heure Début

4- Heure Fin

3- Incrément Heure

de générer une colonne Date/Heure

Par exemple en rentant:

1- 6/17/03

2- 6/19/03

3- 9:00 AM

4- 6:00PM

5- 30 mn

Je veux génerer

6/17/03 9:00 AM

6/17/03 9:30 AM

6/17/03 10:00 AM

6/17/03 10:30 AM

6/17/03 11:00 AM

6/17/03 11:30 AM

6/17/03 12:00 PM

6/17/03 12:30 PM

6/17/03 1:00 PM

6/17/03 1:30 PM

6/17/03 2:00 PM

6/17/03 2:30 PM

6/17/03 3:00 PM

6/17/03 3:30 PM

6/17/03 4:00 PM

6/17/03 4:30 PM

6/17/03 5:00 PM

6/17/03 5:30 PM

6/17/03 6:00 PM

6/18/03 9:00 AM

6/18/03 9:30 AM

6/18/03 10:00 AM

6/18/03 10:30 AM

6/18/03 11:00 AM

6/18/03 11:30 AM

6/18/03 12:00 PM

6/18/03 12:30 PM

6/18/03 1:00 PM

6/18/03 1:30 PM

6/18/03 2:00 PM

6/18/03 2:30 PM

6/18/03 3:00 PM

6/18/03 3:30 PM

6/18/03 4:00 PM

6/18/03 4:30 PM

6/18/03 5:00 PM

6/18/03 5:30 PM

6/18/03 6:00 PM

6/19/03 9:00 AM

6/19/03 9:30 AM

6/19/03 10:00 AM

6/19/03 10:30 AM

6/19/03 11:00 AM

6/19/03 11:30 AM

6/19/03 12:00 PM

6/19/03 12:30 PM

6/19/03 1:00 PM

6/19/03 1:30 PM

6/19/03 2:00 PM

6/19/03 2:30 PM

6/19/03 3:00 PM

6/19/03 3:30 PM

6/19/03 4:00 PM

6/19/03 4:30 PM

6/19/03 5:00 PM

6/19/03 5:30 PM

6/19/03 6:00 PM

Merci d'avance.

Christophe






Avatar
Christophe Joly
Isabelle:

Je te prie de m'excuser, j'aurais du etre plus precis.
Lorsque je lance ta macro à partir d'une feuille vide, j'obtiens un message
"errure d'execution" "Incompatibilite de Type" correspondant é la ligne w CDate 5Right(y, 8)). Mais peut etre je ne sais pas ce que je fais car j'ai
vu que tu avais défini des variables mais je n'ai pas vu les input box.

Merci.

Christophe
"isabelle" a écrit dans le message de
news:
bonjour Christophe,

quel est le bug rencontré ?

isabelle


Bonjour Isabelle:

J'ai essayé ta macro et est rencontré un bug. Je dois dire que je suis
depuis longtemps dépassé par les événements. La macro d'Alain me
semble,(no


offense), assez proche du résultat que je recherche, même si pour
l'instant


il y a un encore un petit pb.

Merci.

Christophe

"isabelle" a écrit dans le message de
news:
bonjour Christophe,

voici un début de piste,

Sub Macro1()
a = CDate("6/17/03")
b = CDate("6/20/03")
c = CDate("9:00 AM")
d = CDate("18:00PM")
e = CDate("00:30")
f = 24 - ((d * 24) - (c * 24))
x = 2
Range("A1") = CDate(a & " " & c)
While y <> CDate(b & " " & d)
y = Range("A" & x - 1) + e
w = CDate(Right(y, 8))
If w > d Then
y = Range("A" & x - 1) + f / 24
Range("A" & x) = y
Else
Range("A" & x) = y
End If
x = x + 1
Wend
End Sub

isabelle


Bonsoir:

Je cherche de l'aide pour creer une macro qui permettrait grace à
une




input
box demandant 5 variables

1- date Début

2- date Fin

3- Heure Début

4- Heure Fin

3- Incrément Heure

de générer une colonne Date/Heure

Par exemple en rentant:

1- 6/17/03

2- 6/19/03

3- 9:00 AM

4- 6:00PM

5- 30 mn

Je veux génerer

6/17/03 9:00 AM

6/17/03 9:30 AM

6/17/03 10:00 AM

6/17/03 10:30 AM

6/17/03 11:00 AM

6/17/03 11:30 AM

6/17/03 12:00 PM

6/17/03 12:30 PM

6/17/03 1:00 PM

6/17/03 1:30 PM

6/17/03 2:00 PM

6/17/03 2:30 PM

6/17/03 3:00 PM

6/17/03 3:30 PM

6/17/03 4:00 PM

6/17/03 4:30 PM

6/17/03 5:00 PM

6/17/03 5:30 PM

6/17/03 6:00 PM

6/18/03 9:00 AM

6/18/03 9:30 AM

6/18/03 10:00 AM

6/18/03 10:30 AM

6/18/03 11:00 AM

6/18/03 11:30 AM

6/18/03 12:00 PM

6/18/03 12:30 PM

6/18/03 1:00 PM

6/18/03 1:30 PM

6/18/03 2:00 PM

6/18/03 2:30 PM

6/18/03 3:00 PM

6/18/03 3:30 PM

6/18/03 4:00 PM

6/18/03 4:30 PM

6/18/03 5:00 PM

6/18/03 5:30 PM

6/18/03 6:00 PM

6/19/03 9:00 AM

6/19/03 9:30 AM

6/19/03 10:00 AM

6/19/03 10:30 AM

6/19/03 11:00 AM

6/19/03 11:30 AM

6/19/03 12:00 PM

6/19/03 12:30 PM

6/19/03 1:00 PM

6/19/03 1:30 PM

6/19/03 2:00 PM

6/19/03 2:30 PM

6/19/03 3:00 PM

6/19/03 3:30 PM

6/19/03 4:00 PM

6/19/03 4:30 PM

6/19/03 5:00 PM

6/19/03 5:30 PM

6/19/03 6:00 PM

Merci d'avance.

Christophe








Avatar
isabelle
bonjour ,

je crois qu'il c'est glissée une erreur à la recopie, la ligne doit être
:
w = CDate(Right(y, 8))

je n'ai pas encore mit les inputbox c'était pour tester si les valeurs
sont correct avant d'aller de l'avant
a+

isabelle


Isabelle:

Je te prie de m'excuser, j'aurais du etre plus precis.
Lorsque je lance ta macro à partir d'une feuille vide, j'obtiens un message
"errure d'execution" "Incompatibilite de Type" correspondant é la ligne w > CDate 5Right(y, 8)). Mais peut etre je ne sais pas ce que je fais car j'ai
vu que tu avais défini des variables mais je n'ai pas vu les input box.

Merci.

Christophe
"isabelle" a écrit dans le message de
news:
bonjour Christophe,

quel est le bug rencontré ?

isabelle


Bonjour Isabelle:

J'ai essayé ta macro et est rencontré un bug. Je dois dire que je suis
depuis longtemps dépassé par les événements. La macro d'Alain me
semble,(no


offense), assez proche du résultat que je recherche, même si pour
l'instant


il y a un encore un petit pb.

Merci.

Christophe

"isabelle" a écrit dans le message de
news:
bonjour Christophe,

voici un début de piste,

Sub Macro1()
a = CDate("6/17/03")
b = CDate("6/20/03")
c = CDate("9:00 AM")
d = CDate("18:00PM")
e = CDate("00:30")
f = 24 - ((d * 24) - (c * 24))
x = 2
Range("A1") = CDate(a & " " & c)
While y <> CDate(b & " " & d)
y = Range("A" & x - 1) + e
w = CDate(Right(y, 8))
If w > d Then
y = Range("A" & x - 1) + f / 24
Range("A" & x) = y
Else
Range("A" & x) = y
End If
x = x + 1
Wend
End Sub

isabelle


Bonsoir:

Je cherche de l'aide pour creer une macro qui permettrait grace à
une




input
box demandant 5 variables

1- date Début

2- date Fin

3- Heure Début

4- Heure Fin

3- Incrément Heure

de générer une colonne Date/Heure

Par exemple en rentant:

1- 6/17/03

2- 6/19/03

3- 9:00 AM

4- 6:00PM

5- 30 mn

Je veux génerer

6/17/03 9:00 AM

6/17/03 9:30 AM

6/17/03 10:00 AM

6/17/03 10:30 AM

6/17/03 11:00 AM

6/17/03 11:30 AM

6/17/03 12:00 PM

6/17/03 12:30 PM

6/17/03 1:00 PM

6/17/03 1:30 PM

6/17/03 2:00 PM

6/17/03 2:30 PM

6/17/03 3:00 PM

6/17/03 3:30 PM

6/17/03 4:00 PM

6/17/03 4:30 PM

6/17/03 5:00 PM

6/17/03 5:30 PM

6/17/03 6:00 PM

6/18/03 9:00 AM

6/18/03 9:30 AM

6/18/03 10:00 AM

6/18/03 10:30 AM

6/18/03 11:00 AM

6/18/03 11:30 AM

6/18/03 12:00 PM

6/18/03 12:30 PM

6/18/03 1:00 PM

6/18/03 1:30 PM

6/18/03 2:00 PM

6/18/03 2:30 PM

6/18/03 3:00 PM

6/18/03 3:30 PM

6/18/03 4:00 PM

6/18/03 4:30 PM

6/18/03 5:00 PM

6/18/03 5:30 PM

6/18/03 6:00 PM

6/19/03 9:00 AM

6/19/03 9:30 AM

6/19/03 10:00 AM

6/19/03 10:30 AM

6/19/03 11:00 AM

6/19/03 11:30 AM

6/19/03 12:00 PM

6/19/03 12:30 PM

6/19/03 1:00 PM

6/19/03 1:30 PM

6/19/03 2:00 PM

6/19/03 2:30 PM

6/19/03 3:00 PM

6/19/03 3:30 PM

6/19/03 4:00 PM

6/19/03 4:30 PM

6/19/03 5:00 PM

6/19/03 5:30 PM

6/19/03 6:00 PM

Merci d'avance.

Christophe










Avatar
Christophe Joly
Isabelle:

J'ai fait une erruer de frappe 5 a la place de (
mais dans la macro j'ai la meme chose que toi.

Comment puis-je la tester sans les input box?

Merci

Christophe
"isabelle" a écrit dans le message de
news:
bonjour ,

je crois qu'il c'est glissée une erreur à la recopie, la ligne doit être
:
w = CDate(Right(y, 8))

je n'ai pas encore mit les inputbox c'était pour tester si les valeurs
sont correct avant d'aller de l'avant
a+

isabelle


Isabelle:

Je te prie de m'excuser, j'aurais du etre plus precis.
Lorsque je lance ta macro à partir d'une feuille vide, j'obtiens un
message


"errure d'execution" "Incompatibilite de Type" correspondant é la ligne
w > > CDate 5Right(y, 8)). Mais peut etre je ne sais pas ce que je fais car


j'ai
vu que tu avais défini des variables mais je n'ai pas vu les input box.

Merci.

Christophe
"isabelle" a écrit dans le message de
news:
bonjour Christophe,

quel est le bug rencontré ?

isabelle


Bonjour Isabelle:

J'ai essayé ta macro et est rencontré un bug. Je dois dire que je
suis




depuis longtemps dépassé par les événements. La macro d'Alain me
semble,(no


offense), assez proche du résultat que je recherche, même si pour
l'instant


il y a un encore un petit pb.

Merci.

Christophe

"isabelle" a écrit dans le message de
news:
bonjour Christophe,

voici un début de piste,

Sub Macro1()
a = CDate("6/17/03")
b = CDate("6/20/03")
c = CDate("9:00 AM")
d = CDate("18:00PM")
e = CDate("00:30")
f = 24 - ((d * 24) - (c * 24))
x = 2
Range("A1") = CDate(a & " " & c)
While y <> CDate(b & " " & d)
y = Range("A" & x - 1) + e
w = CDate(Right(y, 8))
If w > d Then
y = Range("A" & x - 1) + f / 24
Range("A" & x) = y
Else
Range("A" & x) = y
End If
x = x + 1
Wend
End Sub

isabelle


Bonsoir:

Je cherche de l'aide pour creer une macro qui permettrait grace
à






une
input
box demandant 5 variables

1- date Début

2- date Fin

3- Heure Début

4- Heure Fin

3- Incrément Heure

de générer une colonne Date/Heure

Par exemple en rentant:

1- 6/17/03

2- 6/19/03

3- 9:00 AM

4- 6:00PM

5- 30 mn

Je veux génerer

6/17/03 9:00 AM

6/17/03 9:30 AM

6/17/03 10:00 AM

6/17/03 10:30 AM

6/17/03 11:00 AM

6/17/03 11:30 AM

6/17/03 12:00 PM

6/17/03 12:30 PM

6/17/03 1:00 PM

6/17/03 1:30 PM

6/17/03 2:00 PM

6/17/03 2:30 PM

6/17/03 3:00 PM

6/17/03 3:30 PM

6/17/03 4:00 PM

6/17/03 4:30 PM

6/17/03 5:00 PM

6/17/03 5:30 PM

6/17/03 6:00 PM

6/18/03 9:00 AM

6/18/03 9:30 AM

6/18/03 10:00 AM

6/18/03 10:30 AM

6/18/03 11:00 AM

6/18/03 11:30 AM

6/18/03 12:00 PM

6/18/03 12:30 PM

6/18/03 1:00 PM

6/18/03 1:30 PM

6/18/03 2:00 PM

6/18/03 2:30 PM

6/18/03 3:00 PM

6/18/03 3:30 PM

6/18/03 4:00 PM

6/18/03 4:30 PM

6/18/03 5:00 PM

6/18/03 5:30 PM

6/18/03 6:00 PM

6/19/03 9:00 AM

6/19/03 9:30 AM

6/19/03 10:00 AM

6/19/03 10:30 AM

6/19/03 11:00 AM

6/19/03 11:30 AM

6/19/03 12:00 PM

6/19/03 12:30 PM

6/19/03 1:00 PM

6/19/03 1:30 PM

6/19/03 2:00 PM

6/19/03 2:30 PM

6/19/03 3:00 PM

6/19/03 3:30 PM

6/19/03 4:00 PM

6/19/03 4:30 PM

6/19/03 5:00 PM

6/19/03 5:30 PM

6/19/03 6:00 PM

Merci d'avance.

Christophe












1 2 3