Discussion :

[tituxxx]

Bonjour,

J'ai créé un ComboBox "famille", je le remplit à l'aide de cette ligne de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

famille.RowSource = "i4:i37"

Lorsque je selectionnes quelquechose dans cette combox, je voudrais
pouvoir savoir à quelle cellule correspond cette sélection

Quelle est la solution ?

Merci par avance.

[unparia]

Bonjour

Quelle est la solution ?

1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

N = famille.listindex

est l'index N de l'article sélectionné
2) le premier article de ta combobox est d'index 0
3) le premier article de ta listbox correspond à la cellule I4
Question : à quelle cellule correspond donc l'index N ?
Je préfère te laisser faire ce petit calcul arithmétique

[tituxxx]

Merci pour votre réponse. Mais ce n'est pas l'index de liste box que je cherche cela est facile ce que je veux récupérer c'est la référence de la cellule dont j'ai sélectionné l'intitulé dans la list box. Donc je sélectionne une donné dans la liste et la réponse est par exemple cellule A5

[unparia]

Mais ce n'est pas l'index de liste bix que je cherche cela est facile ce que je veux récupérer c'est la référence de la cellule dont j'ai sélectionné l'intitulé dans la list box.

ah !
Veux-tu bien, s'il te plait relire calmement mon message précédent ?
Il te la donne, cette solution, qui passe nécessairement par l'index N sélectionné et un tout petit (vraiment petit) calcul arithmétique.
Je vais te laisser là.

[Patrice740]

...J'ai créé un ComboBox "famille", je le remplit à l'aide de cette ligne de
code :
famille.RowSource = "i4:i37"

T'es sur de toi ? ne serait-ce pas plutôt :
famille.ListFillRange = "i4:i37"

[unparia]

Bonjour Patrice740

Sa combo est apparemment sur un userform, d'où la propriété RowSource !

EDIT :
Allez. On va lui décomposer la chose, y compris sans calcul arithmétique (en utilisant Offset).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 Set Source = Range(famille.RowSource)
  MsgBox "voilà la plage à laquelle esty liée ma combobox ==>> " & Source.Address
  MsgBox "sa première cellule est " & Source(1).Address
  MsgBox "j'ai sélectionné l'index " & famille.ListIndex & " de ma combobox"
  MsgBox "il correspond donc à la cellule " & Source(1).Offset(famille.ListIndex).Address

Il s'agit là d'une décomposition très volontaire (pour qu'il comprenne) . Il est évident que l'on aurait le même résultat avec une seule ligne de code et un petit calcul de différence

[OrDonc]

Bonsoir

Sans inforations supplémentaires, sans passer par le .ListIndex, il suffit de trouver l'adresse de l'item dans la plage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub famille_Click()
  MsgBox [I4:I37].Find(famille).Address
End Sub

[unparia]

Salut Ordonc
Non. Et pour deux raisons : l'une éthique et l'autre de risque à ne jamais courir.

EDIT : et si anasecu (que je salue au passage) passe par là, il t'en donnera une troisième.

[Philippe Tulliez]

Bonjour,
Comme clairement expliqué par Unparia
Lorsque l'on utilise la propriété RowSource pour alimenter un contrôle ComboBox ou ListBox, la propriété ListIndex de ceux-ci indique clairement le numéro de ligne de la plage référencée et ensuite un simple calcul arithmétique suffit pour se positionner sur une des cellules de cette ligne.

[Pierre Fauconnier]

Salut.

La question initiale étant de trouver la cellule correspondant à la sélection, il serait utile de renvoyer une cellule... Ca permettrait par exemple de partir vers la droite avec un offset pour trouver rapidement les données liées à la ligne du combobox (par exemple pour remplir le userform avec ces données).

Dans l'exemple suivant^* où le rowsource du combo est =feuil1!c13:c18, l'objet c pointe vers cette cellule choisie. Le +1 correspond au fait que la première ligne d'un combobox possède l'indice 0.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ComboBox1_Change()
  Dim c As Range
 
  Set c = Range(ComboBox1.RowSource)(ComboBox1.ListIndex + 1)
  MsgBox "la cellule choisie est la cellule " & c.Parent.Name & "!" & c.Address
End Sub

^* L'événement Change n'est utilisé ici que pour illustrer la méthode permettant de retrouver l'objet cellule correspondant à la sélection

[unparia]

Tu parles de l'auteur de la discussion à la troisième personne avec quelqu'un d'autre

Et c'est précisément la vocation du pronom personnel, lorsque l'on parle à un interlocuteur de quelqu'un qu'il a évoqué.
La seule chose dont je me "rends compte" est que je ne suis pas à votre mode.
Et demain, lorsque la "mode" sera encore différente, il va également falloir la suivre ? Vous également ?

EDIT : au fait (je suis curieux) par quoi est-il à la mode de remplacer le pronom "ils" pour se référer à plusieurs personnes ayant été évoquées ? Toute une énumération, alors ?

[Arkham46]

Et c'est précisément la vocation du pronom personnel, lorsque l'on parle à un interlocuteur de quelqu'un qu'il a évoqué.
La seule chose dont je me "rends compte" est que je ne suis pas à votre mode.
Et demain, lorsque la "mode" sera encore différente, il va également falloir la suivre ? Vous également ?

Merci Monsieur pour la leçon de grammaire.
Maintenant tout est clair.

[tituxxx]

Salut.

La question initiale étant de trouver la cellule correspondant à la sélection, il serait utile de renvoyer une cellule... Ca permettrait par exemple de partir vers la droite avec un offset pour trouver rapidement les données liées à la ligne du combobox (par exemple pour remplir le userform avec ces données).

Dans l'exemple suivant^* où le rowsource du combo est =feuil1!c13:c18, l'objet c pointe vers cette cellule choisie. Le +1 correspond au fait que la première ligne d'un combobox possède l'indice 0.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ComboBox1_Change()
  Dim c As Range
 
  Set c = Range(ComboBox1.RowSource)(ComboBox1.ListIndex + 1)
  MsgBox "la cellule choisie est la cellule " & c.Parent.Name & "!" & c.Address
End Sub

^* L'événement Change n'est utilisé ici que pour illustrer la méthode permettant de retrouver l'objet cellule correspondant à la sélection

Merci bcp c'est exactement ce je cherchais et bien expliquer. Merci pour ton retour

[Christophe]

Mais je veux bien apprendre --->> montre-moi ce que toi, tu aurais répondu pour aider le demandeur à comprendre. Cela m'intéresse.

Voir la réponse #20 de Pierre.

1 seule réponse au lieu d'une dizaine, allant droit au but, et répondant parfaitement à la question demandée.