Bonjour ,

J'arrive pas à modifier mes cellules à partir d'un TextBox10 (ID pour notre cas)

Voila le code :

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
18
19
20
21
22
23
24
25
26
27
Private Sub CommandButton3_Click()
 
'Modifier
 
Dim no_ligne As Integer
Dim i As Integer
 
'If Not ComboBox2.Value = "" Then
 
With Worksheets("Opérations")
no_ligne = TextBox10.ListIndex + 2
 
    .Cells(no_ligne, 2).Value = TextBox9.Value
    .Cells(no_ligne, 1).Value = TextBox10.Value
    .Cells(no_ligne, 3).Value = TextBox11.Value
    .Cells(no_ligne, 4).Value = TextBox12.Value
    .Cells(no_ligne, 5).Value = TextBox13.Value
    .Cells(no_ligne, 6).Value = TextBox14.Value
    .Cells(no_ligne, 7).Value = TextBox15.Value
    .Cells(no_ligne, 8).Value = TextBox16.Value
    .Cells(no_ligne, 9).Value = TextBox17.Value
    .Cells(no_ligne, 10).Value = TextBox18.Value
    Me.CommandButton3.Enabled = False
 
 
End With
End Sub
En piece jointe le fichier

Merci d'avance