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

[philippef]

Bonjour et merci pour vos réponses.

j'ai fait des tests et KeyUp ne réagit pas aux codes 8 et 13 alors après plusieurs tests voici ce j'ai trouvé et qui fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub ComboNat_KeyDown(KeyCode As MSForms.ReturnInteger, Shift As Integer)
If KeyCode = 8 Then
    Label9.Caption = Left(Label9.Caption, Len(Label9.Caption) - 1)
End If
If KeyCode = 13 Then
    MsgBox "J'ai cliqué sur entrée et j'ai entré :" & Label9.Caption & " "
End If
End Sub
Private Sub ComboNat_KeyPress(KeyAscii As MSForms.ReturnInteger)
    Label9.Caption = Label9.Caption + Chr(KeyAscii)
End Sub

Maintenant, lorsque le KeyCode = 13 je vais afficher un message pour demander à l'utilisateur s'il souhaite enregistrer sa saisie.

Merci encore
Je place un Résolu mais....

[philippef]

Je n'ai jamais utilisé le composant Form2, car il pouvait poser des problèmes de distribution.

ça me fait un peu peur !! Quelles peuvent être les problèmes de distribution ?

Qu'est ce qui pourrait remplacer un combobox avec des colonnes ?

[ProgElecT]

Salut

Le problème de distribution, pour le composant Microsoft Forms 2.0 Object Library, de mémoire, était qu'il fallait une licence spécial qui n'était pas incluse dans la version Professionnel de VB6, il aurait fallut la version Entreprise (ou vis versa, cela date ...).

Tu peux plutôt utiliser un MSHFlexGrid qui est plus performant.
Pour exemple, regarde cette discussion BDD Excel avec VB6, au postage N°20 j'ai déposé un lien en téléchargement qui illustre son l'utilisation.

Je reste abonné à cette discussion, je pourrai donc te donner toutes informations supplémentaires si besoin.