[VBA] Userform Combobox

[Gruick]

Bonsoir amis forumeurs,

Je réfléchis au problème de Cocoh, et je suis devant un problème.
Comment sélectionner, ou repérer sur la feuille de calcul contenant la liste servant à alimenter ma combobox, la cellule "source".
autrement dit,
L'inverse en fait de ce que fait la combobox, partir de sa valeur et aboutir à la cellule qui a servi pour la remplir.

Merci d'avance et bonne soirée.

Gruick

 

[Kotov]

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 :

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

 

[bqtr]

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:

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

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

J'ai bon ???

A+

 

[cibleo]

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

 

[Kotov]

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

 

[Gruick]

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 :

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

 

[bqtr]

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 :

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

A+

 

[Gruick]

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

 

[bqtr]

Re : [VBA] Userform Combobox

Re Gruick,

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

Bonne soirée