Modifier et enregistrer à partir de textbox

Bonjour,

De nouveau sur le forum pour vous soumettre quelques difficultés que je rencontre dans ce projet (compilé à partir de différents codes). Malgré mes différentes recherches je n'arrive pas à résoudre les problématiques suivantes :

• Certaines des textboxs ne se remplissent pas automatiquement en fonction des lignes sélectionnées : mot clef 1, mot clef 2,.... sans qu'il y ait de message d'erreurs.
• Je n'arrive pas à enregistrer les modifications apportées aux différentes textboxs directement dans la listview et dans la feuille correspondante (feuil1).

Je sèche particulièrement sur ces points est-ce que quelqu'un pourrait m'éclairer sur la (les) source(s) ?.

Merci beaucoup de votre temps.

Bonjour

Une erreur première erreur dans ta macro initialize : tu ne charge ta listview que en y mettant les 6 premières colonnes. Or ton tableau en a 14

Private Sub UserForm_Initialize()

    Dim fin&, i&, j&

    ComdValider.Visible = False

    With ListView1
        With .ColumnHeaders
            .Clear
            .Add , , "Numéro", 30
            .Add , , "Auteur", 80
            .Add , , "Réf", 50
            .Add , , "Titre", 180
            .Add , , "Année", 50
            .Add , , "Mot clé 1", 80
            .Add , , "Mot clé 2", 80
            .Add , , "Mot clé 3", 80
            .Add , , "Mot clé 4", 80
            .Add , , "Mot clé 5", 80
            .Add , , "Mot clé 6", 80
            .Add , , "Mot clé 7", 80
            .Add , , "Mot clé 8", 80
            .Add , , "Mot clé 9", 80
            .Add , , "Mot clé 10", 80
        End With
    End With
    fin = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    With ListView1
        For i = 5 To fin
            .ListItems.Add , , Feuil1.Cells(i, 1)
            'For j = 2 To 6 'Erreur
            For j = 2 To 15
            .ListItems(.ListItems.Count).ListSubItems.Add , , Feuil1.Cells(i, j)
            Next j
        Next i

Bye !

Rhaaaaaaaaa p........ La solution était devant mes yeux !!!

Merci !!!!!