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.

[OrDonc]

Re

Hé les copains, il va falloir m’expliquer, m’éduquer !

Unparia : je ne comprends pas ton observation (éthique, risque).

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.

Philippe,
- chez moi, elle indique l’index de l’item dans la liste de ceux-ci.
D’ailleurs l’indexation commence toujours par 0 !
D’où le petit calcul dont tu parles. Ici, ce serait Cells(famille.ListIndex + 4, 9).Address

-Qu’en est-il quand on passe par .List, .Additem ? Chez moi, c’est la même chose.

Risque encouru : avec .List, on aura des problèmes en n'ayant qu’un seul item.
Avantage : avec un contrôle ListBox, .RowSouce permet d’afficher la ligne des titres.

Donc, je ne vois pas où est le problème, d’autant plus que j’ai précisé « sans information supplémentaires ». Eclairez moi s'il vous plait .

[unparia]

-Qu’en est-il quand on passe par .List, .Additem ?

Ce n'est la même chose QUE si les cellules ajoutées sont dans une plage sans solution de continuité ...
Dans le cas contraire, impossible alors de s'en sortir sans ajout d'une colonne comportant le N° de ligne (on s'en sert ensuite)

EDIT à ta rubrique "avantages" : tu as oublié l'essentiel, à savoir que toute modification des cellules du rowsource est immédiatement et automatiquement faite dans la combobox

Quant aux risques qui résultaient de ta proposition, ils ne sont pas ceux que tu relèves là. Le plus gros d'entre eux est que ton Find te retournera la première occurrence trouvée (et elle n'est pas forcément la bonne, hein ..) . Imagine donc une plage de deux colonnes, la première avec des prénoms et la seconde avec l'âge correspondant. Tu risques assez d'avoir plusieurs "Jean" ( par exemple) et ton Find te retournera lequel ?
Entre autres.
Amitiés

[OrDonc]

Bonjour

Maintenant que titusxxx semble avoir trouvé une réponse …

Salut unparia et merci pour tes explications.

Bien que j’aie une imagination débordante, je ne l’ai pas fait apparaître ici et pour cause.
Je vais me répéter pour la x^ième fois : « je code en fonction du contexte, du contexte et surtout du contexte !».
Un outil utilisé dans un cas peut être le plus adapté qu’un autre mais pour les comparer* il est nécessaire de les connaître, non ?

Merci encore et bonne journée à toi et aux autres bien sûr.

*Je remarque qu’il y a de plus en plus de personnes qui comparent des choses qui ne sont pas comparables. Il faut faire avec !

[tituxxx]

bonjour

Je vous remercie pour l'intérêt que vous avez porté à mon poste ; je vous informe que je suis un novice dans la programmation et j'apprends tous les jours

Unparia merci d’être moins condescendant dans vos réponse car si j'ai demandé de l'aide c'est par ce que je n'ai pas autant de connaissance que vous mais ce n’est pas la peine de me parler comme un gosse. Je suis novice et non débile et même si l'opération arithmétique est une chose simple pour vous dans ce cas peut être je ne voyais pas la chose de la même manière une explication simple et détaillé aurait suffit sans commentaire supplémentaire

[unparia]

Désolé, titu, mais je ne suis pas là pour faire de la pédagogie.
Je suis ici en tant que développeur s'adressant à un développeur, sur ce forum/club de développeurs. Et je le fais en utilisant le langage d'un développeur

[chrtophe]

Désolé, titu, mais je ne suis pas là pour faire de la pédagogie.

Ben un minimum quand-même.

Je suis ici en tant que développeur s'adressant à un développeur,

Ben non tu t'adresses d'après le profil à un "Responsable marketing opérationnel"

Si tu ne souhaites pas répondre à un novice, et en conséquence consacrer un minimum de temps pour expliquer, dans ce cas ne répond pas, tout le monde gagnera du temps, y compris toi.

[unparia]

Bonjour chrtophe
Il me semble que j'ai fait plus que "expliquer".
Mon message N° 6 va même bien au delà de la seule explication (qui, elle, avait été donnée dès mon premier message).
Si, maintenant "expliquer" se traduit par donner un code à copier/coller, je me demande bien quelle pourrait être cette forme de pédagogie.
Mais je veux bien apprendre --->> montre-moi ce que toi, tu aurais répondu pour aider le demandeur à comprendre. Cela m'intéresse.

[Arkham46]

Bonjour chrtophe
Il me semble que j'ai fait plus que "expliquer".
Mon message N° 6 va même bien au delà de la seule explication (qui, elle, avait été donnée dès mon premier message).
Si, maintenant "expliquer" se traduit par donner un code à copier/coller, je me demande bien quelle pourrait être cette forme de pédagogie.
Mais je veux bien apprendre --->> montre-moi ce que toi, tu aurais répondu pour aider le demandeur à comprendre. Cela m'intéresse.

La question n'est pas là.
Si tu souhaites aider, tu dois te mettres au niveau de celui que tu aides et tu dois fais preuve de politesse (le post 6 que tu mets en avant n'est pas poli).
Si ça ne te convient pas alors tu passes à une autre discussion.
Merci.

[unparia]

Bonjour Arkham

le post 6 que tu mets en avant n'est pas poli

Je n'y vois aucune impolitesse et vais donc te prier de m'indiquer où elle se trouve exactement.
D'autant que je répondais à Patrice au sujet d'une propriété différente selon que la combobox se trouvait sur une feuille de calcul ou sur un userform.

[Arkham46]

Je n'y vois aucune impolitesse

C'est bien là le probleme, tu ne te rends pas compte.
Tu parles de l'auteur de la discussion à la troisième personne avec quelqu'un d'autre alors que tu es sur sa discussion.
Et tu sembles plus ouverts avec certaines personnes qui sont de passage sur la discussion.
Je ne m'étonne pas que cela puisse être mal interprété et que tituxxx voit un ton condescendant dans tes messages.

[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