Combo Box sélection

Bonjour forum

Une petite question sur quelque chose d'anodin - mais très "time consuming".
J'ai un combo box (deux pelletés à tout dire) dont les sélections possibles proviennent d'un rowsource. Lorsque la sélection est changée, la nouvelle sélection demeure active (en surbrillance) jusqu'à ce que l'on clique à nouveau dans la fenêtre. Y a-t-il une raison à cela ? y a-t-il une propriété liée à ce comportement ?

Merci à l'avance

Bo

Bonjour,
Je ne comprend pas bien ton problème, c'est normal que tant que ton combo a le focus il reste en surbrillance.
Sinon, si tu met le focus sur un autre contrôle et qu'il reste en surbrillance tu peu mettre la propriété HideSelection à true, mais normalement c'est la valeur par défaut.
A+

Bonjour,
SI j'ai bien compris dans un premier temps ta combobox permet de selectionner AAAA, BBBB, CCCC L'utilisateur choisi BBBB
Le row source change du coup on peu choisir, ABC, DEF,GHI mais on a toujours BBBB de sélectionné et c'est ce qui t'ennuie. C'est bien ca?


Après quelque teste la seule solution que je voi (mais il y en a peut être une autre) est d'effacer la valeur de la combobox au moment ou tu modifie le row source (ou sont contenu).

Code:

---

ComboBox1.Value = ""

---

Si la modification est faite par macro il te suffit de rajouter cette ligne dans ton code.
Si le contenu peut être modifié autrement (manuellement) il te faudra peut être passer par l'évènement worksheet_change (voir le tuto les évènement des feuille de calcul). Tu test si le contenu de la combobox est présent dans la nouvelle zone du row source si ce n'est pas le cas tu efface la combo box

Voila un petit code rapide qui fait ce test là a mettre après la modification du rowsource ou de son contenu

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim c As Range Dim plage As String Dim flag As Boolean   plage = Mid(ComboBox1.RowSource, 2) 'cela permet d'enlever le = du rowsource, si tu n'en n'as pas mis utilise la deuxième ligne 'plage =ComboBox1.RowSource flag = True For Each c In Range(plage) If ComboBox1.Value = c.Value Then flag = False Exit For End If Next c If flag Then ComboBox1.Value = "" 'si on a pas trouvé la valeur de la combo dans la plage on efface le contenu

---

Voila j'espère que ca t'aidera, si personne n'a mieux

Edit petite modification des commentaires

Bonjour vous tous,

Citation:

---

Envoyé par LeForestier

,
Je ne comprend pas bien ton problème, c'est normal que tant que ton combo a le focus il reste en surbrillance.

---

+1
C'est bien comme ça qu'il faut que ce soit sinon, sitôt la sélection faite celle-ci disparaîtrait. Et c'est pas ça qu'est bien :aie:

Tu peux faire un test simple :
Un userform avec une liste et son "RowSource" + un autre contrôle (j'ai pris un bouton dans l'exemple). Derrière le MouseUp du combo tu mets ce code :

Code:

---

1 2 3 4

Private Sub ComboBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) ValeurSélectionnée = ComboBox1 CommandButton1.SetFocus End Sub

---

Là, sitôt la sélection faite ValeurSélectionnée récupère la sélection, le combo perd le focus et la sélection disparaît.

C'est ce que j'ai compris de ta demande mais je ne pense pas que ça te convienne vraiment, au bout du bout... :mouarf:
Bonne journée

Salut,

Citation:

---

Envoyé par Krovax

Si le contenu peut être modifié autrement (manuellement) il te faudra peut être passer par l'évènement worksheet_change (voir le tuto les évènement des feuille de calcul).

---

Manifestement t'est plus fort en math qu'en programmation :aie: :mrgreen:
Quest-ce qu'un événement de feuille vient faire dans un ComboBox ??

PS: Tu devais bien t'attendre à avoir un jour le retour de manivelle.. ;)

Visiblement c'est ma journée :mouarf:
Dans l'ordre je dirais que mes aptitudes sont
Mécanique/Physique
Math
'plein de chose
Programmation
'pratiquement tout ce qui n'est pas cité ici
Français (enfin orthographe/grammaire)


Pour l'explication de mon code je suis partie d'un constat
Je définie une rowsource, je choisis une valeur dans la box, je modifie soit la plage source soit le contenue de cette plage (le worksheetchange intervient ici)
Ma sélection reste inchangé alors qu'elle ne correspond plus au contenu du nouveau rowsource.

Du coup je cherche à tester si la valeur sélectionné précédemment correspond a une des nouvelles valeurs disponibles, si ce n'est pas le cas j'efface le contenu de la box.

C'est ainsi que j'avais compris la question..... mais en la relisant ce n'est pas ça du tout... Je plaide le hors sujet.... :dehors:

Bonjour chacun, tous, forum,

Quels échanges! ;)

Plus simple encore. La sélection est effectuée parmi les choix possibles. La valeur choisie s'affiche dans la fenêtre du combo box tandis que la liste des choix possible se referme. La valeur choisie et affichée dans le combo box demeure en surbrillance. Elle demeurera en surbrillance jusqu'à ce que l'on clique ailleurs dans l'interface. Et c'est cela que j'aimerais ne pas avoir comme comportement.

et là, j'entends de grands "aaaaaaaaaaaaaaaah!"

Merci
Bo

Citation:

---

Envoyé par Bocage

et là, j'entends de grands "aaaaaaaaaaaaaaaah!"

---

C'est le cri de la turlutte fluviale que tu nous fais... Pour ma part je me suis contenté d'un "Screugneugneux ! Fallait le dire tout de suite... :calim2:
Teste ça et dis si ça te va...

Code:

---

1 2 3

Private Sub ComboBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Application.SendKeys ("{End}") End Sub

---

Et si ça ne te va pas, j'ai pas mieux :?

Citation:

---

Envoyé par Bocage
jusqu'à ce que l'on clique à nouveau dans la fenêtre

---

En relisant ton exposé, semblerait que ton combo est sur une feuille excel ?
Si oui...

Code:

---

1 2 3

Private Sub ComboBox1_Change() Cells(ComboBox1.TopLeftCell.Row, ComboBox1.TopLeftCell.Column).Select End Sub

---

Ca va mettre le focus sur la cellule qui est "en dessous" du combo.
C'est comme si tu cliquais sur la feuille.
A+

Bonjour à nouveau chacun, tous, forum

Ouskel'n'or...Ca me va parfaitement. C'est exactement ce que je souhaitais :ccool:

Les combo box prennent place sur un userform

Merci !

Bo,