fradouan
XLDnaute Junior
Bonsoir tout le monde svp si quelqu'un peu jetter un coup d'oeil sur cette exemple pour me dire pourquoi ce code ne marche pas
Private Sub CommandButton4_Click() 'CHANGER
Dim I As Integer
I = Me.FRNSEXIST.ListIndex + 2
With Worksheets("FRNS")
For C = 1 To 11
.Cells(I, C) = Me.Controls("TextBox" & C).Value
Me.Controls("TextBox" & C) = ""
Next
End With
End Sub
Private Sub CommandButton4_Click() 'CHANGER
Dim I As Integer
I = Me.FRNSEXIST.ListIndex + 2
With Worksheets("FRNS")
For C = 1 To 11
.Cells(I, C) = Me.Controls("TextBox" & C).Value
Me.Controls("TextBox" & C) = ""
Next
End With
End Sub
Pièces jointes
Dernière édition: