ListBox avec condition puis modification

Bonjour à tous,

Je souhaite afficher une liste avec condition, afficher les valeurs de la ligne sélectionnée dans des Textbox, modifier ces valeurs et les retourner (par commandbutton) dans ma feuille.

Donc, par exemple; avec le fichier joint, afficher, à l'ouverture du l'USF, uniquement les factures avec, en colonne Payée "N"
modifier des informations, et les enregistrer dans ma feuille.

J'ai essayé , cherché, mais je n'arrive pas à garder l'index correspondant à la ligne sélectionné suite condition

Si quelqu'un a un code simple et surtout commenté, afin que je comprenne le fonctionnement, je suis preneur

Merci d'avance

Bonjour

Votre fichier en retour avec une proposition

J'ai enlevé le ROWSOURCE. A éviter ! cette fonction qui peut être source d'erreur si mal utilisée dans les codes

Cordialement

Bonjour Dan,

Je regarderai à cela ce soir.

Merci

Bonjour

Afficher que les lignes avec "N", j'avais réussi, mais à l'enregistrement, cela ne se remettait pas au bon endroit, PB d'index que je n'ai pas résolu !!

Il vous suffit de modifier ce code dans l'userform

Private Sub UserForm_Initialize()
Dim cel As Range

For Each cel In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
    If UCase(cel.Offset(0, 3).Value) = "N" Then
        With ListBox1
            .AddItem
            .List(.ListCount - 1, 0) = cel.Value
            .List(.ListCount - 1, 1) = cel.Offset(0, 1).Value
            .List(.ListCount - 1, 2) = cel.Offset(0, 2).Value
            .List(.ListCount - 1, 3) = cel.Offset(0, 3).Value
        End With
    End If
Next cel
End Sub

Cordialement

Bonsoir Dan,

Merci pour cette modification efficace

Cela fonctionne comme souhaité

Cordialement