Code VBA pour comparer un formulaire avant et après modifications ?

Version imprimable

27/08/2020, 17h24
Ismagapi

1 pièce(s) jointe(s)

Code VBA pour comparer un formulaire avant et après modifications ?

Bonjour au forum,

Je reviens vers vous avec un autre soucis pour mon formulaire.

J'alimente un formulaire Userform Multipage grâce à une ComboBox qui reprend chaque ligne de ma Base de données.

Je souhaiterai que Si j'effectue des modifications dans mon formulaire, et que je change de Ligne dans mon ComboBox il y ait un Message qui me dit qu'il y a eu des modifications et qu'elles n'ont pas été enregistrées.

Soit par comparaison entre le formulaire pré rempli à l'ouverture de mon Contact et avant le changement de contact par la ComboBox.

Soit par l'intermédiaire d'un message qui indique que l'on a pas cliqué sur le bouton 'modifier'.

A l'heure actuelle dans mon fichier le formulaire peut passer d'un contact à un autre que l'on ait validé les modifications ou pas. En plus, les modifications ne sont pas gardés

en mémoire.

Je ne sais pas si je suis assez clair.

Merci à tous ceux qui me rendront ce grand service.

Bonjour,

A mon avis le plus simple est de rendre le déroulant ComboBox1 non visible tant que l'un des boutons Modifier, Enregistrer, Quitter n'a pas été cliqué. Cela peut s'obtenir ainsi:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub ComboBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    ComboBox1.Visible = False
End Sub
 
Private Sub CommandButton2_Click()    '--- bouton Modifier
    ComboBox1.Visible = True
   '...
End Sub
 
Private Sub CommandButton1_Click()    '--- bouton Enregistrer
    ComboBox1.Visible = True
   '...
End Sub
 
Private Sub CommandButton3_Click()    '--- bouton Quitter
    ComboBox1.Visible = True
   '... ? ne propose pas sauver ce qui est en cours
    Unload Me
End Sub

Par ailleurs vous pourriez simplifier votre code en utilisant les instructions Select Case:

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub ComboBox26_Change()
    Select Case ComboBox26.Value
        Case "Accident de Travail", "Arrêt Maladie", "CMA Non Conformes", "ERDAF", "PEC Difficile", "???"
            Label191.Visible = True
            TextBox68.Visible = True
        Case Else
            Label191.Visible = False
            TextBox68.Visible = False
    End Select
End Sub

et utiliser la comparaison pour établir des Vrai/Faux:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Private Sub ComboBox8_Change()
    Dim k As Integer
    k = ComboBox8.Value
 
    Label113.Visible = (k > 0)
    Label112.Visible = (k > 0)
    Label115.Visible = (k > 0)
    Label116.Visible = (k > 0)
    Label117.Visible = (k > 0)
    TextBox19.Visible = (k > 0)
    TextBox20.Visible = (k > 0)
    TextBox21.Visible = (k > 0)
    ComboBox9.Visible = (k > 0)
 
    Label118.Visible = (k > 1)
    Label119.Visible = (k > 1)
    Label120.Visible = (k > 1)
    Label121.Visible = (k > 1)
    Label122.Visible = (k > 1)
    TextBox22.Visible = (k > 1)
    TextBox23.Visible = (k > 1)
    TextBox24.Visible = (k > 1)
    ComboBox10.Visible = (k > 1)
 
    Label123.Visible = (k > 2)
    Label124.Visible = (k > 2)
    Label125.Visible = (k > 2)
    Label126.Visible = (k > 2)
    Label127.Visible = (k > 2)
    TextBox25.Visible = (k > 2)
    TextBox26.Visible = (k > 2)
    TextBox27.Visible = (k > 2)
    ComboBox11.Visible = (k > 2)
 
    Label128.Visible = (k > 3)
    Label129.Visible = (k > 3)
    Label130.Visible = (k > 3)
    Label131.Visible = (k > 3)
    Label132.Visible = (k > 3)
    TextBox28.Visible = (k > 3)
    TextBox29.Visible = (k > 3)
    TextBox30.Visible = (k > 3)
    ComboBox12.Visible = (k > 3)
 
    Label133.Visible = (k > 4)
    Label134.Visible = (k > 4)
    Label135.Visible = (k > 4)
    Label136.Visible = (k > 4)
    Label137.Visible = (k > 4)
    TextBox31.Visible = (k > 4)
    TextBox32.Visible = (k > 4)
    TextBox33.Visible = (k > 4)
    ComboBox13.Visible = (k > 4)
 
    Label138.Visible = (k > 5)
    Label139.Visible = (k > 5)
    Label140.Visible = (k > 5)
    Label141.Visible = (k > 5)
    Label142.Visible = (k > 5)
    TextBox34.Visible = (k > 5)
    TextBox35.Visible = (k > 5)
    TextBox36.Visible = (k > 5)
    ComboBox14.Visible = (k > 5)
End Sub

Cordialement.

29/08/2020, 22h36
Ismagapi

Bien vu ...

Bonne solution je n'y avais pas pensé !!!
Vraiment quelle malice.
Merci pour votre solution.
29/08/2020, 23h08
Ismagapi

Bonjour et Merci encore EricDgn pour ta simplification et ta simplification de mon code cela marche super,

Encore une petite colle qui me gène dans mon formulaire ...

Je souhaite classer par ordre alphabétique mon Combobox1 qui affiche toutes mes lignes de contacts dans un formulaire. J'ai déjà essayé plusieurs code mais le Combobox1 est classé par ordre alphabétique mais cela déplace juste les Noms dans la colonne. Résultat les Noms ne sont plus en lien avec le reste de la ligne sur le tableau.

Avant Classement:

Nom Adresse

C3--> ZOZO D4--> 12 Rue des Cocos

C4--> ABABA D5--> 15 Rue des Codes

Aprés Classement:

Nom Adresse

C3--> ABABA D4--> 12 Rue des Cocos

C4--> ZOZO D5--> 15 Rue des Codes

Lorsque je crée un nouveau contact, il se met à la fin de ma liste Combobox1 mais ne se classe pas alphabétiquement ?

Comment y remédier ?

Merci à tous ceux qui me rendront ce grand service.