Erreur de codage

bonsoir le forum

voila je suis encore dans un troue noir que j'ai récupérer dans la malle de mon père

j'ai un userform pour entretiens 2 qui doit venir chercher dans ma feuille opérations mais voila je vois bien dans ma liste les lignes A de la listbox 1

mais quand je sélectionne un ligne dans ma listbox cela mis erreur impossible la modification de mes lignes

pouvez vous me dire encore ou est l'erreur de codage ici

j ai avancées mais toujours bloquer pour modifier

Bonjour,

Pour modifier ...

Un essai ...

Private Sub CommandButton3_Click() 'modifier
Dim L As Integer, C As Integer

L = Me.ListBox1.ListIndex + 5    ' +5 pour faire correspondre la ligne du listbox et la ligne de la feuille

With Sheets("opérations")
    .Cells(L, 1).Value = TextBox1.Value
    .Cells(L, 2).Value = CDate(TextBox2.Value)
    .Cells(L, 3).Value = TextBox3.Value
    .Cells(L, 4).Value = TextBox4.Value
    .Cells(L, 5).Value = TextBox5.Value
    .Cells(L, 6).Value = CDbl(TextBox6.Value)
    .Cells(L, 7).Value = TextBox7.Value
    .Cells(L, 8).Value = TextBox8.Value
    .Cells(L, 9).Value = TextBox9.Value
End With

Me.ListBox1.ListIndex = -1        ' affichage vide du listbox
Me.CommandButton3.Visible = False
Me.CheckBox2 = False
ResetOptionButton
VideTextbox
End Sub

ric

merci ric toujours présent quand ont à besoins

cela fonctionne

mais il m'affiche pas la dernière ligne sinon il fonctionne

enfin je vais essayé de comprendre pourquoi il m'affiche pas ma dernière ligne dans userform

merci encore

Bonjour,

Au moment du clic dans la listbox ... afin que ce soit les éléments de la bonne ligne qui s'inscrivent dans les textbox ...

Private Sub ListBox1_Click()
Dim Plg As Variant, L As Integer, C As Integer

L = ListBox1.ListIndex

With Sheets("Opérations")
    Plg = .Range("A6:f" & .Range("A65536").End(xlUp).Row)
End With

For C = 1 To UBound(Plg, 2)
    Controls("TextBox" & C) = Plg(L, C)
Next C

End Sub

ric

et la !!!!!!!!tu est plus rapide que moi elle étais la la prise de tête

enfin encore merci pour tout mes amitiés