Aide chargement de données dans Listbox

Bonjour,

Vous trouverez dans le fichier joint, deux colonnes (nom et prénom) qui feront office plus tard de base de données.

Dans une boite de dialogue l'utilisateur pourra sélectionner le nom à travers une list box. (si il y a deux mêmes noms, la listbox n'en affiche qu'un seul).

Maintenant je souhaiterai que ma seconde listbox ne m'affiche que les prénoms correspondant au nom sélectionné.

J'ai utilisé une boucle, mais elle ne fonctionne pas. Pourriez vous m'expliquer pourquoi ?

Merci d'avance,

Batoine

Bonjour,

Un fichier qui je crois solutionne ton problème.

Bonjour Renauder,

Tout d'abord merci pour votre réponse, effectivement ça solutionne le problème. Merci beaucoup !

Je tente maintenant de supprimer la ligne correspondant au prénom précédemment sélectionner. Je n'y arrive pas.

J'ai une erreur sur ma ligne de code suivante :

 Private Sub supprimer_Click()

Dim ok As Boolean
ok = True

Label1.ForeColor = RGB(10, 10, 10)     'couleur noir pour les labels
Label2.ForeColor = RGB(10, 10, 10)

If nom.Value = "" Then
    Label1.ForeColor = RGB(250, 0, 0)
    ok = False
End If

If prénom.Value = "" Then
    Label2.ForeColor = RGB(250, 0, 0)
   ok = False
End If

If ok = True Then
    If MsgBox("Êtes-vous certain de vouloir supprimer la personne suivante : " & nom.Value & " ?", vbYesNo + vbExclamation, "Demande de confirmation") = vbYes Then
        For i = 4 To Sheets("Feuil1").Cells(i, 2).End(xlUp).Row[/color]         'L'erreur semble venir d'ici
                If prénom.Value = Sheets("Feuil1").Cells(i, 2) Then
                    Sheets("Feuil1").Cells(i, c).EntireRow.Select
                    Selection.Delete Shift:=xlUp
                Exit For
                End If
        Next
        Unload Me
    End If
End If
End Sub

Je vous joins tout de même mon fichier qui sera plus parlant.

Merci d'avance,

Batoine

Bonjour,

Voici une correction

C'est tout simplement parfait, je suis impréssionné ! Une véritable machine !

Je viens de l'insérer à mon projet après avoir fait quelques modifications, ça fonctionne à merveille.

Merci beaucoup pour votre aide,

Cordialement,

Batoine