Format date en Vba

Bonjour chers tous
Je suis entrain de développer un programme sur vba, la syntaxe ci-dessous marche sur mon ordinateur mais quand j'envoie le fichier sur un autre ordinateur on me parle d'incompatibilité de type. Je veux utiliser la date comme critère de sélection dans le combobox en affichant donc ce format dans l'espace combobox.

Code:

---

1 2 3

Private Sub ComboBox1_Change() ComboBox1.Value = CDate(ComboBox1.Text) End Sub

---

Bonjour,

Ceci tourne sur ma version 2010, je pense que ça devrait fonctionner sur 2007.

Code:

---

1 2 3 4 5 6

Private Sub ComboBox1_Change()   ComboBox1.Text = CDate(ComboBox1.Value) + 1   End Sub

---

En revanche, j'ai dû ajouter un +1 car sinon, 1 me renvoie 31/12/1899, 2 me renvoie 1/1/1900...

Est-ce que quelqu'un sait pourquoi ???

bc

Bonjour,

@tdemsi

Code:

---

ComboBox1.Value = CDate(ComboBox1.Text)

---

La fonction CDate est utilisée pour convertir une chaîne de caractères en Date.
Mais au final, le résultat contenu par la ComboBox sera une chaine de caractères.
Ta formule permet donc d’obtenir une notation texte standardisée de la date.
01/12 ou 01-déc ou 01-12-12 ou 41244 seront traduits 01/12/2012.
Par contre, cela sous-entend que l’expression texte initiale peut être interprétée comme une date.
Dans le cas contraire, tu as une incompatibilité de type.

@bifconsult

Citation:

---

En revanche, j'ai dû ajouter un +1 car sinon, 1 me renvoie 31/12/1899, 2 me renvoie 1/1/1900...

---

Voici une explication tirée du document suivant :
http://didier-gonard.developpez.com/...l-et-vba/#LIII
En VBA, le calendrier débute au 31 décembre 1899 (numéro de série 1).
La date nulle (numéro de série 1) correspond bien au 30 décembre 1899 mais, VBA ne sait pas l'afficher (il retourne 00:00:00).

Cordialement.

Citation:

---

Envoyé par gFZT82

En VBA, le calendrier débute au 31 décembre 1899 (numéro de série 1).
La date nulle (numéro de série 1) correspond bien au 30 décembre 1899 mais, VBA ne sait pas l'afficher (il retourne 00:00:00).

---

Donc, si je comprends bien:
-en Excel : 1 = 1/1/1900
-en VBA pour Excel : 1 = 31/12/1899

?? 8O ??

Eh oui ! très bien expliqué dans le document de Didier Gonard.

Comme contrairement aux feuilles, VBA refuse l'affectation du 29 février 1900 à une date (car l'année 1900 n'est pas bissextile), il résulte que les dates antérieures au 1er mars 1900 ne possèdent pas, sous Excel et en VBA, le même numéro de série, mais qu'à partir du 1er mars 1900, les numéros de série sont identiques.

Cordialement.