Bonjour,

J'ai créé un formulaire, qui fait la saisie des bons de livraisons, et j'ai ajouté une 2ème page dont je pourrai consulter Bon par bon chacun.

par doubles clicks J'affiche dans des TextBox les différentes colonnes d'une ligne.

Objectif : Je voulais adapter le bouton de commande pour pouvoir modifier la ligne après le double click .

j'ai essayé le code suivant, mais ça n'a pas marché :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton3_Click()
Dim Lig As Long
 Lig = ListBox1.ListIndex + 2
 With Worksheets("Opérations")
    .Cells(Lig, 2).Value = TextBox9.Value
    .Cells(Lig, 1).Value = TextBox10.Value
    .Cells(Lig, 3).Value = TextBox11.Value
    .Cells(Lig, 4).Value = TextBox12.Value
    .Cells(Lig, 5).Value = TextBox13.Value
    .Cells(Lig, 6).Value = TextBox14.Value
    .Cells(Lig, 7).Value = TextBox15.Value
    .Cells(Lig, 8).Value = TextBox16.Value
    .Cells(Lig, 9).Value = TextBox17.Value
    .Cells(Lig, 10).Value = TextBox18.Value
    Me.CommandButton3.Enabled = False
End With
End Sub
En pièce jointe le fichier.

Project Thomas - .xlsm