Avertir l'utilisateur que des modifications ont été faites...

[blord]

Bonjour à tous,

Après quelques recherches infructueuses sur le forum, je me permet donc de vous posez la question suivante :

Avez-vous un truc quelconque pour avertir l'utilisateur que des modifications on été faites dans les champs d'un UserForm avant de lui permettre de fermer le UserForm... Un peu comme Excel ou Word nous demandes si on veut enregistrer les modifications avant de quitter...

Ma façon de faire était de mettre un checkbox invisible qui venait se cocher aussitôt que l'utilisateur modifiait un contrôle (textbox, chexbox, optionbutton etc...) Cette façon m'oblige à aller coder chaque contrôle ce qui s'avère fastidieux sur un UserForm qui affiche beaucoup de contrôles.

Auriez-vous de suggestions ?

Merci !

Benoit Lord

 

[JNP]

Re : Avertir l'utilisateur que des modifications ont été faites...

Bonsoir Blord 🙂,
Teste ce code (sans garantie)

Dim ARetenir(4)
Private Sub UserForm_Initialize()
Dim MonContrôle As Control
Dim I As Integer
I = 1
For Each MonContrôle In Me.Controls
ARetenir(I) = MonContrôle
I = I + 1
Next
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim MonContrôle As Control
Dim I As Integer
I = 1
For Each MonContrôle In Me.Controls
If ARetenir(I) <> MonContrôle Then MsgBox "le contrôle " & MonContrôle.Name & " est différent"
I = I + 1
Next
End Sub

Le 4 est à adapter à ton nombre de contrôles sur ton USF.
Bonne soirée 😎

 

[blord]

Re : Avertir l'utilisateur que des modifications ont été faites...

Bonjour JNP,

Je viens de tester le tout dans un petit fichier et à première vue, tout semble fonctionner correctement...

Merci beaucoup, je vais faire du "pouce" avec ton code...

Benoit Lord