OVH Cloud OVH Cloud

Combobox

2 réponses
Avatar
Denys
Bonjour à tous,

Pourquoi avec les instructions suivantes, Excel me donne toujours le message
"Tax year cannot be greater than this year" même si je choisis 1999 dans la
liste du combobox ?????

If ComboBox4.Value > Year(Date) Then
msg = "Tax year cannot be greater than this year"
dialogstyle = vbOKOnly
Title = "Caution!!"
reponse = MsgBox(msg, dialogstyle, Title)
Cancel = True
ComboBox4.SetFocus
Exit Sub
End If


Comprends pas.....Est-ce qu'Excel ne voit pas 1999 comme un nombre mais
comme du texte?

Merci pour votre aide...

Denys

2 réponses

Avatar
ClémentMarcotte
Bonjour,

Essaie avec l'une ou l'autre des lignes suivantes. Sinon, je ne sais pas.

If cdate(ComboBox4.Value) > Year(Date) Then
ou

if clng( ComboBox4.Value) > clng(year(date)) then

"Denys" a écrit dans le message de
news:
Bonjour à tous,

Pourquoi avec les instructions suivantes, Excel me donne toujours le
message

"Tax year cannot be greater than this year" même si je choisis 1999 dans
la

liste du combobox ?????

If ComboBox4.Value > Year(Date) Then
msg = "Tax year cannot be greater than this year"
dialogstyle = vbOKOnly
Title = "Caution!!"
reponse = MsgBox(msg, dialogstyle, Title)
Cancel = True
ComboBox4.SetFocus
Exit Sub
End If


Comprends pas.....Est-ce qu'Excel ne voit pas 1999 comme un nombre mais
comme du texte?

Merci pour votre aide...

Denys



Avatar
Denys
Bonjour Clément,

If cdate(ComboBox4.Value) > Year(Date) Then

En plein dans le mille !!!!!

Merci infiniment et bonne soirée !!

Denys


Bonjour,

Essaie avec l'une ou l'autre des lignes suivantes. Sinon, je ne sais pas.

If cdate(ComboBox4.Value) > Year(Date) Then
ou

if clng( ComboBox4.Value) > clng(year(date)) then

"Denys" a écrit dans le message de
news:
Bonjour à tous,

Pourquoi avec les instructions suivantes, Excel me donne toujours le
message

"Tax year cannot be greater than this year" même si je choisis 1999 dans
la

liste du combobox ?????

If ComboBox4.Value > Year(Date) Then
msg = "Tax year cannot be greater than this year"
dialogstyle = vbOKOnly
Title = "Caution!!"
reponse = MsgBox(msg, dialogstyle, Title)
Cancel = True
ComboBox4.SetFocus
Exit Sub
End If


Comprends pas.....Est-ce qu'Excel ne voit pas 1999 comme un nombre mais
comme du texte?

Merci pour votre aide...

Denys