UserForm initialisé comment validier les modifications ?

Re : UserForm initialisé comment validier les modifications ?

bonjour Fredyman,le Forum
en entête de feuille de code,avant 1ère procédure(sub) ajouter ces 2 lignes

Option Compare Text
Dim Ligneactive As Integer

' me =Frm_Recherche voir aide
tu peux faire un test pour écrire que les changements
if Me.txt_nom.Value<>.Cells(Ligneactive, "A").Value then .Cells(Ligneactive, "A").Value = Me.txt_nom.Value
Private Sub Cmd_valider_Click() 'Appliquer les Modicications
Application.ScreenUpdating = False'voir aide
With Sheets("base_donnees")
.Cells(Ligneactive, "A").Value = Me.txt_nom.Value
.Cells(Ligneactive, "B").Value = Me.txt_prenom.Value
.Cells(Ligneactive, "C").Value = Me.txt_matricule.Value
.Cells(Ligneactive, "D").Value = Me.txt_grade.Value
.Cells(Ligneactive, "E").Value = Me.txt_adresse.Value
.Cells(Ligneactive, "F").Value = Me.txt_codepostal.Value
.Cells(Ligneactive, "G").Value = Me.txt_ville.Value
.Cells(Ligneactive, "H").Value = Me.txt_immat.Value
.Cells(Ligneactive, "I").Value = Me.txt_cv.Value
.Cells(Ligneactive, "J").Value = Me.txt_affect.Value
.Cells(Ligneactive, "K").Value = Me.txt_villadmin.Value
.Cells(Ligneactive, "L").Value = Me.txt_nom.Value
.Cells(Ligneactive, "N").Value = Me.txt_rib1.Value
.Cells(Ligneactive, "O").Value = Me.txt_rib2.Value
.Cells(Ligneactive, "P").Value = Me.txt_rib3.Value
.Cells(Ligneactive, "Q").Value = Me.txt_rib4.Value
.Cells(Ligneactive, "R").Value = Me.txt_banque.Value
End With
Application.ScreenUpdating = True
End Sub

à bientôt

Re : UserForm initialisé comment validier les modifications ?

Merci , j essaye ça de suite ...
C est tres sympa ! !

Re : UserForm initialisé comment validier les modifications ?

Merci c est Génial ça marche au Poil ..
Il ne me reste plus qu'a décortiquer ton code pour le comprendre au mieux ..
🙂🙂 ! depuis le temps que travaillais dessus . .