[VBA-E] Sélectionner dynamiquement une ligne d'une ComboBox

Version imprimable

22/02/2006, 09h30
skual

[VBA-E] Sélectionner dynamiquement une ligne d'une ComboBox
Bonjour tout le monde,

Je souhaite saisir une référence dans une ComboBox et ensuite la sélectionner automatiquement, j'ai donc essayé:
Code:

1 2 3 Feuil1.ComboBox1.AddItem reference Feuil1.ComboBox1.SelText reference
reference est un String initialisé avant

Le problème c'est que SelText ne s'applique qu'à un objet.

J'ai aussi essayé SetFocus sans succès.

J'aimerais aussi la trier par ordre alphabétique après un ajout et je n'ai rien trouvé.

Merci pour vos réponses.
22/02/2006, 09h41
ouskel'n'or

Tu as essayé Selected ?

Extrait de l'aide

Citation:

Renvoie ou définit l'état de sélection des éléments dans un contrôle ListBox.

Syntaxe

object.Selected( index ) [= Boolean]

La syntaxe de la propriété Selected comprend les éléments suivants :
... etc

Tu dis
22/02/2006, 10h01
skual

La fonction Selected n'a pas l'air d'être reconnue par Microsoft Visual Basic, elle ne figure pas non plus dans l'aide (je suis en VBA).

De plus comme je viens d'ajouter l'item a la ComboBox et comme il n'est pas sélectionné, je ne connais pas encore le numéro d'index.

Je viens d'essayer la méthode Select mais elle aussi ne s'applique qu'à un objet.

Y aurait-il une autre solution ? :?:

Merci.
22/02/2006, 10h10
ouskel'n'or

Si tu viens de l'ajouter avec Count, tu ne peux pas retrouver l'index ?

J'ai VBA 97 et ai trouvé Selected. Par contre, on ne parle que de ListBox dans l'extrait de l'aide que je t'ai donné, pas de combo.
Désolé. Je regarde mais je pense qu'un bbil, silkyRoad ou autre leroissejp vont passer par là
Je sais que j'en oublie plein mais j'espère qu'igloobel me pardonnera... :wink:

A+
22/02/2006, 10h13
ouskel'n'or

Tu as

Code:

NbreEnregistrements = UBound(ComboBox1.List)

Vérifie s'il ne faut pas faire +/- 1, apparemment il manque l'index 0

A+
22/02/2006, 10h17
ouskel'n'or

Encore moi, pour une question :
Où renseignes-tu ton combo ? Dans quelle procédure ?

A+
22/02/2006, 10h28
skual

Les items de ma ComboBox sont initialisés au démarrage depuis les noms de chaque feuilles d'un autre classeur.

Sinon, quand le programme et en cours, je renseigne ma ComboBox depuis une TextBox qui est dans une userform.
Il est donc renseigné depuis le module de mon userform dans la procédure Ajouter_ComboBox_Click().
22/02/2006, 10h33
skual

Je peut avoir le numéro d'index avec ListCount qui donne le nombre d'item de la Combo et donc le numéro du dernier ajouté mais je ne trouve toujours pas la fonction Selected, je suis pourtant sous MVB 6.3 de Excel 2000 ?????????????

Ah, le UBound marche aussi, autant pour moi, c'est même mieux (il faut faire +1).
22/02/2006, 10h58
ouskel'n'or
Bon, voilà ce que j'ai fait et vérifié avec un listbox

Dans le bouton qui demande la mise à jour du listbox, je fixe le focus suivant avec TabIndex
Code:

1 2 3 IndexCourant = 3 'ActiveControl.TabIndex 'à vérifier/adapter Liste2.TabIndex = IndexCourant + 1 Liste2.SetFocus
Dans Liste2_Enter
Code:

1 2 3 4 Private Sub Liste2_Enter() NbreLignes = UBound(Liste2.List) UserForm2.Liste2.Selected(NbreLignes) = True End Sub
Juste pour l'idée, comme j'initialise ma liste dans UserformInitialise, tu auras à adapter ActiveControl.TabIndex qui ne fonctionne pas

Tu iras aussi vite que moi, j'ai fait mes essais dans une procédure qui me sert et je ne tiens pas à tout modifier :wink:

Tu dis

A+
22/02/2006, 11h26
skual
Citation:
Envoyé par ouskel'n'or

Bon, voilà ce que j'ai fait et vérifié avec un listbox

Dans le bouton qui demande la mise à jour du listbox, je fixe le focus suivant avec TabIndex

Code:

1 2 3 IndexCourant = 3 'ActiveControl.TabIndex 'à vérifier/adapter Liste2.TabIndex = IndexCourant + 1 Liste2.SetFocus
Je ne comprends pas pourquoi on doit fixer le focus.
De plus, comme ma ComboBox n'est pas un objet, je n'ai accès ni à TabIndex ni à SetFocus.

Dois-je obligatoirement déclarer la Combo comme un objet?
22/02/2006, 12h12
ouskel'n'or

Citation:

Je ne comprends pas pourquoi on doit fixer le focus.

Si tu veux aller sur la dernière ligne du combo, faut bien qu'il ait le focus juste après sa mise à jour, non ? Si !

Citation:

De plus, comme ma ComboBox n'est pas un objet, je n'ai accès ni à TabIndex ni à SetFocus

Non, effectivement, c'est un contrôle et un contrôle a tabindex et il est possible de fixer sur lui le focus. Mon code fonctionne sur un userform...
D'où la question : Où est placé ton combo ? Dans une feuille de calcul ? Auquel cas, je comprendrais mieux, mais il aurait été intéressant que tu le précises au départ... :wink:

Tu dis
22/02/2006, 12h23
skual

Ah oui désolé, mon controle ComboBox est effectivement dans une feuille de calcul, je l'avais pas précisé croyant que cela importait peu.

Est-ce que ça change tout?
Comment puis faire pour avoir les SetFocus et TabIndex?

Merci.

bonjour Skual , bonjour Ouskeln'or

pour afficher dans le combobox le dernier item de la liste

Code:

Feuil1.ComboBox1.ListIndex = Feuil1.ComboBox1.ListCount - 1

pour trier la combobox par ordre aphabetique
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 'Hervé Dim i As Byte, j As Byte Dim temp As String With Feuil1.ComboBox1 For i = 0 To .ListCount - 1 For j = 0 To .ListCount - 1 If .List(i) < .List(j) Then temp = .List(i) .List(i) = .List(j) .List(j) = temp End If Next j Next i End With
bon apres midi
michel

22/02/2006, 16h02
skual

OK, ça fonctionne parfaitement, merci beaucoup à vous deux d'avoir résolu mon problème.

:merci:

Bonne fin de journée.