Codage listbox

Bonjour LE FORUM,


SVP j'ai un petit soucis

j'ai réalisé une userform sur la quelle se trouve combobox1 et listbox1

mon objectif est qu'en sélectionnant une lettre alphabétique dans la combobox1, toutes personnes enregistrés sous cette lettre s’affiche automatiquement dans la listbox1

puis en cliquant sur chaque nom de la listbox1 le reste des informations de cette personne affiche dans les autre champs y compris la photo

le tableau commence de la colonne A à Y soit 25 colonnes la photo est enregistrer automatiquement dans un dossier nommé PHOTOS.

les la colonne B est est la colonne de la lettre alphabétique et les noms dans la colonne C

la feuille est nommé IDENTIFICATION

Mon souci est que quelques images affiche mais pour d'autres noms, rien n'affiche

voici le code que j’ai inscris:




End With
Else
With OptionButton4
.Value = True
.ForeColor = vbRed
End With
With OptionButton3
.ForeColor = vbBlack

If Dir(ThisWorkbook.Path & "\" & "PHOTOS\" & ListBox1 & ".jpg") = "" Then
Me.Image1.Picture = LoadPicture("")
Else
Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & "PHOTOS\" & ListBox1 & ".jpg")
End If
End With
End If
End If
Next C
End With

End Sub