OVH Cloud OVH Cloud

selectionner un combobox

7 réponses
Avatar
xoco
Salut a tous, question bete, mais je trouve pas la
reponse,
j'aimerais savoir comment selectionner le texte a l'entree
d'un combo box.
Je connais la procedure evenementielle combobox1_enter
mais il me manque comment selectionner tout le texte...
Si vous avez une idee, elle serait la bienvenue...
a+
Xoco

7 réponses

Avatar
ChrisV
Bonjour xoco,

Pas sûr d'avoir bien saisi, mais si tu désires "forcer" la sélection sur un
élément déterminé des valeurs possibles de la liste:
(le premier numéro d'indice de la liste débute à 0)

Private Sub ComboBox1_DropButtonClick()
ComboBox1.ListIndex = 3
End Sub


ChrisV


"xoco" a écrit dans le message de
news: 5aa301c3e531$f27cf6e0$
Salut a tous, question bete, mais je trouve pas la
reponse,
j'aimerais savoir comment selectionner le texte a l'entree
d'un combo box.
Je connais la procedure evenementielle combobox1_enter
mais il me manque comment selectionner tout le texte...
Si vous avez une idee, elle serait la bienvenue...
a+
Xoco


Avatar
ChrisV
Bonjour xoco,

Pas sûr d'avoir bien saisi, mais si tu désires "forcer" la sélection sur un
élément déterminé des valeurs possibles de la liste:
(le premier numéro d'indice de la liste débute à 0)

Private Sub ComboBox1_GotFocus()
ComboBox1.ListIndex = 3
End Sub


ChrisV


"xoco" a écrit dans le message de
news: 5aa301c3e531$f27cf6e0$
Salut a tous, question bete, mais je trouve pas la
reponse,
j'aimerais savoir comment selectionner le texte a l'entree
d'un combo box.
Je connais la procedure evenementielle combobox1_enter
mais il me manque comment selectionner tout le texte...
Si vous avez une idee, elle serait la bienvenue...
a+
Xoco


Avatar
xoco
je me suis ma exprimé alors...

Ce que je desire avant tout, c savoir comment selectionner
du texte dans un controle.
Par selectionner du texte, j entends par la simuler une
selection a la souris.
En gros, je clique sur un controle de textbox par exemple,
ca doit me selectionner l ensemble du texte deja present.
Ainsi, si je tape du texte, mon precedent texte s efface
pour laisser place au nouveau texte.
En d autres termes, a l heure actuelles, j'ai un combobox
qui par defaut a la valeur "(toutes)"
si je selectionnes ce combobox et que j'ecris dedans, sans
chercher (comme un utilisateur X qui n'y connait rien a
tout ca), ca me donnera , "(toutes)mon nouveau texte", car
le clic donne le focus, mais ne selectionne pas le texte a
l interieur.
J espere que je me fais mieux comprendre,je sais pas trop
comment m expliquer differemment...
a+
Xoco

-----Message d'origine-----
Bonjour xoco,

Pas sûr d'avoir bien saisi, mais si tu désires "forcer"
la sélection sur un

élément déterminé des valeurs possibles de la liste:
(le premier numéro d'indice de la liste débute à 0)

Private Sub ComboBox1_DropButtonClick()
ComboBox1.ListIndex = 3
End Sub


ChrisV


"xoco" a écrit dans
le message de

news: 5aa301c3e531$f27cf6e0$
Salut a tous, question bete, mais je trouve pas la
reponse,
j'aimerais savoir comment selectionner le texte a
l'entree


d'un combo box.
Je connais la procedure evenementielle combobox1_enter
mais il me manque comment selectionner tout le texte...
Si vous avez une idee, elle serait la bienvenue...
a+
Xoco



.




Avatar
Papyty
Bonjour xoco (et @ tous)

Ce que je desire avant tout, c savoir comment selectionner
du texte dans un controle.


Si le ComboBox vient de la barre d'outils de contrôles ceci devrait
convenir:

Private Sub ComboBox1_GotFocus()
ComboBox1.SelStart = 0 'positionne le curseur au début du textbox
ComboBox1.SelLength = Len(ComboBox1) 'sélectionne le texte déjà entré
End Sub

--
@+
Thierry
28/01/2004 16:57:58

Avatar
xoco
Bon, j'ai qq petits soucis de mise en pratique, mais tu
reponds a ma question, alors c cool.
PS : (GotFocus, tu l inventes, ou c disponible sur une
version > a 2000 ?)
merci bcp,
a+
Xoco


-----Message d'origine-----
Bonjour xoco (et @ tous)

Ce que je desire avant tout, c savoir comment
selectionner


du texte dans un controle.


Si le ComboBox vient de la barre d'outils de contrôles
ceci devrait

convenir:

Private Sub ComboBox1_GotFocus()
ComboBox1.SelStart = 0 'positionne le curseur au début du
textbox

ComboBox1.SelLength = Len(ComboBox1) 'sélectionne le
texte déjà entré

End Sub

--
@+
Thierry
28/01/2004 16:57:58
.




Avatar
Papyty
Bonjour xoco (et @ tous)
PS : (GotFocus, tu l inventes, ou c disponible sur une
version > a 2000 ?)


GotFocus est une propriété des boutons de la barre d'outils controle dans
les feuilles Excel.
Pour un controle sur UserForm:

Private Sub ComboBox1_MouseUp(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ComboBox1.SelStart = 0 'positionne le curseur au début du Combobox
ComboBox1.SelLength = Len(ComboBox1) 'sélectionne le texte déjà entré
End Sub

Est-ce que ça convient
--
@+
Thierry
28/01/2004 19:47:21

Avatar
Xoco
grave, il me manquait le onmouseup...c cool, tu m aides
bien sur le coup...
Merci mille fois, et a +
xOCO
-----Message d'origine-----
Bonjour xoco (et @ tous)
PS : (GotFocus, tu l inventes, ou c disponible sur une
version > a 2000 ?)


GotFocus est une propriété des boutons de la barre
d'outils controle dans

les feuilles Excel.
Pour un controle sur UserForm:

Private Sub ComboBox1_MouseUp(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As
Single)

ComboBox1.SelStart = 0 'positionne le curseur au début du
Combobox

ComboBox1.SelLength = Len(ComboBox1) 'sélectionne le
texte déjà entré

End Sub

Est-ce que ça convient
--
@+
Thierry
28/01/2004 19:47:21
.