Qui peut m'aider à créer une feuille de saisie???? Je m'explique
J'ai donc 12 feuilles Janvier...Décembre plus une Saisie avec zone nommée en
D5 D7 D9 D11(HeurDéb,HeurFin, DateDéb, DateFin)
Sur mes feuilles Mois, les jours déroulent à partir de A4 jusqu'a A34 avec
une formule recopiée à partir de A5 ==SI(A4>=FIN.MOIS(A$4;0);"";A4+1).
Les Champs sur les feuilles mois sont, en A3 date, en B3 N° de semaine, C3
Quantiéme, D3 Arrivée
(correspondant à HeurDéb) en E3 départ ( correcpondant à HeurFin), en F3
pause le temps de travail et G3 heures réalisées
En G4 avec une formule =SI(A4="";"";SI(I4=0,25;"Zéro";E4-D4-F4)). Sur
I4 j'ai =SI(A4="";"";SI(TYPEJOUR(A4)=2;0,25;""))
Mon problême maintenant que tout cela marche est :
A partir de la feuille "Saisie" et après avoir entrer mes HeurDéb et HeurFin
puis la période, je voudrais recopier ces données sur la feuilles mois
correspondante.
par exemple. Je travaille du 01/01/03 au 15/01/03 de 09:00 à 15:00.
Donc sur ma feuille Janvier je veux recopier ces données horaires sur cahque
jour concerné
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
ru-th
Salut
pas testé, mais pourrait donner un truc comme cela avec la feuille saisie en 1ere position, Janvier en 2ème etc.... Sub test() 'parcourt toues les dates For i = [datedebut] To [datefin] 'recupère l'index de la feuille par le mois de la date mois = Month(i)+1 'recupère la ligne par le jour jour = Day(i) + 3 'recopie Sheets(mois).Cells(jour, 2).Value = [heuredebut] Sheets(mois).Cells(jour, 3).Value = [heurefin] 'date suivante Next End Sub
c'est une piste de travail a+ rural thierry
"Pascal" a écrit dans le message de news:
Bonjour à tous
Qui peut m'aider à créer une feuille de saisie???? Je m'explique
J'ai donc 12 feuilles Janvier...Décembre plus une Saisie avec zone nommée en
D5 D7 D9 D11(HeurDéb,HeurFin, DateDéb, DateFin) Sur mes feuilles Mois, les jours déroulent à partir de A4 jusqu'a A34 avec
une formule recopiée à partir de A5 ==SI(A4>=FIN.MOIS(A$4;0);"";A4+1). Les Champs sur les feuilles mois sont, en A3 date, en B3 N° de semaine, C3
Quantiéme, D3 Arrivée (correspondant à HeurDéb) en E3 départ ( correcpondant à HeurFin), en F3 pause le temps de travail et G3 heures réalisées En G4 avec une formule =SI(A4="";"";SI(I4=0,25;"Zéro";E4-D4-F4)). Sur I4 j'ai =SI(A4="";"";SI(TYPEJOUR(A4)=2;0,25;"")) Mon problême maintenant que tout cela marche est : A partir de la feuille "Saisie" et après avoir entrer mes HeurDéb et HeurFin
puis la période, je voudrais recopier ces données sur la feuilles mois correspondante.
par exemple. Je travaille du 01/01/03 au 15/01/03 de 09:00 à 15:00. Donc sur ma feuille Janvier je veux recopier ces données horaires sur cahque
jour concerné
Merci
Pascal
Salut
pas testé, mais pourrait donner un truc comme cela
avec la feuille saisie en 1ere position, Janvier en 2ème etc....
Sub test()
'parcourt toues les dates
For i = [datedebut] To [datefin]
'recupère l'index de la feuille par le mois de la date
mois = Month(i)+1
'recupère la ligne par le jour
jour = Day(i) + 3
'recopie
Sheets(mois).Cells(jour, 2).Value = [heuredebut]
Sheets(mois).Cells(jour, 3).Value = [heurefin]
'date suivante
Next
End Sub
c'est une piste de travail
a+
rural thierry
"Pascal" <Zork.NOSSWEN@tropcurieurx.com> a écrit dans le message de news:
Oq1sIMSqDHA.2592@TK2MSFTNGP10.phx.gbl...
Bonjour à tous
Qui peut m'aider à créer une feuille de saisie???? Je m'explique
J'ai donc 12 feuilles Janvier...Décembre plus une Saisie avec zone nommée
en
D5 D7 D9 D11(HeurDéb,HeurFin, DateDéb, DateFin)
Sur mes feuilles Mois, les jours déroulent à partir de A4 jusqu'a A34
avec
une formule recopiée à partir de A5 ==SI(A4>=FIN.MOIS(A$4;0);"";A4+1).
Les Champs sur les feuilles mois sont, en A3 date, en B3 N° de semaine,
C3
Quantiéme, D3 Arrivée
(correspondant à HeurDéb) en E3 départ ( correcpondant à HeurFin), en F3
pause le temps de travail et G3 heures réalisées
En G4 avec une formule =SI(A4="";"";SI(I4=0,25;"Zéro";E4-D4-F4)). Sur
I4 j'ai =SI(A4="";"";SI(TYPEJOUR(A4)=2;0,25;""))
Mon problême maintenant que tout cela marche est :
A partir de la feuille "Saisie" et après avoir entrer mes HeurDéb et
HeurFin
puis la période, je voudrais recopier ces données sur la feuilles mois
correspondante.
par exemple. Je travaille du 01/01/03 au 15/01/03 de 09:00 à 15:00.
Donc sur ma feuille Janvier je veux recopier ces données horaires sur
cahque
pas testé, mais pourrait donner un truc comme cela avec la feuille saisie en 1ere position, Janvier en 2ème etc.... Sub test() 'parcourt toues les dates For i = [datedebut] To [datefin] 'recupère l'index de la feuille par le mois de la date mois = Month(i)+1 'recupère la ligne par le jour jour = Day(i) + 3 'recopie Sheets(mois).Cells(jour, 2).Value = [heuredebut] Sheets(mois).Cells(jour, 3).Value = [heurefin] 'date suivante Next End Sub
c'est une piste de travail a+ rural thierry
"Pascal" a écrit dans le message de news:
Bonjour à tous
Qui peut m'aider à créer une feuille de saisie???? Je m'explique
J'ai donc 12 feuilles Janvier...Décembre plus une Saisie avec zone nommée en
D5 D7 D9 D11(HeurDéb,HeurFin, DateDéb, DateFin) Sur mes feuilles Mois, les jours déroulent à partir de A4 jusqu'a A34 avec
une formule recopiée à partir de A5 ==SI(A4>=FIN.MOIS(A$4;0);"";A4+1). Les Champs sur les feuilles mois sont, en A3 date, en B3 N° de semaine, C3
Quantiéme, D3 Arrivée (correspondant à HeurDéb) en E3 départ ( correcpondant à HeurFin), en F3 pause le temps de travail et G3 heures réalisées En G4 avec une formule =SI(A4="";"";SI(I4=0,25;"Zéro";E4-D4-F4)). Sur I4 j'ai =SI(A4="";"";SI(TYPEJOUR(A4)=2;0,25;"")) Mon problême maintenant que tout cela marche est : A partir de la feuille "Saisie" et après avoir entrer mes HeurDéb et HeurFin
puis la période, je voudrais recopier ces données sur la feuilles mois correspondante.
par exemple. Je travaille du 01/01/03 au 15/01/03 de 09:00 à 15:00. Donc sur ma feuille Janvier je veux recopier ces données horaires sur cahque
jour concerné
Merci
Pascal
Pascal
Merci, pour ton code il fonctionne à merveille Pascal "ru-th" a écrit dans le message de news:
Salut
pas testé, mais pourrait donner un truc comme cela avec la feuille saisie en 1ere position, Janvier en 2ème etc.... Sub test() 'parcourt toues les dates For i = [datedebut] To [datefin] 'recupère l'index de la feuille par le mois de la date mois = Month(i)+1 'recupère la ligne par le jour jour = Day(i) + 3 'recopie Sheets(mois).Cells(jour, 2).Value = [heuredebut] Sheets(mois).Cells(jour, 3).Value = [heurefin] 'date suivante Next End Sub
c'est une piste de travail a+ rural thierry
"Pascal" a écrit dans le message de news:
Bonjour à tous
Qui peut m'aider à créer une feuille de saisie???? Je m'explique
J'ai donc 12 feuilles Janvier...Décembre plus une Saisie avec zone nommée
en
D5 D7 D9 D11(HeurDéb,HeurFin, DateDéb, DateFin) Sur mes feuilles Mois, les jours déroulent à partir de A4 jusqu'a A34 avec
une formule recopiée à partir de A5 ==SI(A4>=FIN.MOIS(A$4;0);"";A4+1). Les Champs sur les feuilles mois sont, en A3 date, en B3 N° de semaine, C3
Quantiéme, D3 Arrivée (correspondant à HeurDéb) en E3 départ ( correcpondant à HeurFin), en F3 pause le temps de travail et G3 heures réalisées En G4 avec une formule =SI(A4="";"";SI(I4=0,25;"Zéro";E4-D4-F4)). Sur I4 j'ai =SI(A4="";"";SI(TYPEJOUR(A4)=2;0,25;"")) Mon problême maintenant que tout cela marche est : A partir de la feuille "Saisie" et après avoir entrer mes HeurDéb et HeurFin
puis la période, je voudrais recopier ces données sur la feuilles mois correspondante.
par exemple. Je travaille du 01/01/03 au 15/01/03 de 09:00 à 15:00. Donc sur ma feuille Janvier je veux recopier ces données horaires sur cahque
jour concerné
Merci
Pascal
Merci, pour ton code il fonctionne à merveille
Pascal
"ru-th" <ailleurs@nowhere> a écrit dans le message de news:
eTZCOpSqDHA.2528@TK2MSFTNGP12.phx.gbl...
Salut
pas testé, mais pourrait donner un truc comme cela
avec la feuille saisie en 1ere position, Janvier en 2ème etc....
Sub test()
'parcourt toues les dates
For i = [datedebut] To [datefin]
'recupère l'index de la feuille par le mois de la date
mois = Month(i)+1
'recupère la ligne par le jour
jour = Day(i) + 3
'recopie
Sheets(mois).Cells(jour, 2).Value = [heuredebut]
Sheets(mois).Cells(jour, 3).Value = [heurefin]
'date suivante
Next
End Sub
c'est une piste de travail
a+
rural thierry
"Pascal" <Zork.NOSSWEN@tropcurieurx.com> a écrit dans le message de news:
Oq1sIMSqDHA.2592@TK2MSFTNGP10.phx.gbl...
Bonjour à tous
Qui peut m'aider à créer une feuille de saisie???? Je m'explique
J'ai donc 12 feuilles Janvier...Décembre plus une Saisie avec zone
nommée
en
D5 D7 D9 D11(HeurDéb,HeurFin, DateDéb, DateFin)
Sur mes feuilles Mois, les jours déroulent à partir de A4 jusqu'a A34
avec
une formule recopiée à partir de A5 ==SI(A4>=FIN.MOIS(A$4;0);"";A4+1).
Les Champs sur les feuilles mois sont, en A3 date, en B3 N° de semaine,
C3
Quantiéme, D3 Arrivée
(correspondant à HeurDéb) en E3 départ ( correcpondant à HeurFin), en F3
pause le temps de travail et G3 heures réalisées
En G4 avec une formule =SI(A4="";"";SI(I4=0,25;"Zéro";E4-D4-F4)). Sur
I4 j'ai =SI(A4="";"";SI(TYPEJOUR(A4)=2;0,25;""))
Mon problême maintenant que tout cela marche est :
A partir de la feuille "Saisie" et après avoir entrer mes HeurDéb et
HeurFin
puis la période, je voudrais recopier ces données sur la feuilles mois
correspondante.
par exemple. Je travaille du 01/01/03 au 15/01/03 de 09:00 à 15:00.
Donc sur ma feuille Janvier je veux recopier ces données horaires sur
cahque
Merci, pour ton code il fonctionne à merveille Pascal "ru-th" a écrit dans le message de news:
Salut
pas testé, mais pourrait donner un truc comme cela avec la feuille saisie en 1ere position, Janvier en 2ème etc.... Sub test() 'parcourt toues les dates For i = [datedebut] To [datefin] 'recupère l'index de la feuille par le mois de la date mois = Month(i)+1 'recupère la ligne par le jour jour = Day(i) + 3 'recopie Sheets(mois).Cells(jour, 2).Value = [heuredebut] Sheets(mois).Cells(jour, 3).Value = [heurefin] 'date suivante Next End Sub
c'est une piste de travail a+ rural thierry
"Pascal" a écrit dans le message de news:
Bonjour à tous
Qui peut m'aider à créer une feuille de saisie???? Je m'explique
J'ai donc 12 feuilles Janvier...Décembre plus une Saisie avec zone nommée
en
D5 D7 D9 D11(HeurDéb,HeurFin, DateDéb, DateFin) Sur mes feuilles Mois, les jours déroulent à partir de A4 jusqu'a A34 avec
une formule recopiée à partir de A5 ==SI(A4>=FIN.MOIS(A$4;0);"";A4+1). Les Champs sur les feuilles mois sont, en A3 date, en B3 N° de semaine, C3
Quantiéme, D3 Arrivée (correspondant à HeurDéb) en E3 départ ( correcpondant à HeurFin), en F3 pause le temps de travail et G3 heures réalisées En G4 avec une formule =SI(A4="";"";SI(I4=0,25;"Zéro";E4-D4-F4)). Sur I4 j'ai =SI(A4="";"";SI(TYPEJOUR(A4)=2;0,25;"")) Mon problême maintenant que tout cela marche est : A partir de la feuille "Saisie" et après avoir entrer mes HeurDéb et HeurFin
puis la période, je voudrais recopier ces données sur la feuilles mois correspondante.
par exemple. Je travaille du 01/01/03 au 15/01/03 de 09:00 à 15:00. Donc sur ma feuille Janvier je veux recopier ces données horaires sur cahque
