1 pièce(s) jointe(s)
Modifier les cellules d'une ligne à partir de la listbox
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:
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.
Pièce jointe 596549
