Discussion :

[JulienFBR]

Hello all !

Petite problématique du jour :

J'ai un fichier de base de données Excel, sur lequel je réalise mes entrées grâce à un premier UserForm.
Cette base de données est vivante et est amenée à être modifiée régulièrement.

J'ai donc créé un deuxième userForm pour modifier les entrées de la base de données.
Ce UserForm de modification va chercher par le biais d'une ComboBox la référence d'un produit, et toutes les informations de la base de donnée liées à cette référence, sont entrées dans les champs correspondants de mon UserForm de modification.

Les images valent mieux que les mots :



Pour informations, les boutons "Ajouter lien" permettent d'ajouter des liens hypertexte.

Donc le formulaire "Modifications" me permet de modifier mes entrées.

MAIS !...

Tout fonctionne comme je le souhaite, sauf le bouton "ANNULER".

Je souhaiterais pour ce bouton "ANNULER" du formulaire de modifications, que lorsque je clique dessus, il annule toutes les modifications, toutes les choses changées dans le formulaire de modifications, pour revenir à l'état original (avant d'avoir lancer le formulaire "Modifier" et d'avoir fait des modifications.

Pour les intéressés, voilà mon code pour le UserForm de modification :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
Option Explicit
 
Dim Ws As Worksheet
 
 
'Permet de déverouiller la touche valider
Private Sub CheckBox1_Click()
If Me.CheckBox1.Value = True Then
Me.CommandButton3.Enabled = True
Else
Me.CommandButton3.Enabled = False
End If
 
 
End Sub
 
Private Sub UserForm_Initialize()
Dim J As Long
Dim I As Integer
 
'Initialise le userform
Set Ws = Sheets("Bergstik")
 
 
With Me.ComboBox1
For J = 8 To Ws.Range("A" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("A" & J)
Next J
End With
 
 
 
End Sub
 
 
 
 
Private Sub ComboBox1_Change()
 
'Permet de retrouver les données associées aux champs
 
Dim Ligne As Long
Dim I As Integer
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 8
 
If Ws.Cells(Ligne, "E") = "OUI" Then
OUI1.Value = True
Else
NON1.Value = True
End If
 
If Ws.Cells(Ligne, "G") = "OUI" Then
OUI2.Value = True
Else
NON2.Value = True
End If
 
If Ws.Cells(Ligne, "N") = "OUI" Then
OUI3.Value = True
Else
NON3.Value = True
End If
 
Nom_Lien.Text = Ws.Cells(Ligne, "F")
Exp.Text = Ws.Cells(Ligne, "H")
WHISKERS.Text = Ws.Cells(Ligne, "I")
UL.Text = Ws.Cells(Ligne, "J")
MSL.Text = Ws.Cells(Ligne, "K")
QUALIF_P.Text = Ws.Cells(Ligne, "L")
SPEC.Text = Ws.Cells(Ligne, "M")
 
End Sub
 
 
Private Sub CommandButton4_Click()
 
'Bouton annuler que je souhaite configurer
Modif_Bergstik.Hide
 
End Sub
 
Private Sub ADD1_Click()
 
 
    'ADD1 = Bouton "Ajouter Lien"
    Range("F8").Select
    Application.Dialogs(xlDialogInsertHyperlink).Show
    'Nom_Lien = textbox associée
    Nom_Lien.Text = Range("F8")
    DoEvents
 
End Sub
 
Private Sub ADD2_Click()
'ADD2 = Bouton "Ajouter Lien"
    Range("I8").Select
    Application.Dialogs(xlDialogInsertHyperlink).Show
    'WHISKERS = textbox associée
    WHISKERS.Text = Range("I8")
    DoEvents
End Sub
 
Private Sub ADD3_Click()
'ADD3 = Bouton "Ajouter Lien"
    Range("J8").Select
    Application.Dialogs(xlDialogInsertHyperlink).Show
    'UL = textbox associée
    UL.Text = Range("J8")
    DoEvents
End Sub
 
Private Sub ADD4_Click()
'ADD4 = Bouton "Ajouter Lien"
    Range("K8").Select
    Application.Dialogs(xlDialogInsertHyperlink).Show
    'MSL = textbox associée
    MSL.Text = Range("K8")
    DoEvents
End Sub
 
Private Sub ADD5_Click()
'ADD5 = Bouton "Ajouter Lien"
    Range("L8").Select
    Application.Dialogs(xlDialogInsertHyperlink).Show
    'QUALIF_P = textbox associée
    QUALIF_P.Text = Range("L8")
    DoEvents
End Sub
 
Private Sub ADD6_Click()
'ADD6 = Bouton "Ajouter Lien"
    Range("M8").Select
    Application.Dialogs(xlDialogInsertHyperlink).Show
    'SPEC.Text = textbox associée
    SPEC.Text = Range("M8")
    DoEvents
End Sub

Et le code qui initialise le userForm de modifications :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Private Sub Modif_Saisie_Click()
 
With Modif_Bergstik
 
    .ComboBox1.Text = ""
    .CheckBox1.Value = False
    .OUI1.Value = False
    .OUI2.Value = False
    .OUI3.Value = False
    .NON1.Value = False
    .NON2.Value = False
    .NON3.Value = False
    .Nom_Lien.Text = ""
    .Nom_Lien.Enabled = False
    .Exp.Text = ""
    .WHISKERS.Text = ""
    .WHISKERS.Enabled = False
    .UL.Text = ""
    .UL.Enabled = False
    .MSL.Text = ""
    .MSL.Enabled = False
    .QUALIF_P.Text = ""
    .QUALIF_P.Enabled = False
    .SPEC.Text = ""
    .SPEC.Enabled = False
    .CommandButton3.Enabled = False
 
 
End With
 
 
Modif_Bergstik.Show
 
End Sub

Voilà voilou, je vous remercie par avance pour votre aide,

Cordialement
JFA

[letienne]

Bonjour,

j'imagine qu'il faut faire une sauvegarde de l’élément juste avant de valider une modif. et effacer cette sauvegarde au moment ou on décharge le UserForm.
Le meilleur moment pour sauvegarder c'est sans doute lorsqu'on clique sur modifier. Et la sauvegarde peut se faire sur une feuille excel pour faire simple.

Quand Clique sur Modifier
Sauvegarde valeur originale (par ex dans une feuille backup)
Ecriture nouvelle ligne
Fin

Quand clique sur Annuler
Remplacement des lignes modifiées par leur sauvegarde
Fin

Il faut gérer le cas de plusieurs lignes modifiées à la suite, ou d'une même ligne modifiée plusieurs fois de suite ?

[JulienFBR]

Bonjour letienne,
Tout d'abord merci pour ta réponse et ton intérêt.

Je vois ce à quoi tu penses, mais n'y a-t-il pas un moyen par exemple d'inclure une macro "Retour en arrière" ou quelque chose du genre ?
Exemple : annuler les clicks, annuler les saisies etc.

En principe les lignes à modifier peuvent l'être plusieurs fois (je préfère couvrir toutes les éventualités), avec mon userform on ne traite qu'une seule ligne à la fois.

Merci encore,
JFA

[letienne]

à ma connaissance il n'existe pas d'équivalent en VBA d'un ROLLBACK comme on peut en avoir en SQL.

Par contre tu peux sauvegarder le classeur à l'ouverture du UserForm et charger cette sauvegarde lorsqu'on clique sur annuler.


Autrement s'il ne s'agit que d'une ligne, tu peux même enregistrer les valeurs en mémoire dans le formulaire, sans passer par une écriture dans un fichier ou une feuille excel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
'Tableau pour stocker les valeurs
Dim Sauvegarde
'Nombre pour stocker la Ligne 
Dim sLigne as Long
 
'Et dans la sub modifier (que je n'ai pas trouvé dans ton code)
If Sauvegarde is Nothing then 
    Sauvegarde = Ws.Range("A" & Ligne & ":J" & Ligne)
    sLigne = Ligne
End If
'Les modif....
...
Private Sub CommandButton4_Click()
Ws.Range("A" & sLigne & ":J" & sLigne) = Sauvegarde
Unload Me
End Sub