Discussion :

[Dream Master]

Bonjour à tous
J'aimerais récupérer le numéro de ligne d'une donnée se trouvant dans un listbox. (Les données sont importé d'une feuille excel). J'ai donc besoin de récupérer le numéro de ligne en fonction du contenu de la selection.
Voici mon code qui ne fonctionne pas:

Code :

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

1
2
3
Selection = ListBox.List(ListBox.ListIndex) 'on récupère le contenu de la ligne sélectionné dans le listbox
ligne = Application.WorksheetFunction.Match(Selection, Worksheets("Projets").Range("C:C"), 0)
MsgBox ligne

Merci d'avance pour ceux qui voudraient m'aider.

[SilkyRoad]

bonsoir

tu peux essayer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Ligne As Integer
Dim Cible As String
 
If ListBox1.ListIndex = -1 Then Exit Sub
 
On Error Resume Next
Cible = ListBox1
Ligne = Application.WorksheetFunction.Match(Cible, _
    Worksheets("Projets").Range("C:C"), 0)
 
If Err.Number = 0 Then
    MsgBox Ligne
    Else
    MsgBox "non trouvé"
End If

michel

[Dream Master]

Merci ton code marche super bien