Discussion :

[tdemsi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bifconsult]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[gFZT82]

Bonjour,

@tdemsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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.

[bifconsult]

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

?? ??

[gFZT82]

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.