Discussion :

[kidone]

Bonjour à tous,

Je viens de crééer un userform avec 2 combobox
une pour saisir la date de debut
une pour saisir la date de fin

ces 2 combobox sont alimentées par la propriété Rowsource
avec une liste de Date au format (jj/mm/aaaa)

lorsque je recupere la valeur de la combobox pour la date selectionnée
j'en ai une qui est numerique et l'autre une chaine
car quand j'ecris

Code :

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

1
2
3
4
5
dim Datdeb, Datfin as integer
Sheets("Parametres").Range("A44").Value = analyse_devis.CBdatdeb.Value
Sheets("Parametres").Range("A46").Formula = "=Value(A44) * 1"
Sheets("Parametres").Range("A45").Value = analyse_devis.CBdatfin.Value
Sheets("Parametres").Range("A47").Formula = "=Value(A45) * 1"

j'ai une erreur de depassement capacité sur DATFIN mais ok sur DATDEB
y a t'il une astuce pour les dates dans une combobox
merci d'avance

[kidone]

ça y est j'ai trouvé, la valeur numerique de la date est trop grande il faut definir comme long et pas integer
merci quand meme

[fring]

Bonjour,

Chaque variable doit être déclarée individuellement
En faisant

Code :

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

Dim X, Y As Integer

seule la variable Y est déclarée comme Integer, la variable X, n'ayant pas de déclaration spécifique, sera déclarée comme Variant par défaut.

Il faut donc écrire

Code :

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

Dim X As Integer, Y As Integer '(ou tout autres types de variables tel que Long, Boolean, String, etc...)

Raison pour laquelle tu n'avais pas d'erreur sur ta variable Datdeb