ListBox

Bonjour,

Je développe actuellement une fonction permettant d'afficher la valeur des ligne cocher dans une listbox. Voici la fonction :

Function ConcaTList() As String
Dim Txt As String
Dim Ctrl As control

Application.ScreenUpdating = False
For Each Ctrl In Form_SelectOutilOpen.Controls
    If Ctrl.Name Like "ListBox*" Then
        For i = 1 To Ctrl.ListCount - 1
            If Ctrl.Selected(i) = True Then

            Range(Ctrl.RowSource).Find(Ctrl.List(i), LookIn:=xlValues, lookat:=xlWhole).Select
                    Txt = Txt & Ctrl.List(i) & vbCrLf & "_______________________________________________________________" & vbCrLf
                            patate = ActiveCell.Offset(0, -1).Value
                            Form_SelectOutilOpen.Zone_De_Texte2.Value = Txt
                            Form_SelectOutilOpen.Zone_De_Texte2.SetFocus
            Else
                'rien
            End If
        Next i
    End If
Next Ctrl

    ConcaTList = Txt

On Error GoTo Erreur

Dim chemin_photo As String
Dim Nom_photo As String
Dim chem_nom As String

    chemin_photo = Sheets("Data").Range("V4").Value
    Nom_photo = patate
    chem_nom = chemin_photo & Nom_photo & ".jpg"
             Form_SelectOutilOpen.Zone_De_Texte.Picture = LoadPicture(chem_nom)
Erreur:
    If err.Number = 53 Then
        chemin_photo = Sheets("Data").Range("V4").Value
        Nom_photo = "Erreur"
        chem_nom = chemin_photo & Nom_photo & ".gif"
             Form_SelectOutilOpen.Zone_De_Texte.Picture = LoadPicture(chem_nom)
    End If
Application.ScreenUpdating = True
End Function

Ma fonction fonctionne parfaitement, hors elle fonctionne pour toutes les valeurs cocher, je voudrais qu'elle fonctionne seulement pour la dernière valeur cocher mais je n'y arrive pas...

Quelqu'un pourrait-il m'aider ?

Merci d'avance

Bonjour

Places la propriété MultiSelect à 0 (fmMultiSelectSingle) de tes ListBox

Ou si ce n'est pas ça, un fichier avec ce que tu as et ce que tu veux