Modif Procédure Validation Modifs avec Usf

Private Sub CommandButton6_Click() 'Valider Modification sur Echéancier
Dim I As Integer, LigClt As Long, NumClt As Integer
If MsgBox("Voulez-vous valider cette modification", vbYesNo) = vbYes Then
' Récupérer le numéro du client inscrit dans TextBox1
NumClt = Me.TextBox1.Value
'
On Error Resume Next
LigClt = 0
' Trouver la ligne du numéro du client
LigClt = Sheets("Data").Columns("A:A").Find(What:=NumClt, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row
On Error GoTo 0
' Compléter les données pour chaque colonne
For I = 11 To 12
Sheets("Data").Cells(LigClt, I).Value = Me.Controls("textbox" & I)
Next I
End If
En Sub

Cliquez pour agrandir...