Discussion :

[Bocage]

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

[LeForestier]

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+

[Krovax]

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 :

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

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 :

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

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

[ouskel'n'or]

Bonjour vous tous,

,
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

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 :

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

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...
Bonne journée

[LeForestier]

Salut,

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
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..

[Krovax]

Visiblement c'est ma journée
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....

[Bocage]

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

[ouskel'n'or]

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...
Teste ça et dis si ça te va...

Code :

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

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

[LeForestier]

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 :

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

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+

[Bocage]

Bonjour à nouveau chacun, tous, forum

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

Les combo box prennent place sur un userform

Merci !

Bo,