Modifier Enregistrement

Bonsoir membres forum,

Je n'ai pas réussi à adapter ce code pour la modification d'enregistrement.

Sub Afficher_Form_Modification()
Dim Réponse, MonIdEtab As Integer
Dim MonEtablissement, MonNomARABE_Etabl, MonId_AdresseEtab, _
MesAutres_Infos, MesObservations As String
Dim MaDateEnregistrement As Date, Code_Prive As Integer ', En_Service As Boolean

MonIdEtab = ActiveCell.Row

'Vérifier qu'on est dans la plage des Attributions
If MonIdEtab < Range("EtablissementScolaire_Service").Row + 1 Or MonIdEtab > Range("EtablissementScolaire_Service").End(xlDown).Row Then
    Réponse = MsgBox("Sélection incorrecte", vbOKOnly, "Modification de ligne")
    If Réponse Then Exit Sub
End If

With Worksheets("EtablissementScolaire_Service")
    MonIdEtab = .Range("B" & MonIdEtab).Value
    MonEtablissement = .Range("C" & MonEtablissement).Value
    MonNomARABE_Etabl = .Range("D" & MonNomARABE_Etabl).Value
    MaDateEnregistrement = .Range("E" & MonIdEtab).Value
    If .Range("B" & MonIdEtab).Value = "oui" Then
        'En_Service = True
    'Else
        'En_Service = False
    End If
    MesObservations = .Range("F" & MesObservations).Value
    'MonAncienAttribution = .Range("A" & MaLigneAttribution).Value & " " & .Range("C" & MaLigneAttribution).Value
End With

With UserFormEtablissScol
    .TextBoxID_Etabl.Text = MonIdEtab
    .TextBoxNomEtablissement.Text = MonEtablissement
    .TextBoxNomARABE_Etabl.Text = MonNomARABE_Etabl
    .TextBoxObservations.Text = MesObservations

    .TextBoxDateEnregistrement.SelLength = Len(.TextBoxDateEnregistrement.Value)
    '.TB_Quantité.SelLength = Len(.TB_Date.Value)
   ' .TB_Observations.SelLength = Len(.TB_Observations.Value)

    '.Titre.Caption = "Modifier une Attribution"

End With
UserFormEtablissScol.Show
End Sub

Messager d'erreur:

Cette discussion est en rapport avec celle d'ici https://forum.excel-pratique.com/excel/enregistrer-des-donnees-sur-une-feuille-excel-174621

Cordialement.

Réponse dans le post

Enregistrer des données sur une feuille Excel (excel-pratique.com)

A+ François