Modifier les cellules à 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 ajouter un bouton de commande pour pouvoir modifier une ou plusieurs cellules.

En piece jointe le fichier.

Merci d'avance

Bonjour,

à tester :

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
End With
End Sub

A+

Done , Merci AlgoPlus !

Rechercher des sujets similaires à "modifier partir listbox"