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

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é

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é

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

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é