valeur en fonction de combobox

[natorp]

bjr à tous et à toutes

J'aimerais afficher des valeurs en fonction de texte provenant d'un userform (combobox) et afficher les 2 combobox.... c'est plus explicite dans le fichier-joint

Merci, Gérard

 

[natorp]

Re : valeur en fonction de combobox

merci, c'est sympa, si tu as fait comme ça c'est qu'il ne devait pas être possible de mettre le texte saisi en surbrillance et appuyer sur "suppr" ?

En tous cas mille mercis, car je vais maintenant pouvoir finaliser mon fichier de gestion de notes de restaurant....
Cordialement, Gérard

 

[jp14]

Re : valeur en fonction de combobox

Bonjour

merci, c'est sympa, si tu as fait comme ça c'est qu'il ne devait pas être possible de mettre le texte saisi en surbrillance et appuyer sur "suppr" ?

En tous cas mille mercis, car je vais maintenant pouvoir finaliser mon fichier de gestion de notes de restaurant....
Cordialement, Gérard

Le problème provient de la propriété Style de la ComboBox.
Si style = 0 on peut ajouter de nouvelle données.
Si style = 2 le combobox correspond à une listbox.
Comme avec un combobox on peut se positionner dans la liste en tapant les premiers caractères, j'utilise le combobox en lieu et place d'une listbox en lui affectant le style 2.

JP

 

[natorp]

Re : valeur en fonction de combobox

Sorry je viens encore t'embêter car j'ai ajouté des listes dans la feuil2 et je voudrais que la liste affichée dans les combobox soient le reflet de chaque liste et ne soit pas triée par nom ....
merci de ton aide.... Gérard

 

[natorp]

Re : valeur en fonction de combobox

Je suis allé voir la propriété Style de la combobox, je n'ai que 0 ou 2 sans vraiment savoir à quoi cela correspond...

Merci, Gérard

 

[jp14]

Re : valeur en fonction de combobox

Bonjour (Re)

Sorry je viens encore t'embêter car j'ai ajouté des listes dans la feuil2 et je voudrais que la liste affichée dans les combobox soient le reflet de chaque liste et ne soit pas triée par nom ....
merci de ton aide.... Gérard

C'est très simple il suffit de supprimer ou de déclarer comme commentaire les lignes ci dessous


'tri des données
For £i = 1 To UBound(£Tableau, £numColTri)
For £j = 1 To UBound(£Tableau, £numColTri)
If £Tableau(£j, £numColTri) > £Tableau(£i, £numColTri) Then
For £y = 1 To £nbcol
£t = £Tableau(£i, £y)
£Tableau(£i, £y) = £Tableau(£j, £y)
£Tableau(£j, £y) = £t
Next £y
End If
Next £j
Next £i

ou introduire la possibilité de ne pas trier en ajoutant une variable dans l'appel de la procédure. cette dernière méthode permet de trier ou de ne pas trier.

Private Sub remplircombo(£nomfeuille1 As String, £nucombo As Byte, _
£dimcol As String, £ColTri As String, _
£selection As Boolean, £colpourselection As String, _
£valeurcherche As String, £tri As Boolean, £param As Variant)

If £tri = true then
.........................
End if

Call remplircombo(£nomfeuille1:="Feuil2", _
£nucombo:=5, _
£dimcol:="80;0", _
£ColTri:="m", _
£selection:=False, _
£colpourselection:="m", _
£valeurcherche:="", _
£tri:= False, _
£param:=Array("m", "n"))

JP

 

[jp14]

Re : valeur en fonction de combobox

Bonjour (re)

Je suis allé voir la propriété Style de la combobox, je n'ai que 0 ou 2 sans vraiment savoir à quoi cela correspond...

Merci, Gérard

Autant pour moi
O = combobox
2 = combobox identique à une listbox

JP

 

[natorp]

Re : valeur en fonction de combobox

c'est ok, j'ai trouvé où tu figes le style de la combobox
Merci pour ton aide, c'est vraiment appréciable...

Maintenant au boulot pour finaliser et mettre en forme...
Au plaisir d'une autre discussion..... Gérard

 

[jp14]

Re : valeur en fonction de combobox

Bonjour

Ne pas oublier de rajouter Lign = Lign + 1 pour l'inscription des données

JP