Bonjour,
J'ai une feuille "Janvier" avec en A2=01/01/03 et en A32= 31/01/03. J'ai
déroulé le mois de A2 à A32
En B1 J'ai Heures début et en C1 Heures fin.
Je voudrais à l'aide d'un formulaire saisir mes heures sur une Plage de
date. J'aurais donc sur ce formulaire
date de début, date de fin, heures début , heure fin. Sur Ok je voudrais que
cela recopie les heures saisie sur la plage concernée sachant que 12
feuilles pour 12 mois.
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
fabienne HUÏEZ
je t'ai fait une ébauche. Mais l'adresse "" me retourne "Undelivered mail" Si tu veux, envoies moi ton adresse exacte et je te retournerais un fichier d'exemple
fabienne
-----Message d'origine----- Bonjour, J'ai une feuille "Janvier" avec en A2/01/03 et en A32= 31/01/03. J'ai
déroulé le mois de A2 à A32 En B1 J'ai Heures début et en C1 Heures fin. Je voudrais à l'aide d'un formulaire saisir mes heures sur une Plage de
date. J'aurais donc sur ce formulaire date de début, date de fin, heures début , heure fin. Sur Ok je voudrais que
cela recopie les heures saisie sur la plage concernée sachant que 12
feuilles pour 12 mois.
Merci
Pascal
.
je t'ai fait une ébauche.
Mais l'adresse "Zork.NOSSWEN@tropcurieurx.com" me
retourne "Undelivered mail"
Si tu veux, envoies moi ton adresse exacte et je te
retournerais un fichier d'exemple
fabienne
-----Message d'origine-----
Bonjour,
J'ai une feuille "Janvier" avec en A2=01/01/03 et en
A32= 31/01/03. J'ai
déroulé le mois de A2 à A32
En B1 J'ai Heures début et en C1 Heures fin.
Je voudrais à l'aide d'un formulaire saisir mes heures
sur une Plage de
date. J'aurais donc sur ce formulaire
date de début, date de fin, heures début , heure fin.
Sur Ok je voudrais que
cela recopie les heures saisie sur la plage concernée
sachant que 12
je t'ai fait une ébauche. Mais l'adresse "" me retourne "Undelivered mail" Si tu veux, envoies moi ton adresse exacte et je te retournerais un fichier d'exemple
fabienne
-----Message d'origine----- Bonjour, J'ai une feuille "Janvier" avec en A2/01/03 et en A32= 31/01/03. J'ai
déroulé le mois de A2 à A32 En B1 J'ai Heures début et en C1 Heures fin. Je voudrais à l'aide d'un formulaire saisir mes heures sur une Plage de
date. J'aurais donc sur ce formulaire date de début, date de fin, heures début , heure fin. Sur Ok je voudrais que
cela recopie les heures saisie sur la plage concernée sachant que 12
feuilles pour 12 mois.
Merci
Pascal
.
AV
Questions :
Je voudrais à l'aide d'un formulaire ........ S'agit-il d'un UserForm, boite de dial XL5 ou une feuille de calcul ?
J'aurais donc sur ce formulaire date de début, date de fin........ La date de fin peut-elle être sup à la date de début ?
Ebauche de réponse/piste en supposant que - la saisie se fait sur une feuille (facilité de controle des valeurs saisies) - les feuilles portent les noms des mois : Janvier...Décembre - il y a des plages nommées (dans la feuille de saisie) : "DatDéb", "DatFin", "HeurDéb", "HeurFin" - la différence horaire est à reporter en colonne B de la feuille du mois
Sub zzz() x = [DatDéb] * 1: y = [DatFin] * 1 If x = y Then nomF = Format(x, "mmmm") ligneF = Application.Match([DatDéb] * 1, Sheets(nomF).Range("A:A"), 0) + 1 Range(nomF & "!B" & ligneF).Value = [HeurFin] - [HeurDéb] Else '.........à voir End If End Sub
AV
Questions :
Je voudrais à l'aide d'un formulaire ........
S'agit-il d'un UserForm, boite de dial XL5 ou une feuille de calcul ?
J'aurais donc sur ce formulaire date de début, date de fin........
La date de fin peut-elle être sup à la date de début ?
Ebauche de réponse/piste en supposant que
- la saisie se fait sur une feuille (facilité de controle des valeurs saisies)
- les feuilles portent les noms des mois : Janvier...Décembre
- il y a des plages nommées (dans la feuille de saisie) :
"DatDéb", "DatFin", "HeurDéb", "HeurFin"
- la différence horaire est à reporter en colonne B de la feuille du mois
Sub zzz()
x = [DatDéb] * 1: y = [DatFin] * 1
If x = y Then
nomF = Format(x, "mmmm")
ligneF = Application.Match([DatDéb] * 1, Sheets(nomF).Range("A:A"), 0) + 1
Range(nomF & "!B" & ligneF).Value = [HeurFin] - [HeurDéb]
Else '.........à voir
End If
End Sub
Je voudrais à l'aide d'un formulaire ........ S'agit-il d'un UserForm, boite de dial XL5 ou une feuille de calcul ?
J'aurais donc sur ce formulaire date de début, date de fin........ La date de fin peut-elle être sup à la date de début ?
Ebauche de réponse/piste en supposant que - la saisie se fait sur une feuille (facilité de controle des valeurs saisies) - les feuilles portent les noms des mois : Janvier...Décembre - il y a des plages nommées (dans la feuille de saisie) : "DatDéb", "DatFin", "HeurDéb", "HeurFin" - la différence horaire est à reporter en colonne B de la feuille du mois
Sub zzz() x = [DatDéb] * 1: y = [DatFin] * 1 If x = y Then nomF = Format(x, "mmmm") ligneF = Application.Match([DatDéb] * 1, Sheets(nomF).Range("A:A"), 0) + 1 Range(nomF & "!B" & ligneF).Value = [HeurFin] - [HeurDéb] Else '.........à voir End If End Sub
AV
Pascal
Ok Fabienne je veux bien, mais à quelle adresse, j'ai pas envie quelle circule sur le forum Merci pascal "fabienne HUÏEZ" a écrit dans le message de news: 03d101c3a8a1$e93a77f0$ je t'ai fait une ébauche. Mais l'adresse "" me retourne "Undelivered mail" Si tu veux, envoies moi ton adresse exacte et je te retournerais un fichier d'exemple
fabienne
-----Message d'origine----- Bonjour, J'ai une feuille "Janvier" avec en A2/01/03 et en A32= 31/01/03. J'ai
déroulé le mois de A2 à A32 En B1 J'ai Heures début et en C1 Heures fin. Je voudrais à l'aide d'un formulaire saisir mes heures sur une Plage de
date. J'aurais donc sur ce formulaire date de début, date de fin, heures début , heure fin. Sur Ok je voudrais que
cela recopie les heures saisie sur la plage concernée sachant que 12
feuilles pour 12 mois.
Merci
Pascal
.
Ok Fabienne je veux bien, mais à quelle adresse,
j'ai pas envie quelle circule sur le forum
Merci
pascal
"fabienne HUÏEZ" <fvh4@wanadoo.fr> a écrit dans le message de news:
03d101c3a8a1$e93a77f0$a401280a@phx.gbl...
je t'ai fait une ébauche.
Mais l'adresse "Zork.NOSSWEN@tropcurieurx.com" me
retourne "Undelivered mail"
Si tu veux, envoies moi ton adresse exacte et je te
retournerais un fichier d'exemple
fabienne
-----Message d'origine-----
Bonjour,
J'ai une feuille "Janvier" avec en A2/01/03 et en
A32= 31/01/03. J'ai
déroulé le mois de A2 à A32
En B1 J'ai Heures début et en C1 Heures fin.
Je voudrais à l'aide d'un formulaire saisir mes heures
sur une Plage de
date. J'aurais donc sur ce formulaire
date de début, date de fin, heures début , heure fin.
Sur Ok je voudrais que
cela recopie les heures saisie sur la plage concernée
sachant que 12
Ok Fabienne je veux bien, mais à quelle adresse, j'ai pas envie quelle circule sur le forum Merci pascal "fabienne HUÏEZ" a écrit dans le message de news: 03d101c3a8a1$e93a77f0$ je t'ai fait une ébauche. Mais l'adresse "" me retourne "Undelivered mail" Si tu veux, envoies moi ton adresse exacte et je te retournerais un fichier d'exemple
fabienne
-----Message d'origine----- Bonjour, J'ai une feuille "Janvier" avec en A2/01/03 et en A32= 31/01/03. J'ai
déroulé le mois de A2 à A32 En B1 J'ai Heures début et en C1 Heures fin. Je voudrais à l'aide d'un formulaire saisir mes heures sur une Plage de
date. J'aurais donc sur ce formulaire date de début, date de fin, heures début , heure fin. Sur Ok je voudrais que
cela recopie les heures saisie sur la plage concernée sachant que 12
feuilles pour 12 mois.
Merci
Pascal
.
Pascal
Non non Alain, Il s'agit d'une User Form Mais je vais essayer ton code Merci "AV" a écrit dans le message de news: #
Questions :
Je voudrais à l'aide d'un formulaire ........ S'agit-il d'un UserForm, boite de dial XL5 ou une feuille de calcul ?
J'aurais donc sur ce formulaire date de début, date de fin........ La date de fin peut-elle être sup à la date de début ?
Ebauche de réponse/piste en supposant que - la saisie se fait sur une feuille (facilité de controle des valeurs saisies)
- les feuilles portent les noms des mois : Janvier...Décembre - il y a des plages nommées (dans la feuille de saisie) : "DatDéb", "DatFin", "HeurDéb", "HeurFin" - la différence horaire est à reporter en colonne B de la feuille du mois
Sub zzz() x = [DatDéb] * 1: y = [DatFin] * 1 If x = y Then nomF = Format(x, "mmmm") ligneF = Application.Match([DatDéb] * 1, Sheets(nomF).Range("A:A"), 0) + 1
Range(nomF & "!B" & ligneF).Value = [HeurFin] - [HeurDéb] Else '.........à voir End If End Sub
AV
Non non Alain,
Il s'agit d'une User Form
Mais je vais essayer ton code
Merci
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
#OIORRNqDHA.744@tk2msftngp13.phx.gbl...
Questions :
Je voudrais à l'aide d'un formulaire ........
S'agit-il d'un UserForm, boite de dial XL5 ou une feuille de calcul ?
J'aurais donc sur ce formulaire date de début, date de fin........
La date de fin peut-elle être sup à la date de début ?
Ebauche de réponse/piste en supposant que
- la saisie se fait sur une feuille (facilité de controle des valeurs
saisies)
- les feuilles portent les noms des mois : Janvier...Décembre
- il y a des plages nommées (dans la feuille de saisie) :
"DatDéb", "DatFin", "HeurDéb", "HeurFin"
- la différence horaire est à reporter en colonne B de la feuille du mois
Sub zzz()
x = [DatDéb] * 1: y = [DatFin] * 1
If x = y Then
nomF = Format(x, "mmmm")
ligneF = Application.Match([DatDéb] * 1, Sheets(nomF).Range("A:A"), 0)
+ 1
Range(nomF & "!B" & ligneF).Value = [HeurFin] - [HeurDéb]
Else '.........à voir
End If
End Sub
Non non Alain, Il s'agit d'une User Form Mais je vais essayer ton code Merci "AV" a écrit dans le message de news: #
Questions :
Je voudrais à l'aide d'un formulaire ........ S'agit-il d'un UserForm, boite de dial XL5 ou une feuille de calcul ?
J'aurais donc sur ce formulaire date de début, date de fin........ La date de fin peut-elle être sup à la date de début ?
Ebauche de réponse/piste en supposant que - la saisie se fait sur une feuille (facilité de controle des valeurs saisies)
- les feuilles portent les noms des mois : Janvier...Décembre - il y a des plages nommées (dans la feuille de saisie) : "DatDéb", "DatFin", "HeurDéb", "HeurFin" - la différence horaire est à reporter en colonne B de la feuille du mois
Sub zzz() x = [DatDéb] * 1: y = [DatFin] * 1 If x = y Then nomF = Format(x, "mmmm") ligneF = Application.Match([DatDéb] * 1, Sheets(nomF).Range("A:A"), 0) + 1
Range(nomF & "!B" & ligneF).Value = [HeurFin] - [HeurDéb] Else '.........à voir End If End Sub
AV
Pascal
J'ai essayé ton code en le mettant dans un module, mais il fonctionne pas. J'ai donc 12 feuilles Janvier...Décembre plus une Saisie Avec zone nommée en D5 D7 D9 D11(HeurDéb etc) 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). En A3 j'ai date, en B3 N° de semaine, C3 Quantiéme, D3 Arrivée (correspondant à HeurDéb) en E3 départ, en F3 pause le temps de travail étant en G3 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;""))
Merci
"AV" a écrit dans le message de news: #
Questions :
Je voudrais à l'aide d'un formulaire ........ S'agit-il d'un UserForm, boite de dial XL5 ou une feuille de calcul ?
J'aurais donc sur ce formulaire date de début, date de fin........ La date de fin peut-elle être sup à la date de début ?
Ebauche de réponse/piste en supposant que - la saisie se fait sur une feuille (facilité de controle des valeurs saisies)
- les feuilles portent les noms des mois : Janvier...Décembre - il y a des plages nommées (dans la feuille de saisie) : "DatDéb", "DatFin", "HeurDéb", "HeurFin" - la différence horaire est à reporter en colonne B de la feuille du mois
Sub zzz() x = [DatDéb] * 1: y = [DatFin] * 1 If x = y Then nomF = Format(x, "mmmm") ligneF = Application.Match([DatDéb] * 1, Sheets(nomF).Range("A:A"), 0) + 1
Range(nomF & "!B" & ligneF).Value = [HeurFin] - [HeurDéb] Else '.........à voir End If End Sub
AV
J'ai essayé ton code en le mettant dans un module, mais il fonctionne pas.
J'ai donc 12 feuilles Janvier...Décembre plus une Saisie
Avec zone nommée en D5 D7 D9 D11(HeurDéb etc)
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).
En A3 j'ai date, en B3 N° de semaine, C3 Quantiéme, D3 Arrivée
(correspondant à HeurDéb) en E3 départ, en F3 pause le temps de travail
étant en G3 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;""))
Merci
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
#OIORRNqDHA.744@tk2msftngp13.phx.gbl...
Questions :
Je voudrais à l'aide d'un formulaire ........
S'agit-il d'un UserForm, boite de dial XL5 ou une feuille de calcul ?
J'aurais donc sur ce formulaire date de début, date de fin........
La date de fin peut-elle être sup à la date de début ?
Ebauche de réponse/piste en supposant que
- la saisie se fait sur une feuille (facilité de controle des valeurs
saisies)
- les feuilles portent les noms des mois : Janvier...Décembre
- il y a des plages nommées (dans la feuille de saisie) :
"DatDéb", "DatFin", "HeurDéb", "HeurFin"
- la différence horaire est à reporter en colonne B de la feuille du mois
Sub zzz()
x = [DatDéb] * 1: y = [DatFin] * 1
If x = y Then
nomF = Format(x, "mmmm")
ligneF = Application.Match([DatDéb] * 1, Sheets(nomF).Range("A:A"), 0)
+ 1
Range(nomF & "!B" & ligneF).Value = [HeurFin] - [HeurDéb]
Else '.........à voir
End If
End Sub
J'ai essayé ton code en le mettant dans un module, mais il fonctionne pas. J'ai donc 12 feuilles Janvier...Décembre plus une Saisie Avec zone nommée en D5 D7 D9 D11(HeurDéb etc) 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). En A3 j'ai date, en B3 N° de semaine, C3 Quantiéme, D3 Arrivée (correspondant à HeurDéb) en E3 départ, en F3 pause le temps de travail étant en G3 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;""))
Merci
"AV" a écrit dans le message de news: #
Questions :
Je voudrais à l'aide d'un formulaire ........ S'agit-il d'un UserForm, boite de dial XL5 ou une feuille de calcul ?
J'aurais donc sur ce formulaire date de début, date de fin........ La date de fin peut-elle être sup à la date de début ?
Ebauche de réponse/piste en supposant que - la saisie se fait sur une feuille (facilité de controle des valeurs saisies)
- les feuilles portent les noms des mois : Janvier...Décembre - il y a des plages nommées (dans la feuille de saisie) : "DatDéb", "DatFin", "HeurDéb", "HeurFin" - la différence horaire est à reporter en colonne B de la feuille du mois
Sub zzz() x = [DatDéb] * 1: y = [DatFin] * 1 If x = y Then nomF = Format(x, "mmmm") ligneF = Application.Match([DatDéb] * 1, Sheets(nomF).Range("A:A"), 0) + 1
Range(nomF & "!B" & ligneF).Value = [HeurFin] - [HeurDéb] Else '.........à voir End If End Sub
AV
AV
J'ai essayé ton code en le mettant dans un module, mais il fonctionne pas.
Ben chez moi..... très bien... Faut adapter le code à tes plages
PS : C'est (quasi) totalement transposable avec un UserForm AV
J'ai essayé ton code en le mettant dans un module, mais il fonctionne pas.
Ben chez moi..... très bien...
Faut adapter le code à tes plages
PS : C'est (quasi) totalement transposable avec un UserForm
AV
