adresse de la cellule contenant le libellé selectionné dans une listbox

[frédéric]

Bonjour
savez vous comment faire pour récupérer simplement l'adresse de la cellule qui contient le libellé selectionné par l'utilisateur dans une listbox?
je sais récupérer le libellé : Me.Listbox.Value
je pensais à qqe chose comme : Me.Listbox.address mais cela ne marche bien evidemment pas!
Merci d'avance de votre réponse.
Bonne journée à tous
Cdt
Frédéric

 

[Hervé]

Bonsoir

Difficile de te répondre sans savoir comment tu remplis ta listbox, mais une boucle sur chaque élément peut être une solution :

Private Sub UserForm_Initialize()
For i = 1 To 10
ListBox1.AddItem Range("a" & i)
Next i
End Sub


Private Sub ListBox1_Click()
Dim c As Range
For Each c In Range("a1:a10")
If c.Value = ListBox1.Text Then
MsgBox c.Address
End If
Next c
End Sub

Salut
Hervé

Si ceci ne te convient pas n'hésite pas à le dire.

Salut
Hervé

 

[Hervé]

re

Sinon pour des données éparpillées sur une feuille : voir en pièce jointe.

Par contre pour la gestion des doublons dans la listbox , c'est pas gagné.

Tiens moi au courant

Salut
Hervé

 

[frédéric]

Bonjour à tous
Merci hervé pour ta réponse rapide (ton 1er mail) qui me convient parfaitement!
Tu es un chef!
nb: mes données ne sont pas éparpillées.
Bonne journée
Cdt
Frédéric

 

[Hervé]

Bonjour frédéric

Cette histoire de doublons me turlupinais, alors voici une dernière méthode gérant les adresses de données éparpillées et les doublons.

En plus cette méthode doit être plus rapide à l'exécution car il n'y a pas de boucle.

Tant mieux si tu à trouvé ton bonheur.

Salut
Hervé