Sélection date avec combobox 12/01/2015 mais dans cellule 1 déc.
Fermé
Linebaker
Messages postés
47
Date d'inscription
vendredi 23 novembre 2012
Statut
Membre
Dernière intervention
4 septembre 2019
-
10 janv. 2015 à 17:16
Linebaker Messages postés 47 Date d'inscription vendredi 23 novembre 2012 Statut Membre Dernière intervention 4 septembre 2019 - 14 janv. 2015 à 18:09
Linebaker Messages postés 47 Date d'inscription vendredi 23 novembre 2012 Statut Membre Dernière intervention 4 septembre 2019 - 14 janv. 2015 à 18:09
A voir également:
- Sélection date avec combobox 12/01/2015 mais dans cellule 1 déc.
- Iphone 14 date de sortie - Guide
- Aller à la ligne dans une cellule excel - Guide
- Excel si cellule contient texte alors 1 ✓ - Forum Excel
- Direct x 12 - Télécharger - Pilotes & Matériel
- Df-dferh-01 ✓ - Forum Samsung
8 réponses
NHenry
Messages postés
15047
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
11 mars 2023
331
10 janv. 2015 à 17:26
10 janv. 2015 à 17:26
12/01/2015
jj/mm/aaaa (france)
ou
mm/jj/aaaa (anglophone)
?
jj/mm/aaaa (france)
ou
mm/jj/aaaa (anglophone)
?
Linebaker
Messages postés
47
Date d'inscription
vendredi 23 novembre 2012
Statut
Membre
Dernière intervention
4 septembre 2019
10 janv. 2015 à 19:16
10 janv. 2015 à 19:16
Bonjour, NHenry,
Je sélectionne 12/01/2015 (jj/mm/aaaa) et je veux aaaa/mm/jj pour qu'il soit affiché 12 janv. 2015.
Voici ma ligne de code pour alimenter le combobox :
If Controls("Combobox" & I).ListIndex = -1 Then Controls("Combobox" & I).AddItem cell
et la ligne de transfert : ActiveCell.Offset(0, 1) = CDate(ComboBox16)
Merci de ton aide
Je sélectionne 12/01/2015 (jj/mm/aaaa) et je veux aaaa/mm/jj pour qu'il soit affiché 12 janv. 2015.
Voici ma ligne de code pour alimenter le combobox :
If Controls("Combobox" & I).ListIndex = -1 Then Controls("Combobox" & I).AddItem cell
et la ligne de transfert : ActiveCell.Offset(0, 1) = CDate(ComboBox16)
Merci de ton aide
NHenry
Messages postés
15047
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
11 mars 2023
331
10 janv. 2015 à 22:43
10 janv. 2015 à 22:43
As-tu regardé la fonction Format$ ?
format$(CDate(...),"...")
format$(CDate(...),"...")
Linebaker
Messages postés
47
Date d'inscription
vendredi 23 novembre 2012
Statut
Membre
Dernière intervention
4 septembre 2019
11 janv. 2015 à 12:39
11 janv. 2015 à 12:39
Bonjour NHenry,
J'ai changé la ligne :
ActiveCell.Offset(0, 1) = Format$(CDate(ComboBox16), "dd mmm yyyy")
mais j'ai toujours le 1 déc. 2015 qui s'inscrit dans la cellule.
Est-il possible que mon combobx qui s'alimente avec les dates dd mmm yyyy convertisse ce format car lorsque je choisis une date ce qu'il y a dans le combobox est dd/mm/yyyy donc pas le même format que la cellule de départ ?
Merci
J'ai changé la ligne :
ActiveCell.Offset(0, 1) = Format$(CDate(ComboBox16), "dd mmm yyyy")
mais j'ai toujours le 1 déc. 2015 qui s'inscrit dans la cellule.
Est-il possible que mon combobx qui s'alimente avec les dates dd mmm yyyy convertisse ce format car lorsque je choisis une date ce qu'il y a dans le combobox est dd/mm/yyyy donc pas le même format que la cellule de départ ?
Merci
NHenry
Messages postés
15047
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
11 mars 2023
331
11 janv. 2015 à 13:48
11 janv. 2015 à 13:48
Espionnes la valeur retournée par CDate et compares-la à la valeur de Now, tu verra si l'inversion est faite lors du CDate ou si c'est la cellule qui inverse.
Linebaker
Messages postés
47
Date d'inscription
vendredi 23 novembre 2012
Statut
Membre
Dernière intervention
4 septembre 2019
11 janv. 2015 à 13:56
11 janv. 2015 à 13:56
Salut,
CDate me donne 2015-11-01 et combobox me donne 11/01/2015.
Comment on corrige cela ?
Merci
CDate me donne 2015-11-01 et combobox me donne 11/01/2015.
Comment on corrige cela ?
Merci
NHenry
Messages postés
15047
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
11 mars 2023
331
11 janv. 2015 à 14:12
11 janv. 2015 à 14:12
Apparemment, le CDate prend le format de ton combobox comme mm/jj/aaaa.
Je pense donc qu'un simple manipulation de chaine pour transformer jj/mm/aaa en mm/jj/aaa serait suffisant pour corriger ton problème.
Voir la fonction : Mid$(...)
Je pense donc qu'un simple manipulation de chaine pour transformer jj/mm/aaa en mm/jj/aaa serait suffisant pour corriger ton problème.
Voir la fonction : Mid$(...)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Linebaker
Messages postés
47
Date d'inscription
vendredi 23 novembre 2012
Statut
Membre
Dernière intervention
4 septembre 2019
11 janv. 2015 à 14:32
11 janv. 2015 à 14:32
Salut,
Je ne vois comment MID$() pourrait résoudre le problème ???
Merci
Je ne vois comment MID$() pourrait résoudre le problème ???
Merci
NHenry
Messages postés
15047
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
11 mars 2023
331
11 janv. 2015 à 17:05
11 janv. 2015 à 17:05
Avec Mid$, tu reformatte la chaine, en inversant jj et mm.
Puis tu passe le tout à CDate.
Puis tu passe le tout à CDate.
Linebaker
Messages postés
47
Date d'inscription
vendredi 23 novembre 2012
Statut
Membre
Dernière intervention
4 septembre 2019
>
NHenry
Messages postés
15047
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
11 mars 2023
12 janv. 2015 à 13:35
12 janv. 2015 à 13:35
Alors là je ne sais vraiment pas comment faire.
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
12 janv. 2015 à 14:55
12 janv. 2015 à 14:55
Bonjour,
Voir ceci:
https://www.excel-pratique.com/fr/astuces_vba/format_dates.php
Voir ceci:
https://www.excel-pratique.com/fr/astuces_vba/format_dates.php
Linebaker
Messages postés
47
Date d'inscription
vendredi 23 novembre 2012
Statut
Membre
Dernière intervention
4 septembre 2019
12 janv. 2015 à 16:40
12 janv. 2015 à 16:40
Rien à faire, mon combobox dd mmm yyyy se transfert toujours en mmm dd yyyy.
NHenry
Messages postés
15047
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
11 mars 2023
331
12 janv. 2015 à 19:34
12 janv. 2015 à 19:34
Quel code de changement de format as-tu utilisé ?
As-tu regardé le lien de Le Pivert ?
As-tu regardé le lien de Le Pivert ?
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
13 janv. 2015 à 10:02
13 janv. 2015 à 10:02
Bonjour,
Salut tout le monde,
Bonne année à tous.
Que te réponds ce test ?
Salut tout le monde,
Bonne année à tous.
Que te réponds ce test ?
Sub Test() MsgBox Application.International(xlMDY) End Sub
Linebaker
Messages postés
47
Date d'inscription
vendredi 23 novembre 2012
Statut
Membre
Dernière intervention
4 septembre 2019
13 janv. 2015 à 15:27
13 janv. 2015 à 15:27
Salut,
La réponse : Faux.
Probablement mes paramètres régionnaux cause ce problème, mais comme c'est un fichier partagé avec chacun ses paramètres, comment forcer le format ?
Merci
La réponse : Faux.
Probablement mes paramètres régionnaux cause ce problème, mais comme c'est un fichier partagé avec chacun ses paramètres, comment forcer le format ?
Merci
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
>
Linebaker
Messages postés
47
Date d'inscription
vendredi 23 novembre 2012
Statut
Membre
Dernière intervention
4 septembre 2019
13 janv. 2015 à 15:31
13 janv. 2015 à 15:31
Non, faux signifie que tes dates sont paramétrées au format dd/mm/yyyy. Donc c'est tout bon.
A mon avis, l'erreur vient du fichier.
Peux tu nous le faire passer?
A mon avis, l'erreur vient du fichier.
Peux tu nous le faire passer?
Pour transmettre un fichier, il faut passer par un site de pièce jointe tel que cjoint.com
Va sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
Linebaker
Messages postés
47
Date d'inscription
vendredi 23 novembre 2012
Statut
Membre
Dernière intervention
4 septembre 2019
>
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
13 janv. 2015 à 16:29
13 janv. 2015 à 16:29
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
>
Linebaker
Messages postés
47
Date d'inscription
vendredi 23 novembre 2012
Statut
Membre
Dernière intervention
4 septembre 2019
13 janv. 2015 à 16:45
13 janv. 2015 à 16:45
Le fichier fournit fonctionne parfaitement chez moi.
ActiveCell.Value = CDate(ComboBox16)donne le résultat voulu...
Linebaker
Messages postés
47
Date d'inscription
vendredi 23 novembre 2012
Statut
Membre
Dernière intervention
4 septembre 2019
>
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
13 janv. 2015 à 17:13
13 janv. 2015 à 17:13
Malheureusement pas ici. De quelle manière je pourrais forcer le format ? Je n'ai plus d'idée.
J'ai essayé : ActiveCell.Offset(0, 1) = formant(CDate(ComboBox16) , yyyy mm dd mais sans succès.
J'ai essayé : ActiveCell.Offset(0, 1) = formant(CDate(ComboBox16) , yyyy mm dd mais sans succès.