Modifier les données d'une BBD avec une Usf

[J-c]

Modifier les données d'une BDD avec une Usf

Bonjour à tous

Je pensais pouvoir utiliser la même Usf pour faire des recherches et des modif. dans une Base de Données, mais je n'arrive pas à faire les modif.
Avec le code que j'utilise, les modif. sont toujours enregistré à partir de la cellule C3 au lieu de remplacer les données modifiées.

Pourriez vous m'aider ?
Cdlt J-C

 

[Compte Supprimé 979]

Re : Modifier les données d'une BBD avec une Usf

Salut J-c,

Normal que le modifs soient toujours enregistrées sur la ligne 3
Tu ne vas pas chercher le numéro de ligne du client sélectionné !

Voici le code que tu peux utiliser

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 13
      Sheets("Feuil2").Cells(LigClt, I).Value = Me.Controls("textbox" & I)
    Next I
  End If
  Unload Me
End Sub

Voili, voila

 

[J-c]

Re : Modifier les données d'une BDD avec une Usf

Bonjour à tous

Merci pour la réponse BrunoM45

C'est parfait et ainsi je comprend mieux le fonctionnement

Encore merci et bon Week end à tous

Cdlt J-C