Bonsoir à tous
J'utilise ce code pour modifier une base de donné:
Private Sub CommandButton1_Click()
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 TextBox4
NumClt = Me.TextBox4.Value
'
On Error Resume Next
LigClt = 0
' Trouver la ligne du numéro du client
LigClt = Sheets("Feuil2").Columns("D: D").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 = 2 To 15
Sheets("Feuil2").Cells(LigClt, i).Value = Me.Controls("textbox" & i)
Next i
End If
Unload Me
End Sub
Et je voudrais imposer la valeur "0" (Zéro) dans la TextBox 15, ce qui correspond à la colonne "o" de ma "Feuil2" ou bien renvoyer la valeur (Zéro) dans la colonne "o" de la ligne selectionné, mais je ne vois pas comment faire.
Pouvez vous m'aider ?
Cdlt J-C
J'utilise ce code pour modifier une base de donné:
Private Sub CommandButton1_Click()
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 TextBox4
NumClt = Me.TextBox4.Value
'
On Error Resume Next
LigClt = 0
' Trouver la ligne du numéro du client
LigClt = Sheets("Feuil2").Columns("D: D").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 = 2 To 15
Sheets("Feuil2").Cells(LigClt, i).Value = Me.Controls("textbox" & i)
Next i
End If
Unload Me
End Sub
Et je voudrais imposer la valeur "0" (Zéro) dans la TextBox 15, ce qui correspond à la colonne "o" de ma "Feuil2" ou bien renvoyer la valeur (Zéro) dans la colonne "o" de la ligne selectionné, mais je ne vois pas comment faire.
Pouvez vous m'aider ?
Cdlt J-C