combobox en format numérique

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:

---

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

ç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

Bonjour,

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

Code:

---

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:

---

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