Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Copier dates d'un formulaire

Copier dates d'un formulaire

7 réponses
Avatar
A COSTA
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
Signaler un problème avec ce contenu

7 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
Avatar
JPMonnier
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


Avatar
A COSTA
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




Avatar
Daniel.C
Formate les cellules C3 et B3 avec jjjj jj/mm/aaaa
Daniel

A COSTA a écrit :
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







Avatar
JPMonnier
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






Avatar
A COSTA
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
>>
>>




Avatar
A COSTA
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
> >>
> >>
>
>


Avatar
JPMonnier
Re,
ajoute Cdate derrièere [c3] et [d3]
Private Sub ComboBox1_Change()
Me.ComboBox1 = Format(CDate(Me.ComboBox1), "dd/mm/yyyy")
Sheets("sheet1").[c3] = CDate(Me.ComboBox1)
End Sub

Private Sub ComboBox2_Change()
Me.ComboBox2 = Format(CDate(Me.ComboBox2), "dd/mm/yyyy")
Sheets("sheet1").[d3] = CDate(Me.ComboBox2)
Me.TextBox1 = Sheets("sheet1").[d9]
End Sub

--
Cordialement

"A COSTA" a écrit dans le message de
news:
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
> >>
> >>
>
>