Salut !
J'ai crée un formulaire d'ajout d'enregistrement pour la gestion du personnel et comme de coutume il a fallut que je cree également une pour la modification
Mais celui-ci ne fonctionne pas lorsque j'effectue une modification et que je clique pour valider. Par contre les changements ne s'opèrent que sur une seule ligne
peu importe le code que j'ai sélectionné dans la combobox.J'ai trouvé plusieurs codes similaire sur le forum que j'ai adapté mais rien. je laisse ces ligne de code
si quelqu'un peut me débloquer. Merci d'avance

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
28
29
30
31
32
33
34
35
36
Private Sub CommandButton11_Click()
Dim linsuiv As Integer, i as integer
 
linsuiv = ComboBox4.ListIndex + 4
linsuiv = ComboBox4.ListCount
 
i = Sheets("G° HORAIRE").Cells(Rows.Count, 1).End(xlUp).Row + 1
If ComboBox4.Value = "" Then
    MsgBox ("veuillez sélectionner un Matricule!")
Else
    Cells(linsuiv, 4) = TextBox2.Value
    Cells(linsuiv, 5) = TextBox3.Value
    Cells(linsuiv, 6) = ComboBox1.Value
    Cells(linsuiv, 7) = TextBox5.Value
    Cells(linsuiv, 8) = ComboBox2.Value
    Cells(linsuiv, 9) = ComboBox3.Value
    Cells(linsuiv, 10) = TextBox8.Value
    Cells(linsuiv, 11) = TextBox9.Value
    Cells(linsuiv, 12) = TextBox10.Value
    Cells(linsuiv, 13) = TextBox12.Value
    Cells(linsuiv, 14) = TextBox11.Value
End If
'Next i
    'Me.ComboBox4 = ""
    'Me.TextBox2 = ""
    'Me.TextBox3 = ""
    'Me.ComboBox1 = ""
    'Me.TextBox5 = ""
    'Me.ComboBox2 = ""
    'Me.ComboBox3 = ""
    'Me.TextBox8 = ""
    'Me.TextBox9 = ""
    'Me.TextBox10 = ""
    'Me.TextBox11 = ""
    'Me.TextBox12 = ""
End Sub
Cordialement