Discussion :

[facteur]

Bonjour
J'ai un problème que je ne parviens pas à résoudre dans l'élaboration de mon code vba pour un combobox
J'ai créer une liste déroulante dans un Combobox .
Dans cette liste déroulante, lorsque je sélectionne les premières lettres d'un nom, celui s'affiche dans mon Combobox mais je ne peux pas ensuite le sélectionner pour qu'il puisse s'incrémenter dans la cellule Excel de mon fichier.
Je dois chercher ce nom dans ma liste déroulante et là je peux ensuite le sélectionner pour qu'il puisse s'incrémenter sur ma feuille Excel.
Merci de votre aide

Voici le vode vba

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ComboBox1_Click()
 
'Copier la valeur du nom selection dans la liste deroulante et la copier sur la premiere cellule vide de la colonne J
Dim maLigne As Long
With Worksheets("DONNEE")
maLigne = .Range("J" & Rows.Count).End(xlUp).Row + 1 ' en partant du basde la colonne J,se positionne sur la derniere cellule non vide+1 de la colonne J
    .Range("J" & maLigne).value = ComboBox1.value
 
End With
End Sub

[eric4459]

Bonjour,
Si j'ai bien compris, tu saisis dans ta ComboBox les premières lettres d'un mot et celui ci s'affiche mais ne génère aucune action.
En fait c'est parce que, selon moi, tu n'as qu'un seul mot dans ta liste, qui en contient 20 par exemple, qui commence par les lettres saisies
Si dans ta liste tu as:
Voiture
Camion
Bicyclette
Avion
et que tu saisis "Avi", ton ComboxBox va afficher "Avion" mais rien ne se passe parce que tu ne cliques pas dessus

Code :

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

Private Sub ComboBox1_Click()

Je vois trois solutions pour parer à cela:

• Tapes moins de lettres ou utilises le déroulement de ton ComboBox puis CLIQUES sur le mot choisi

• Renomme ta macro
  

  Code :

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

  Private Sub ComboBox1_Change()

• Dans les propriétés de ta macro dans "Comportement" (je suppose parce ce ma version anglaise donne "Behavior") mets la valeurs "AutoWordSelect" à "False"

Eric

[unparia]

Bonjour
Il est toujours très sain et infaillible de se référer non au contenu de la partie éditable d'une combobox, mais réellement à l'article qui y est sélectionné :

Code :

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

combobox1.list(combobox1.listindex)

Et (bien entendu) uniquement si un article y a bien été sélectionné (vérifier donc que combobox1.listindex n'est pas = -1)

[facteur]

Bonjour
Eric, c'est tout à fait cela..
Effectivement, comme tu l'as proposé, j'ai opté pour la solution la plus simple

Tapes moins de lettres ou utilises le déroulement de ton ComboBox puis CLIQUES sur le mot choisi

unparia,
ta ligne de code

Code :

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

combobox1.list(combobox1.listindex)

m'affiche rien.
j'ai pas du l'inserer correctement dans mon code vba