Discussion :

[philippef]

Bonjour,

Sur un Feuille j'utilise 1 combobox avec plusieurs colonnes
Les colonnes sont complétées avec une requête.
je voudrais pouvoir saisir du texte dans le combobox et enregistrer ce texte dans ma bdd.
Le souci c'est que le combobox que j'utilise ne prend pas les keyascii ou alors je ne sais pas l'utiliser . ce qui semble être le cas.
Avec la procédure le message ne s'affiche pas !!

Code :

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

1
2
3
4
5
6
 
Private Sub ComboNat_KeyPress(KeyAscii As MSForms.ReturnInteger)
    If keyscii = 13 Then
        MsgBox "j'ai cliqué sur entrée"
    End If
End Sub

J'ai bien un autre combobox dans les composants mais il n'y a qu'une colonne !!

Merci de votre aide

[ProgElecT]

Salut

Du VB6 et antérieur, plutôt du VBA ou VB.net non ?

If keyscii = 13 Then
If KeyAscii = 13 Then

[philippef]

Je suis bien sur VB6.0

j'avais vu la bourde j'ai corrigé mais rien de neuf !!

[ProgElecT]

⇒ Comment savoir si l'on utilise VBA ou VB6 ?

Private Sub ComboNat_KeyPress(KeyAscii As MSForms.ReturnInteger) sous VB.net me semble-t-il
Private Sub ComboNat_KeyPress(KeyAscii As Integer) sous VB6 et antérieur.

[philippef]

Je confirme VB 6 avec l'icone 32

Dans "Projet" > "Composants" j'ai coché :
- Microsoft Common Dialog 6.0
- Microsoft FlexGrid Control 6.0
- Microsoft Forms 2.0 Object Library
- Microsoft Hierarchical FlexGrid Control 6.0
- Microsoft Tabbed Dialog Control 6.0
- Microsoft Windows Common Controls 2 6.0
- Microsoft Windows Common Controls 3 6.0


celui que j'utilise est : Private Sub ComboNat_KeyPress(KeyAscii As MSForms.ReturnInteger)

Donc il semble qu'il ne soit pas correcte mais si j'utilise l'autre combobox je n'ai pas plusieurs colonnes ou alors je ne sais pas le paramétrer !!

[l_autodidacte]

Private Sub ComboNat_KeyPress(KeyAscii As MSForms.ReturnInteger) sous VB.net me semble-t-il

C'est bien du VB6 mais avec le contrôle ComboBox de Microsoft Forms 2.0 Object Library qui a la propriété ColumnCount(d'où plusieurs colonnes).

[ProgElecT]

Salut

Je n'ai jamais utilisé le composant Form2, car il pouvait poser des problèmes de distribution.
Pour autant,
Il n'y a pas de détection de toutes les touches dans l'évènement KeyPress.
Une solution est d'utiliser l'évènement KeyUp
Pour l'exemple j'ai mis le ComboBox et 2 Label sur le Form

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Private Sub Form_Load()
ComboBox1.AddItem "Un"
ComboBox1.AddItem "Deux"
ComboBox1.AddItem "Trois"
End Sub
Private Sub ComboBox1_KeyPress(KeyAscii As MSForms.ReturnInteger)
Label1.Caption = Chr(KeyAscii)
End Sub
Private Sub ComboBox1_KeyUp(KeyCode As MSForms.ReturnInteger, Shift As Integer)
If KeyCode = 13 Then
    Label2.Caption = "j'ai cliqué sur entrée, le contenu est " & ComboBox1.Text
End If
End Sub