Problème avec vbKeyClear

[syl0038]

Bonjour,
J'aimerai supprimer la valeur d'une combobox avec vbKeyClear mais cela ne fonctionne pas...
Seul vbdelete fonctione.
Voici mon code et mon fichier.

Merci par avance pour votre retour.



Private Sub ComboBox_reper1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyDelete _
Then
ComboBox_reper1.Value = ""
End If

If KeyCode = vbKeyClear _
Then
ComboBox_reper1.Value = ""
End If


End Sub

 

[Pierrot93]

Re : Problème avec vbKeyClear

Bonjour,

code comme celui ci-dessous fonctionne chez moi (excel 2003)... Après voir comment ta combo est alimentée :

Option Explicit
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyClear Or KeyCode = vbKeyDelete Then ComboBox1.Value = ""
End Sub

bon après midi
@+