Saisie de valeur dans Combobox

[Sly le globe trotter]

Bonjour le forum,

J'ai récupéré un code vba venant charger, dans Excel, des informations stockées dans une base de données Oracle.

Ces informations sont chargées dans une Combobox qui contient, après initialisation, une liste de numéro. Pour sélectionner un numéro, deux possibilités : le saisir manuellement dans la Combobox ou le sélectionner.

Mon problème survient quand je souhaite saisir le numéro dans la Combobox. Si je saisis un caractère autre qu'un chiffre (une lettre par exemple), le code plante et affiche le message suivant : [Oracle][ODBC][Ora]ORA-00904: "A" : identificateur non valide.

Est-il possible de n'autoriser la saisie que de chiffres ou à défaut gérer cette erreur et ne pas faire planter le code ?

Merci pour votre aide

 

[kjin]

Re : Saisie de valeur dans Combobox

Bonjour,

Combobox

Qule est le type de cette Combo ?
A+
kjin

 

[Sly le globe trotter]

Re : Saisie de valeur dans Combobox

Salut kjin,

qu'entends tu par type de la combobox stp ?

Merci

 

[kjin]

Re : Saisie de valeur dans Combobox

Re,
Il y a 3 types
- liste de validation
- zone combinée de la boite à outils formulaire
- combobox de la boite à outils contrôles activex
S'agit-il effectivement d'une combobox ?
A+
kjin

 

[Sly le globe trotter]

Re : Saisie de valeur dans Combobox

Salut kjin,

A priori, il s'agit bien d'une combobox, c'est comme ça qu'elle est nommée dans la fenêtre propriété de vba.
On la trouve dans la boite à outils de vba.

Merci

 

[kjin]

Re : Saisie de valeur dans Combobox

Re,
Y a t-il une macro associée ?
A+
kjin

 

[Sly le globe trotter]

Re : Saisie de valeur dans Combobox

Merci kjin de suivre mon problème.

Oui, il y a bien une macro associée comme indiqué dans mon premier message. La combobox est chargée à partir de données contenues dans une base de données Oracle.

A+

 

[kjin]

Re : Saisie de valeur dans Combobox

re,
Dans le module de la feuille

Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub

Si j'ai bien compris
A+
kjin

 

[Sly le globe trotter]

Re : Saisie de valeur dans Combobox

Impeccable, cela fonctionne à merveilles !!!
Merci pour ton aide très précieuse et le temps que tu m'as consacré.
Bonne continuation à tous