Bonjour,
Je n'arrive pas à copier correctement les dates d'un formulaire pour la
feuil.
Je vous envoi un exemple.
Pourriez-vous m'aider?
Cordialement
A. Costa
http://cjoint.com/?kwlmXJjiVp
Bonjour,
Je n'arrive pas à copier correctement les dates d'un formulaire pour la
feuil.
Je vous envoi un exemple.
Pourriez-vous m'aider?
Cordialement
A. Costa
http://cjoint.com/?kwlmXJjiVp
Bonjour,
Je n'arrive pas à copier correctement les dates d'un formulaire pour la
feuil.
Je vous envoi un exemple.
Pourriez-vous m'aider?
Cordialement
A. Costa
http://cjoint.com/?kwlmXJjiVp
Bonjour,
Private Sub ComboBox1_Change()
Me.ComboBox1 = Format(CDate(Me.ComboBox1), "dd/mm/yyyy")
Sheets("sheet1").[c3] = Me.ComboBox1
End Sub
Private Sub ComboBox2_Change()
Me.ComboBox2 = Format(CDate(Me.ComboBox2), "dd/mm/yyyy")
Sheets("sheet1").[d3] = Me.ComboBox2
Me.TextBox1 = Sheets("sheet1").[d9]
End Sub
--
Cordialement
"A COSTA" a écrit dans le message de
news:
> Bonjour,
> Je n'arrive pas à copier correctement les dates d'un formulaire pour la
> feuil.
> Je vous envoi un exemple.
> Pourriez-vous m'aider?
> Cordialement
> A. Costa
>
> http://cjoint.com/?kwlmXJjiVp
Bonjour,
Private Sub ComboBox1_Change()
Me.ComboBox1 = Format(CDate(Me.ComboBox1), "dd/mm/yyyy")
Sheets("sheet1").[c3] = Me.ComboBox1
End Sub
Private Sub ComboBox2_Change()
Me.ComboBox2 = Format(CDate(Me.ComboBox2), "dd/mm/yyyy")
Sheets("sheet1").[d3] = Me.ComboBox2
Me.TextBox1 = Sheets("sheet1").[d9]
End Sub
--
Cordialement
jpmonnier-nospam@neuf.fr
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news:AFC183ED-EE0A-4FEF-8692-9CDFAAFE0D49@microsoft.com...
> Bonjour,
> Je n'arrive pas à copier correctement les dates d'un formulaire pour la
> feuil.
> Je vous envoi un exemple.
> Pourriez-vous m'aider?
> Cordialement
> A. Costa
>
> http://cjoint.com/?kwlmXJjiVp
Bonjour,
Private Sub ComboBox1_Change()
Me.ComboBox1 = Format(CDate(Me.ComboBox1), "dd/mm/yyyy")
Sheets("sheet1").[c3] = Me.ComboBox1
End Sub
Private Sub ComboBox2_Change()
Me.ComboBox2 = Format(CDate(Me.ComboBox2), "dd/mm/yyyy")
Sheets("sheet1").[d3] = Me.ComboBox2
Me.TextBox1 = Sheets("sheet1").[d9]
End Sub
--
Cordialement
"A COSTA" a écrit dans le message de
news:
> Bonjour,
> Je n'arrive pas à copier correctement les dates d'un formulaire pour la
> feuil.
> Je vous envoi un exemple.
> Pourriez-vous m'aider?
> Cordialement
> A. Costa
>
> http://cjoint.com/?kwlmXJjiVp
Un grand merci mais j'oblié de preciser une autre demande.
Dans les celules B3 et E3 j'aimerais indiquer le jour de la semaine et avec
ces commandes ça ne marche pas.
Si c'est pas possible je peux oblier ça.
Cordialement
http://cjoint.com/?kwmwNhAX6G
"JPMonnier" a écrit :Bonjour,
Private Sub ComboBox1_Change()
Me.ComboBox1 = Format(CDate(Me.ComboBox1), "dd/mm/yyyy")
Sheets("sheet1").[c3] = Me.ComboBox1
End Sub
Private Sub ComboBox2_Change()
Me.ComboBox2 = Format(CDate(Me.ComboBox2), "dd/mm/yyyy")
Sheets("sheet1").[d3] = Me.ComboBox2
Me.TextBox1 = Sheets("sheet1").[d9]
End Sub
--
Cordialement
"A COSTA" a écrit dans le message de
news:Bonjour,
Je n'arrive pas à copier correctement les dates d'un formulaire pour la
feuil.
Je vous envoi un exemple.
Pourriez-vous m'aider?
Cordialement
A. Costa
http://cjoint.com/?kwlmXJjiVp
Un grand merci mais j'oblié de preciser une autre demande.
Dans les celules B3 et E3 j'aimerais indiquer le jour de la semaine et avec
ces commandes ça ne marche pas.
Si c'est pas possible je peux oblier ça.
Cordialement
http://cjoint.com/?kwmwNhAX6G
"JPMonnier" a écrit :
Bonjour,
Private Sub ComboBox1_Change()
Me.ComboBox1 = Format(CDate(Me.ComboBox1), "dd/mm/yyyy")
Sheets("sheet1").[c3] = Me.ComboBox1
End Sub
Private Sub ComboBox2_Change()
Me.ComboBox2 = Format(CDate(Me.ComboBox2), "dd/mm/yyyy")
Sheets("sheet1").[d3] = Me.ComboBox2
Me.TextBox1 = Sheets("sheet1").[d9]
End Sub
--
Cordialement
jpmonnier-nospam@neuf.fr
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news:AFC183ED-EE0A-4FEF-8692-9CDFAAFE0D49@microsoft.com...
Bonjour,
Je n'arrive pas à copier correctement les dates d'un formulaire pour la
feuil.
Je vous envoi un exemple.
Pourriez-vous m'aider?
Cordialement
A. Costa
http://cjoint.com/?kwlmXJjiVp
Un grand merci mais j'oblié de preciser une autre demande.
Dans les celules B3 et E3 j'aimerais indiquer le jour de la semaine et avec
ces commandes ça ne marche pas.
Si c'est pas possible je peux oblier ça.
Cordialement
http://cjoint.com/?kwmwNhAX6G
"JPMonnier" a écrit :Bonjour,
Private Sub ComboBox1_Change()
Me.ComboBox1 = Format(CDate(Me.ComboBox1), "dd/mm/yyyy")
Sheets("sheet1").[c3] = Me.ComboBox1
End Sub
Private Sub ComboBox2_Change()
Me.ComboBox2 = Format(CDate(Me.ComboBox2), "dd/mm/yyyy")
Sheets("sheet1").[d3] = Me.ComboBox2
Me.TextBox1 = Sheets("sheet1").[d9]
End Sub
--
Cordialement
"A COSTA" a écrit dans le message de
news:Bonjour,
Je n'arrive pas à copier correctement les dates d'un formulaire pour la
feuil.
Je vous envoi un exemple.
Pourriez-vous m'aider?
Cordialement
A. Costa
http://cjoint.com/?kwlmXJjiVp
Un grand merci mais j'oblié de preciser une autre demande.
Dans les celules B3 et E3 j'aimerais indiquer le jour de la semaine et
avec
ces commandes ça ne marche pas.
Si c'est pas possible je peux oblier ça.
Cordialement
http://cjoint.com/?kwmwNhAX6G
"JPMonnier" a écrit :Bonjour,
Private Sub ComboBox1_Change()
Me.ComboBox1 = Format(CDate(Me.ComboBox1), "dd/mm/yyyy")
Sheets("sheet1").[c3] = Me.ComboBox1
End Sub
Private Sub ComboBox2_Change()
Me.ComboBox2 = Format(CDate(Me.ComboBox2), "dd/mm/yyyy")
Sheets("sheet1").[d3] = Me.ComboBox2
Me.TextBox1 = Sheets("sheet1").[d9]
End Sub
--
Cordialement
"A COSTA" a écrit dans le message de
news:
> Bonjour,
> Je n'arrive pas à copier correctement les dates d'un formulaire pour la
> feuil.
> Je vous envoi un exemple.
> Pourriez-vous m'aider?
> Cordialement
> A. Costa
>
> http://cjoint.com/?kwlmXJjiVp
Un grand merci mais j'oblié de preciser une autre demande.
Dans les celules B3 et E3 j'aimerais indiquer le jour de la semaine et
avec
ces commandes ça ne marche pas.
Si c'est pas possible je peux oblier ça.
Cordialement
http://cjoint.com/?kwmwNhAX6G
"JPMonnier" a écrit :
Bonjour,
Private Sub ComboBox1_Change()
Me.ComboBox1 = Format(CDate(Me.ComboBox1), "dd/mm/yyyy")
Sheets("sheet1").[c3] = Me.ComboBox1
End Sub
Private Sub ComboBox2_Change()
Me.ComboBox2 = Format(CDate(Me.ComboBox2), "dd/mm/yyyy")
Sheets("sheet1").[d3] = Me.ComboBox2
Me.TextBox1 = Sheets("sheet1").[d9]
End Sub
--
Cordialement
jpmonnier-nospam@neuf.fr
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news:AFC183ED-EE0A-4FEF-8692-9CDFAAFE0D49@microsoft.com...
> Bonjour,
> Je n'arrive pas à copier correctement les dates d'un formulaire pour la
> feuil.
> Je vous envoi un exemple.
> Pourriez-vous m'aider?
> Cordialement
> A. Costa
>
> http://cjoint.com/?kwlmXJjiVp
Un grand merci mais j'oblié de preciser une autre demande.
Dans les celules B3 et E3 j'aimerais indiquer le jour de la semaine et
avec
ces commandes ça ne marche pas.
Si c'est pas possible je peux oblier ça.
Cordialement
http://cjoint.com/?kwmwNhAX6G
"JPMonnier" a écrit :Bonjour,
Private Sub ComboBox1_Change()
Me.ComboBox1 = Format(CDate(Me.ComboBox1), "dd/mm/yyyy")
Sheets("sheet1").[c3] = Me.ComboBox1
End Sub
Private Sub ComboBox2_Change()
Me.ComboBox2 = Format(CDate(Me.ComboBox2), "dd/mm/yyyy")
Sheets("sheet1").[d3] = Me.ComboBox2
Me.TextBox1 = Sheets("sheet1").[d9]
End Sub
--
Cordialement
"A COSTA" a écrit dans le message de
news:
> Bonjour,
> Je n'arrive pas à copier correctement les dates d'un formulaire pour la
> feuil.
> Je vous envoi un exemple.
> Pourriez-vous m'aider?
> Cordialement
> A. Costa
>
> http://cjoint.com/?kwlmXJjiVp
Tu peux utiliser
en B3 =JOURSEM(Depart;1)
en E3 =JOURSEM(Arrive;1)
--
Cordialement
"A COSTA" a écrit dans le message de
news:
> Un grand merci mais j'oblié de preciser une autre demande.
> Dans les celules B3 et E3 j'aimerais indiquer le jour de la semaine et
> avec
> ces commandes ça ne marche pas.
> Si c'est pas possible je peux oblier ça.
> Cordialement
> http://cjoint.com/?kwmwNhAX6G
> "JPMonnier" a écrit :
>
>> Bonjour,
>> Private Sub ComboBox1_Change()
>> Me.ComboBox1 = Format(CDate(Me.ComboBox1), "dd/mm/yyyy")
>> Sheets("sheet1").[c3] = Me.ComboBox1
>>
>> End Sub
>>
>> Private Sub ComboBox2_Change()
>> Me.ComboBox2 = Format(CDate(Me.ComboBox2), "dd/mm/yyyy")
>> Sheets("sheet1").[d3] = Me.ComboBox2
>> Me.TextBox1 = Sheets("sheet1").[d9]
>> End Sub
>>
>> --
>> Cordialement
>>
>> "A COSTA" a écrit dans le message de
>> news:
>> > Bonjour,
>> > Je n'arrive pas à copier correctement les dates d'un formulaire pour la
>> > feuil.
>> > Je vous envoi un exemple.
>> > Pourriez-vous m'aider?
>> > Cordialement
>> > A. Costa
>> >
>> > http://cjoint.com/?kwlmXJjiVp
>>
>>
Tu peux utiliser
en B3 =JOURSEM(Depart;1)
en E3 =JOURSEM(Arrive;1)
--
Cordialement
jpmonnier-nospam@neuf.fr
"A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
news:80D2FE8B-DF3A-4DD6-A15B-48705A8334EF@microsoft.com...
> Un grand merci mais j'oblié de preciser une autre demande.
> Dans les celules B3 et E3 j'aimerais indiquer le jour de la semaine et
> avec
> ces commandes ça ne marche pas.
> Si c'est pas possible je peux oblier ça.
> Cordialement
> http://cjoint.com/?kwmwNhAX6G
> "JPMonnier" a écrit :
>
>> Bonjour,
>> Private Sub ComboBox1_Change()
>> Me.ComboBox1 = Format(CDate(Me.ComboBox1), "dd/mm/yyyy")
>> Sheets("sheet1").[c3] = Me.ComboBox1
>>
>> End Sub
>>
>> Private Sub ComboBox2_Change()
>> Me.ComboBox2 = Format(CDate(Me.ComboBox2), "dd/mm/yyyy")
>> Sheets("sheet1").[d3] = Me.ComboBox2
>> Me.TextBox1 = Sheets("sheet1").[d9]
>> End Sub
>>
>> --
>> Cordialement
>> jpmonnier-nospam@neuf.fr
>> "A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
>> news:AFC183ED-EE0A-4FEF-8692-9CDFAAFE0D49@microsoft.com...
>> > Bonjour,
>> > Je n'arrive pas à copier correctement les dates d'un formulaire pour la
>> > feuil.
>> > Je vous envoi un exemple.
>> > Pourriez-vous m'aider?
>> > Cordialement
>> > A. Costa
>> >
>> > http://cjoint.com/?kwlmXJjiVp
>>
>>
Tu peux utiliser
en B3 =JOURSEM(Depart;1)
en E3 =JOURSEM(Arrive;1)
--
Cordialement
"A COSTA" a écrit dans le message de
news:
> Un grand merci mais j'oblié de preciser une autre demande.
> Dans les celules B3 et E3 j'aimerais indiquer le jour de la semaine et
> avec
> ces commandes ça ne marche pas.
> Si c'est pas possible je peux oblier ça.
> Cordialement
> http://cjoint.com/?kwmwNhAX6G
> "JPMonnier" a écrit :
>
>> Bonjour,
>> Private Sub ComboBox1_Change()
>> Me.ComboBox1 = Format(CDate(Me.ComboBox1), "dd/mm/yyyy")
>> Sheets("sheet1").[c3] = Me.ComboBox1
>>
>> End Sub
>>
>> Private Sub ComboBox2_Change()
>> Me.ComboBox2 = Format(CDate(Me.ComboBox2), "dd/mm/yyyy")
>> Sheets("sheet1").[d3] = Me.ComboBox2
>> Me.TextBox1 = Sheets("sheet1").[d9]
>> End Sub
>>
>> --
>> Cordialement
>>
>> "A COSTA" a écrit dans le message de
>> news:
>> > Bonjour,
>> > Je n'arrive pas à copier correctement les dates d'un formulaire pour la
>> > feuil.
>> > Je vous envoi un exemple.
>> > Pourriez-vous m'aider?
>> > Cordialement
>> > A. Costa
>> >
>> > http://cjoint.com/?kwlmXJjiVp
>>
>>
Merci encore une fois
"JPMonnier" a écrit :
> Tu peux utiliser
> en B3 =JOURSEM(Depart;1)
> en E3 =JOURSEM(Arrive;1)
> --
> Cordialement
>
> "A COSTA" a écrit dans le message de
> news:
> > Un grand merci mais j'oblié de preciser une autre demande.
> > Dans les celules B3 et E3 j'aimerais indiquer le jour de la semaine et
> > avec
> > ces commandes ça ne marche pas.
> > Si c'est pas possible je peux oblier ça.
> > Cordialement
> > http://cjoint.com/?kwmwNhAX6G
> > "JPMonnier" a écrit :
> >
> >> Bonjour,
> >> Private Sub ComboBox1_Change()
> >> Me.ComboBox1 = Format(CDate(Me.ComboBox1), "dd/mm/yyyy")
> >> Sheets("sheet1").[c3] = Me.ComboBox1
> >>
> >> End Sub
> >>
> >> Private Sub ComboBox2_Change()
> >> Me.ComboBox2 = Format(CDate(Me.ComboBox2), "dd/mm/yyyy")
> >> Sheets("sheet1").[d3] = Me.ComboBox2
> >> Me.TextBox1 = Sheets("sheet1").[d9]
> >> End Sub
> >>
> >> --
> >> Cordialement
> >>
> >> "A COSTA" a écrit dans le message de
> >> news:
> >> > Bonjour,
> >> > Je n'arrive pas à copier correctement les dates d'un formulaire pour la
> >> > feuil.
> >> > Je vous envoi un exemple.
> >> > Pourriez-vous m'aider?
> >> > Cordialement
> >> > A. Costa
> >> >
> >> > http://cjoint.com/?kwlmXJjiVp
> >>
> >>
>
>
Merci encore une fois
"JPMonnier" a écrit :
> Tu peux utiliser
> en B3 =JOURSEM(Depart;1)
> en E3 =JOURSEM(Arrive;1)
> --
> Cordialement
> jpmonnier-nospam@neuf.fr
> "A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
> news:80D2FE8B-DF3A-4DD6-A15B-48705A8334EF@microsoft.com...
> > Un grand merci mais j'oblié de preciser une autre demande.
> > Dans les celules B3 et E3 j'aimerais indiquer le jour de la semaine et
> > avec
> > ces commandes ça ne marche pas.
> > Si c'est pas possible je peux oblier ça.
> > Cordialement
> > http://cjoint.com/?kwmwNhAX6G
> > "JPMonnier" a écrit :
> >
> >> Bonjour,
> >> Private Sub ComboBox1_Change()
> >> Me.ComboBox1 = Format(CDate(Me.ComboBox1), "dd/mm/yyyy")
> >> Sheets("sheet1").[c3] = Me.ComboBox1
> >>
> >> End Sub
> >>
> >> Private Sub ComboBox2_Change()
> >> Me.ComboBox2 = Format(CDate(Me.ComboBox2), "dd/mm/yyyy")
> >> Sheets("sheet1").[d3] = Me.ComboBox2
> >> Me.TextBox1 = Sheets("sheet1").[d9]
> >> End Sub
> >>
> >> --
> >> Cordialement
> >> jpmonnier-nospam@neuf.fr
> >> "A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
> >> news:AFC183ED-EE0A-4FEF-8692-9CDFAAFE0D49@microsoft.com...
> >> > Bonjour,
> >> > Je n'arrive pas à copier correctement les dates d'un formulaire pour la
> >> > feuil.
> >> > Je vous envoi un exemple.
> >> > Pourriez-vous m'aider?
> >> > Cordialement
> >> > A. Costa
> >> >
> >> > http://cjoint.com/?kwlmXJjiVp
> >>
> >>
>
>
Merci encore une fois
"JPMonnier" a écrit :
> Tu peux utiliser
> en B3 =JOURSEM(Depart;1)
> en E3 =JOURSEM(Arrive;1)
> --
> Cordialement
>
> "A COSTA" a écrit dans le message de
> news:
> > Un grand merci mais j'oblié de preciser une autre demande.
> > Dans les celules B3 et E3 j'aimerais indiquer le jour de la semaine et
> > avec
> > ces commandes ça ne marche pas.
> > Si c'est pas possible je peux oblier ça.
> > Cordialement
> > http://cjoint.com/?kwmwNhAX6G
> > "JPMonnier" a écrit :
> >
> >> Bonjour,
> >> Private Sub ComboBox1_Change()
> >> Me.ComboBox1 = Format(CDate(Me.ComboBox1), "dd/mm/yyyy")
> >> Sheets("sheet1").[c3] = Me.ComboBox1
> >>
> >> End Sub
> >>
> >> Private Sub ComboBox2_Change()
> >> Me.ComboBox2 = Format(CDate(Me.ComboBox2), "dd/mm/yyyy")
> >> Sheets("sheet1").[d3] = Me.ComboBox2
> >> Me.TextBox1 = Sheets("sheet1").[d9]
> >> End Sub
> >>
> >> --
> >> Cordialement
> >>
> >> "A COSTA" a écrit dans le message de
> >> news:
> >> > Bonjour,
> >> > Je n'arrive pas à copier correctement les dates d'un formulaire pour la
> >> > feuil.
> >> > Je vous envoi un exemple.
> >> > Pourriez-vous m'aider?
> >> > Cordialement
> >> > A. Costa
> >> >
> >> > http://cjoint.com/?kwlmXJjiVp
> >>
> >>
>
>
Re-bonjour
Si vous avez remarqué dans le fichier que j'ai envoyé, la cellule D6 c'est
le calcul des jours fériés entre les dates.
Or, quand la copie se fait du formulaire pour la feuille, il y a un '
avant
les dates, ce que empêche le calcul, et les jours fériées doivent etre
deduits.
Cordialement,
A Costa
"A COSTA" a écrit :Merci encore une fois
"JPMonnier" a écrit :
> Tu peux utiliser
> en B3 =JOURSEM(Depart;1)
> en E3 =JOURSEM(Arrive;1)
> --
> Cordialement
>
> "A COSTA" a écrit dans le message de
> news:
> > Un grand merci mais j'oblié de preciser une autre demande.
> > Dans les celules B3 et E3 j'aimerais indiquer le jour de la semaine
> > et
> > avec
> > ces commandes ça ne marche pas.
> > Si c'est pas possible je peux oblier ça.
> > Cordialement
> > http://cjoint.com/?kwmwNhAX6G
> > "JPMonnier" a écrit :
> >
> >> Bonjour,
> >> Private Sub ComboBox1_Change()
> >> Me.ComboBox1 = Format(CDate(Me.ComboBox1), "dd/mm/yyyy")
> >> Sheets("sheet1").[c3] = Me.ComboBox1
> >>
> >> End Sub
> >>
> >> Private Sub ComboBox2_Change()
> >> Me.ComboBox2 = Format(CDate(Me.ComboBox2), "dd/mm/yyyy")
> >> Sheets("sheet1").[d3] = Me.ComboBox2
> >> Me.TextBox1 = Sheets("sheet1").[d9]
> >> End Sub
> >>
> >> --
> >> Cordialement
> >>
> >> "A COSTA" a écrit dans le message
> >> de
> >> news:
> >> > Bonjour,
> >> > Je n'arrive pas à copier correctement les dates d'un formulaire
> >> > pour la
> >> > feuil.
> >> > Je vous envoi un exemple.
> >> > Pourriez-vous m'aider?
> >> > Cordialement
> >> > A. Costa
> >> >
> >> > http://cjoint.com/?kwlmXJjiVp
> >>
> >>
>
>
Re-bonjour
Si vous avez remarqué dans le fichier que j'ai envoyé, la cellule D6 c'est
le calcul des jours fériés entre les dates.
Or, quand la copie se fait du formulaire pour la feuille, il y a un '
avant
les dates, ce que empêche le calcul, et les jours fériées doivent etre
deduits.
Cordialement,
A Costa
"A COSTA" a écrit :
Merci encore une fois
"JPMonnier" a écrit :
> Tu peux utiliser
> en B3 =JOURSEM(Depart;1)
> en E3 =JOURSEM(Arrive;1)
> --
> Cordialement
> jpmonnier-nospam@neuf.fr
> "A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message de
> news:80D2FE8B-DF3A-4DD6-A15B-48705A8334EF@microsoft.com...
> > Un grand merci mais j'oblié de preciser une autre demande.
> > Dans les celules B3 et E3 j'aimerais indiquer le jour de la semaine
> > et
> > avec
> > ces commandes ça ne marche pas.
> > Si c'est pas possible je peux oblier ça.
> > Cordialement
> > http://cjoint.com/?kwmwNhAX6G
> > "JPMonnier" a écrit :
> >
> >> Bonjour,
> >> Private Sub ComboBox1_Change()
> >> Me.ComboBox1 = Format(CDate(Me.ComboBox1), "dd/mm/yyyy")
> >> Sheets("sheet1").[c3] = Me.ComboBox1
> >>
> >> End Sub
> >>
> >> Private Sub ComboBox2_Change()
> >> Me.ComboBox2 = Format(CDate(Me.ComboBox2), "dd/mm/yyyy")
> >> Sheets("sheet1").[d3] = Me.ComboBox2
> >> Me.TextBox1 = Sheets("sheet1").[d9]
> >> End Sub
> >>
> >> --
> >> Cordialement
> >> jpmonnier-nospam@neuf.fr
> >> "A COSTA" <ACOSTA@discussions.microsoft.com> a écrit dans le message
> >> de
> >> news:AFC183ED-EE0A-4FEF-8692-9CDFAAFE0D49@microsoft.com...
> >> > Bonjour,
> >> > Je n'arrive pas à copier correctement les dates d'un formulaire
> >> > pour la
> >> > feuil.
> >> > Je vous envoi un exemple.
> >> > Pourriez-vous m'aider?
> >> > Cordialement
> >> > A. Costa
> >> >
> >> > http://cjoint.com/?kwlmXJjiVp
> >>
> >>
>
>
Re-bonjour
Si vous avez remarqué dans le fichier que j'ai envoyé, la cellule D6 c'est
le calcul des jours fériés entre les dates.
Or, quand la copie se fait du formulaire pour la feuille, il y a un '
avant
les dates, ce que empêche le calcul, et les jours fériées doivent etre
deduits.
Cordialement,
A Costa
"A COSTA" a écrit :Merci encore une fois
"JPMonnier" a écrit :
> Tu peux utiliser
> en B3 =JOURSEM(Depart;1)
> en E3 =JOURSEM(Arrive;1)
> --
> Cordialement
>
> "A COSTA" a écrit dans le message de
> news:
> > Un grand merci mais j'oblié de preciser une autre demande.
> > Dans les celules B3 et E3 j'aimerais indiquer le jour de la semaine
> > et
> > avec
> > ces commandes ça ne marche pas.
> > Si c'est pas possible je peux oblier ça.
> > Cordialement
> > http://cjoint.com/?kwmwNhAX6G
> > "JPMonnier" a écrit :
> >
> >> Bonjour,
> >> Private Sub ComboBox1_Change()
> >> Me.ComboBox1 = Format(CDate(Me.ComboBox1), "dd/mm/yyyy")
> >> Sheets("sheet1").[c3] = Me.ComboBox1
> >>
> >> End Sub
> >>
> >> Private Sub ComboBox2_Change()
> >> Me.ComboBox2 = Format(CDate(Me.ComboBox2), "dd/mm/yyyy")
> >> Sheets("sheet1").[d3] = Me.ComboBox2
> >> Me.TextBox1 = Sheets("sheet1").[d9]
> >> End Sub
> >>
> >> --
> >> Cordialement
> >>
> >> "A COSTA" a écrit dans le message
> >> de
> >> news:
> >> > Bonjour,
> >> > Je n'arrive pas à copier correctement les dates d'un formulaire
> >> > pour la
> >> > feuil.
> >> > Je vous envoi un exemple.
> >> > Pourriez-vous m'aider?
> >> > Cordialement
> >> > A. Costa
> >> >
> >> > http://cjoint.com/?kwlmXJjiVp
> >>
> >>
>
>