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 Problème de Date

Problème de Date

11 réponses
Avatar
Cara_Dom
Bonsoir,

J'ai un formulaire sur ce formulaire j'ai une zone de liste dans cette zone
de liste il y a des dates.
ex : samedi 15 aout 2007
dimanche 16 aout 2007 etc
je selectionne une de ces date et ensuite je clic sur mon bouton valider
pour envoyer toutes les information
qui se trouve sur le formulaire dans ma feuille excel.
Le problème c'est que sur ma feuille excel se trouve bien toutes les
informations du formulaire (sauf la date)
à chaque fois j'ai une case blanche.
quelqu'un aurait il la solution.
Merci
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
Avatar
LSteph
Bonsoir,

Dans le code comment procèdes-tu?
-alimentation de la liste.
-renvoi dans la feuille.

@+

lSteph

Bonsoir,

J'ai un formulaire sur ce formulaire j'ai une zone de liste dans cette zone
de liste il y a des dates.
ex : samedi 15 aout 2007
dimanche 16 aout 2007 etc
je selectionne une de ces date et ensuite je clic sur mon bouton valider
pour envoyer toutes les information
qui se trouve sur le formulaire dans ma feuille excel.
Le problème c'est que sur ma feuille excel se trouve bien toutes les
informations du formulaire (sauf la date)
à chaque fois j'ai une case blanche.
quelqu'un aurait il la solution.
Merci




Avatar
RV
Re-bonjour Cara_Dom,
A mettre dans le code de transposition

cellule(à adapter selon besoin) = ListBox1.Value

devrait faire l'affaire ?
Cordialement ,
RV

"Cara_Dom" a écrit dans le message de news:

Bonsoir,

J'ai un formulaire sur ce formulaire j'ai une zone de liste dans cette
zone de liste il y a des dates.
ex : samedi 15 aout 2007
dimanche 16 aout 2007 etc
je selectionne une de ces date et ensuite je clic sur mon bouton valider
pour envoyer toutes les information
qui se trouve sur le formulaire dans ma feuille excel.
Le problème c'est que sur ma feuille excel se trouve bien toutes les
informations du formulaire (sauf la date)
à chaque fois j'ai une case blanche.
quelqu'un aurait il la solution.
Merci



Avatar
Cara_Dom
voici le code qui me sert à envoyer dans la feuille excel
[a500].End(xlUp).Offset(1, 0).Select
'--- Transfert Formulaire dans BD
ActiveCell.Value = Application.Proper(Me.Nom)
ActiveCell.Offset(0, 1).Value = Me.Prenom
ActiveCell.Offset(0, 2).Value = Me.Nb_de_Prs
ActiveCell.Offset(0, 3).Value = Me.Date_Arrive
ActiveCell.Offset(0, 4).Value = Me.Date_Depart
ActiveCell.Offset(0, 5).Value = Me.Num_Sem
ActiveCell.Offset(0, 6).Value = Me.Caution
ActiveCell.Offset(0, 7).Value = Me.Cheque_V
ActiveCell.Offset(0, 8).Value = Me.Cheque
ActiveCell.Offset(0, 9).Value = Me.Prix
merci de votre aide


"RV" a écrit dans le message de news:

Re-bonjour Cara_Dom,
A mettre dans le code de transposition

cellule(à adapter selon besoin) = ListBox1.Value

devrait faire l'affaire ?
Cordialement ,
RV

"Cara_Dom" a écrit dans le message de news:

Bonsoir,

J'ai un formulaire sur ce formulaire j'ai une zone de liste dans cette
zone de liste il y a des dates.
ex : samedi 15 aout 2007
dimanche 16 aout 2007 etc
je selectionne une de ces date et ensuite je clic sur mon bouton valider
pour envoyer toutes les information
qui se trouve sur le formulaire dans ma feuille excel.
Le problème c'est que sur ma feuille excel se trouve bien toutes les
informations du formulaire (sauf la date)
à chaque fois j'ai une case blanche.
quelqu'un aurait il la solution.
Merci







Avatar
LSteph
Dans cette liste de contrôles (nommés)
y a t-il celui correspondant à ta listbox?

voici le code qui me sert à envoyer dans la feuille excel
[a500].End(xlUp).Offset(1, 0).Select
'--- Transfert Formulaire dans BD
ActiveCell.Value = Application.Proper(Me.Nom)
ActiveCell.Offset(0, 1).Value = Me.Prenom
ActiveCell.Offset(0, 2).Value = Me.Nb_de_Prs
ActiveCell.Offset(0, 3).Value = Me.Date_Arrive
ActiveCell.Offset(0, 4).Value = Me.Date_Depart
ActiveCell.Offset(0, 5).Value = Me.Num_Sem
ActiveCell.Offset(0, 6).Value = Me.Caution
ActiveCell.Offset(0, 7).Value = Me.Cheque_V
ActiveCell.Offset(0, 8).Value = Me.Cheque
ActiveCell.Offset(0, 9).Value = Me.Prix
merci de votre aide


En outre, Cette méthode offre un meiilleur visuel sur ce que l'on
renseigne mais lorsqu'on relit le code n'apporte rien de plus sur la
nature du contrôle.Autant garder cela pour le .caption et repèrer
l'ordre des contrôles en leur laissant leur .name générique "TextBox "


Exemple si ce sont tous des textbox puis qu'en dernier il y ait ta liste
(c'est une supposition qu'il convient d'adapter):

'--- Transfert Formulaire dans BD
For i = 1 to 10
activecell.offset(0,i-1)=me.controls("TextBox"&i)
next
activecell.offset(0,10)=Listbox1


Cordialement.

lSteph

Avatar
Cara_Dom
oui il y en a 2
Date_Arrive
Date_Depart
[a500].End(xlUp).Offset(1, 0).Select
'--- Transfert Formulaire dans BD
ActiveCell.Value = Application.Proper(Me.Nom)
ActiveCell.Offset(0, 1).Value = Me.Prenom
ActiveCell.Offset(0, 2).Value = Me.Nb_de_Prs
ActiveCell.Offset(0, 3).Value = Me.Date_Arrive
ActiveCell.Offset(0, 4).Value = Me.Date_Depart
ActiveCell.Offset(0, 5).Value = Me.Num_Sem
ActiveCell.Offset(0, 6).Value = Me.Caution
ActiveCell.Offset(0, 7).Value = Me.Cheque_V
ActiveCell.Offset(0, 8).Value = Me.Cheque
ActiveCell.Offset(0, 9).Value = Me.Prix
merci de votre aide



"LSteph" a écrit dans le message de news:
OY$
Dans cette liste de contrôles (nommés)
y a t-il celui correspondant à ta listbox?

voici le code qui me sert à envoyer dans la feuille excel
[a500].End(xlUp).Offset(1, 0).Select
'--- Transfert Formulaire dans BD
ActiveCell.Value = Application.Proper(Me.Nom)
ActiveCell.Offset(0, 1).Value = Me.Prenom
ActiveCell.Offset(0, 2).Value = Me.Nb_de_Prs
ActiveCell.Offset(0, 3).Value = Me.Date_Arrive
ActiveCell.Offset(0, 4).Value = Me.Date_Depart
ActiveCell.Offset(0, 5).Value = Me.Num_Sem
ActiveCell.Offset(0, 6).Value = Me.Caution
ActiveCell.Offset(0, 7).Value = Me.Cheque_V
ActiveCell.Offset(0, 8).Value = Me.Cheque
ActiveCell.Offset(0, 9).Value = Me.Prix
merci de votre aide


En outre, Cette méthode offre un meiilleur visuel sur ce que l'on
renseigne mais lorsqu'on relit le code n'apporte rien de plus sur la
nature du contrôle.Autant garder cela pour le .caption et repèrer l'ordre
des contrôles en leur laissant leur .name générique "TextBox "


Exemple si ce sont tous des textbox puis qu'en dernier il y ait ta liste
(c'est une supposition qu'il convient d'adapter):

'--- Transfert Formulaire dans BD
For i = 1 to 10
activecell.offset(0,i-1)=me.controls("TextBox"&i)
next
activecell.offset(0,10)=Listbox1


Cordialement.

lSteph
















Avatar
RV
Cara_Dom,
J'ai essayé de te faire un fichier à cette adresse:
http://cjoint.com/?cltCqFUQLy
Je ne sais pas si je réponds bien à la demande, je dois y aller tout le
monde est à table....
Bonne soirée
RV



"Cara_Dom" a écrit dans le message de news:

voici le code qui me sert à envoyer dans la feuille excel
[a500].End(xlUp).Offset(1, 0).Select
'--- Transfert Formulaire dans BD
ActiveCell.Value = Application.Proper(Me.Nom)
ActiveCell.Offset(0, 1).Value = Me.Prenom
ActiveCell.Offset(0, 2).Value = Me.Nb_de_Prs
ActiveCell.Offset(0, 3).Value = Me.Date_Arrive
ActiveCell.Offset(0, 4).Value = Me.Date_Depart
ActiveCell.Offset(0, 5).Value = Me.Num_Sem
ActiveCell.Offset(0, 6).Value = Me.Caution
ActiveCell.Offset(0, 7).Value = Me.Cheque_V
ActiveCell.Offset(0, 8).Value = Me.Cheque
ActiveCell.Offset(0, 9).Value = Me.Prix
merci de votre aide


"RV" a écrit dans le message de news:

Re-bonjour Cara_Dom,
A mettre dans le code de transposition

cellule(à adapter selon besoin) = ListBox1.Value

devrait faire l'affaire ?
Cordialement ,
RV

"Cara_Dom" a écrit dans le message de news:

Bonsoir,

J'ai un formulaire sur ce formulaire j'ai une zone de liste dans cette
zone de liste il y a des dates.
ex : samedi 15 aout 2007
dimanche 16 aout 2007 etc
je selectionne une de ces date et ensuite je clic sur mon bouton valider
pour envoyer toutes les information
qui se trouve sur le formulaire dans ma feuille excel.
Le problème c'est que sur ma feuille excel se trouve bien toutes les
informations du formulaire (sauf la date)
à chaque fois j'ai une case blanche.
quelqu'un aurait il la solution.
Merci











Avatar
LSteph
Pas de réponse à première question, donc par hypothèses:

-outre un item visible dans la listbox vérifie qu'il y en a bien un de
sélectionné
sinon
http://cjoint.com

@+
oui il y en a 2
Date_Arrive
Date_Depart
[a500].End(xlUp).Offset(1, 0).Select
'--- Transfert Formulaire dans BD
ActiveCell.Value = Application.Proper(Me.Nom)
ActiveCell.Offset(0, 1).Value = Me.Prenom
ActiveCell.Offset(0, 2).Value = Me.Nb_de_Prs
ActiveCell.Offset(0, 3).Value = Me.Date_Arrive
ActiveCell.Offset(0, 4).Value = Me.Date_Depart
ActiveCell.Offset(0, 5).Value = Me.Num_Sem
ActiveCell.Offset(0, 6).Value = Me.Caution
ActiveCell.Offset(0, 7).Value = Me.Cheque_V
ActiveCell.Offset(0, 8).Value = Me.Cheque
ActiveCell.Offset(0, 9).Value = Me.Prix
merci de votre aide



"LSteph" a écrit dans le message de news:
OY$
Dans cette liste de contrôles (nommés)
y a t-il celui correspondant à ta listbox?

voici le code qui me sert à envoyer dans la feuille excel
[a500].End(xlUp).Offset(1, 0).Select
'--- Transfert Formulaire dans BD
ActiveCell.Value = Application.Proper(Me.Nom)
ActiveCell.Offset(0, 1).Value = Me.Prenom
ActiveCell.Offset(0, 2).Value = Me.Nb_de_Prs
ActiveCell.Offset(0, 3).Value = Me.Date_Arrive
ActiveCell.Offset(0, 4).Value = Me.Date_Depart
ActiveCell.Offset(0, 5).Value = Me.Num_Sem
ActiveCell.Offset(0, 6).Value = Me.Caution
ActiveCell.Offset(0, 7).Value = Me.Cheque_V
ActiveCell.Offset(0, 8).Value = Me.Cheque
ActiveCell.Offset(0, 9).Value = Me.Prix
merci de votre aide
En outre, Cette méthode offre un meiilleur visuel sur ce que l'on

renseigne mais lorsqu'on relit le code n'apporte rien de plus sur la
nature du contrôle.Autant garder cela pour le .caption et repèrer l'ordre
des contrôles en leur laissant leur .name générique "TextBox "


Exemple si ce sont tous des textbox puis qu'en dernier il y ait ta liste
(c'est une supposition qu'il convient d'adapter):

'--- Transfert Formulaire dans BD
For i = 1 to 10
activecell.offset(0,i-1)=me.controls("TextBox"&i)
next
activecell.offset(0,10)=Listbox1


Cordialement.

lSteph




















Avatar
LSteph
..oupsss
nature du contrôle.Autant garder cela pour le (.caption ) label


Avatar
Cara_Dom
le lien ne marche pas

"RV" a écrit dans le message de news:
%23wM$
Cara_Dom,
J'ai essayé de te faire un fichier à cette adresse:
http://cjoint.com/?cltCqFUQLy
Je ne sais pas si je réponds bien à la demande, je dois y aller tout le
monde est à table....
Bonne soirée
RV



"Cara_Dom" a écrit dans le message de news:

voici le code qui me sert à envoyer dans la feuille excel
[a500].End(xlUp).Offset(1, 0).Select
'--- Transfert Formulaire dans BD
ActiveCell.Value = Application.Proper(Me.Nom)
ActiveCell.Offset(0, 1).Value = Me.Prenom
ActiveCell.Offset(0, 2).Value = Me.Nb_de_Prs
ActiveCell.Offset(0, 3).Value = Me.Date_Arrive
ActiveCell.Offset(0, 4).Value = Me.Date_Depart
ActiveCell.Offset(0, 5).Value = Me.Num_Sem
ActiveCell.Offset(0, 6).Value = Me.Caution
ActiveCell.Offset(0, 7).Value = Me.Cheque_V
ActiveCell.Offset(0, 8).Value = Me.Cheque
ActiveCell.Offset(0, 9).Value = Me.Prix
merci de votre aide


"RV" a écrit dans le message de news:

Re-bonjour Cara_Dom,
A mettre dans le code de transposition

cellule(à adapter selon besoin) = ListBox1.Value

devrait faire l'affaire ?
Cordialement ,
RV

"Cara_Dom" a écrit dans le message de news:

Bonsoir,

J'ai un formulaire sur ce formulaire j'ai une zone de liste dans cette
zone de liste il y a des dates.
ex : samedi 15 aout 2007
dimanche 16 aout 2007 etc
je selectionne une de ces date et ensuite je clic sur mon bouton
valider pour envoyer toutes les information
qui se trouve sur le formulaire dans ma feuille excel.
Le problème c'est que sur ma feuille excel se trouve bien toutes les
informations du formulaire (sauf la date)
à chaque fois j'ai une case blanche.
quelqu'un aurait il la solution.
Merci















Avatar
RV
Si, si le lien fonctionne, je viens de le tester.
@+ tard
RV

"Cara_Dom" a écrit dans le message de news:

le lien ne marche pas

"RV" a écrit dans le message de news:
%23wM$
Cara_Dom,
J'ai essayé de te faire un fichier à cette adresse:
http://cjoint.com/?cltCqFUQLy
Je ne sais pas si je réponds bien à la demande, je dois y aller tout le
monde est à table....
Bonne soirée
RV



"Cara_Dom" a écrit dans le message de news:

voici le code qui me sert à envoyer dans la feuille excel
[a500].End(xlUp).Offset(1, 0).Select
'--- Transfert Formulaire dans BD
ActiveCell.Value = Application.Proper(Me.Nom)
ActiveCell.Offset(0, 1).Value = Me.Prenom
ActiveCell.Offset(0, 2).Value = Me.Nb_de_Prs
ActiveCell.Offset(0, 3).Value = Me.Date_Arrive
ActiveCell.Offset(0, 4).Value = Me.Date_Depart
ActiveCell.Offset(0, 5).Value = Me.Num_Sem
ActiveCell.Offset(0, 6).Value = Me.Caution
ActiveCell.Offset(0, 7).Value = Me.Cheque_V
ActiveCell.Offset(0, 8).Value = Me.Cheque
ActiveCell.Offset(0, 9).Value = Me.Prix
merci de votre aide


"RV" a écrit dans le message de news:

Re-bonjour Cara_Dom,
A mettre dans le code de transposition

cellule(à adapter selon besoin) = ListBox1.Value

devrait faire l'affaire ?
Cordialement ,
RV

"Cara_Dom" a écrit dans le message de news:

Bonsoir,

J'ai un formulaire sur ce formulaire j'ai une zone de liste dans cette
zone de liste il y a des dates.
ex : samedi 15 aout 2007
dimanche 16 aout 2007 etc
je selectionne une de ces date et ensuite je clic sur mon bouton
valider pour envoyer toutes les information
qui se trouve sur le formulaire dans ma feuille excel.
Le problème c'est que sur ma feuille excel se trouve bien toutes les
informations du formulaire (sauf la date)
à chaque fois j'ai une case blanche.
quelqu'un aurait il la solution.
Merci



















1 2