XL 2013 Cellule Active par Listbox

[karinette]

Bonjour à tous.
Voila mon soucis, j'ai une listbox qui me récupère les valeurs des colonnes P1:U100 dans l'onglet "INDEX", (ListBox1.RowSource = "P2:U100").
Ce que j'aimerais faire, c'est lorsque je clique sur une ligne du listbox, que mon curseur soit sur la même valeur dans ma feuille excel (celui de la première colonne, par exemple).
J'avais un semblant de code pour ceci, mais impossible de comprendre le fonctionnement ...
Merci de vos retour ....

 

[Lone-wolf]

Bonjour karinette et bonne année.

Je ne sais pas si j'ai compris. Tu veux que la flèche se positionne sur la cellule??

Note: pour plus d'éfficacité, joint le fichier.

 

[karinette]

L'idée est d'avoir en cellule active, la première de la colonne sélectionnée.
Dans l'exemple, j'ai cliqué sur la ligne de la listbox du "produit 5", et j'aimerais que la cellule active soit la même sur la feuille.
Je peux "alléger" mon classeur, au cas où il faudrait un exemple ...

 

[Calvus]

Bonjour Karinette, Monewolf ,

J'avais un semblant de code pour ceci, mais impossible de comprendre le fonctionnement

Comme tu as du mal à comprendre le fonctionnement de l'envoi de fichier apparemment...

Essaie ceci, à tout hasard :

Set mavaleur = feuil1.Range("P:P").Find("Ben je sais pas ce que tu cherches, alors remplacer par ce que tu cherches..", Lookat:=xlWhole)
mavaleur.Select

A+

 

[laetitia90]

bonjour tous

Private Sub ListBox1_Click()
Cells(ListBox1.ListIndex + 2, 16).Select
End Sub

+1 au lieu de +2

 

[karinette]

bonjour tous

Private Sub ListBox1_Click()
Cells(ListBox1.ListIndex + 2, 16).Select
End Sub

+1 au lieu de +2

Merci, c'est exactement ça !!

 

[Lone-wolf]

Bonsoir laetitia , Calvus

@ Calvus: MDR Le Find

 

[Calvus]

Hello Mister aLONEinthedarkWOLF !

Ben oui. C'est évident pour Laetita, mais on n'est pas tous Laetitia. Alors y faut bien s'amuser un peu..
Et en plus on n'est même pas remerciés ou salués.... à part pour Laetitia, et encore elle n'a eu droit qu'à un merci, pas de bonjour.

Encore un post qui va alimenter mon classeur Liste Noire !
C'est bien, cela me permettra de continuer à progresser.

Dim toipasalutoipassimpaetenpluspasdirebonjour
For Each c In c..
If salu Or jonbour = "" Then PutDirectInTheDustbin !

A+

 

[Hervé]

salut à tous

karinette ? pourquoi veux tu sélectionner la cellule ?

je n'aurais surement jamais la réponse à cette question ^^

a plus

 

[Lone-wolf]

Bonsoir Hervé

@ Hervé:

pourquoi veux tu sélectionner la cellule ?

Prison: "C'est sûrement parce-qu'il y a une taupe dans la cellule d'à côté"

 

[pierrejean]

Bonjour à tous
Uniquement pour saluer l'ami Hervé qui se fait très rare ici

 

[Calvus]

Bonjour,
Pour saluer Hervé, Lone-wolf et Pierre-Jean !