[VBA] Userform Combobox

Kotov

XLDnaute Impliqué

• 18 Octobre 2008

• #2

Re : [VBA] Userform Combobox

Bonjour Gruick,

A première vue, avec une fonction Find dans laquelle la valeur à chercher correspond à la valeur de la combobox.

Non ?


Imaginons une combobox nommée cbxMaCombo, et une liste de valeurs dans la colonne A :

Code:

Sub FindcbxValue()
Dim x As Range
Set x = Range("A:A").Find(cbxMaCombo.value, , xlValues, xlWhole, , , False)
    If Not x Is Nothing Then cells( x.Row,1).select
End Sub

A +
Kotov

 

Dernière édition: 18 Octobre 2008

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 18 Octobre 2008

• #3

Re : [VBA] Userform Combobox

Bonsoir Gruick, Kotov,

Pas sur d'avoir tout compris, mais en jouant avec la propriété ListIndex de la combobox on peut trouver l'adresse cellule suivant l'élément sélectionné.

Exemple la liste qui alimente le Combo est en A2:A20:

Code:

MsgBox Range("A" & ComboBox1.ListIndex + 2).Address

Te renvoies l'adresse de la cellule sur la feuille.

J'ai bon ??? 😀

A+

 

Vote positif 0 Vote négatif

cibleo

XLDnaute Impliqué

• 18 Octobre 2008

• #4

Re : [VBA] Userform Combobox

Bonsoir Gruick, Kotov, bqtr,

Avec mes maigres compétences, peut-être un début de réponse avec le fichier d'Hervé dans le lien ci-dessous.

https://www.excel-downloads.com/thr...e-libelle-selectionne-dans-une-listbox.31794/

Amicalement Cibleo

 

Vote positif 0 Vote négatif

Kotov

XLDnaute Impliqué

• 18 Octobre 2008

• #5

Re : [VBA] Userform Combobox

Re, bonjour bqtr, cibléo,

Avec un peu de recul, et sous réserve d'avoir bien compris la demande, la proposition de bqtr me semble effectivement simple et efficace.

A +
Kotov

 

Vote positif 0 Vote négatif

Gruick

XLDnaute Accro

• 19 Octobre 2008

• #6

Re : [VBA] Userform Combobox

Bonjour et Merci à tous,

C'est la solution de Kotov la plus appropriée au sujet, puisqu'il y a plusieurs listes dans la même colonne, et que leur choix est déterminé par le programme du combobox précédent.
Donc j'ai mis cette instruction :

Code:

Set code = Sheets("listes").Range(Outils.RowSource).Find(Outils, , xlValues, xlWhole, , , False)
If Not code Is Nothing Then CodeArticle = Sheets("listes").Cells(code.Row, 2)

Eh oui, RowSource ça peut aussi servir à ça !
Outils étant le nom de ma combobox.
Je répète ceci dans les 3 combobox suivante en mettant CodeArticle = CodeArticle & ... et à la fin j'ai le code complet, qui me servira plus tard.

Désolé pour la réponse tardive, j'ai eu le coup du disque dur plein.

A bientôt,
Gruick

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 19 Octobre 2008

• #7

Re : [VBA] Userform Combobox

Re,

Je ne sais pas comment tes données sont disposées mais tu peux aussi remplir les combobox avec deux colonnes.
Comme ca tu n'as pas de recherche à faire. Tu récupères la valeur de la colonne deux comme ceci :

Code:

CodeArticle = CodeArticle & ComboBox1.List(ComboBox1.ListIndex, 1)

A+

 

Vote positif 0 Vote négatif

Gruick

XLDnaute Accro

• 19 Octobre 2008

• #8

Re : [VBA] Userform Combobox

Bonjour Bqtr,

Ta solution est intéressante, mais je crains que ça soit un obstacle pour la suite du programme.
voir le sujet de Cococh
https://www.excel-downloads.com/threads/un-projet-interessant-mais-complexe.105364/]
Toutefois, je vais la tenter sur une copie.

Merci camarade,

Gruick

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 19 Octobre 2008

• #9

Re : [VBA] Userform Combobox

Re Gruick,

Effectivement ce n'est pas très adapté à ce cas.

Bonne soirée

 

Vote positif 0 Vote négatif