Bonjour

J'ai presque finalisé mon fichier de maintenance mais je viens de voir qu'une fonction ne marche pas autant que souhaité...Je m'explique, enfin je vais essayer. J'appelle des UserForms grâce à plusieurs boutons chacun étant relié à un contenu de case variable du dit formulaire. Pour solutionner ce besoin j'ai eu recours à une syntaxe de ce genre :

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
 
Private Sub M01_Click()
 
'
'
'
 
' Start Time + Accès Module
 
If Not IsEmpty(Range("Trigram1").Value) And Range("Flag1").Value = 1 Then
 
    Dim Top1 As Date
    If Range("Top1").Value = "" Then Range("Top1").Value = Now
    Dim UF1 As String
    UF1 = Range("G7").Value
    UserForms.Add(UF1).Show
 
End If
 
End Sub
Le soucis c'est qu'ensuite et dans le même UserForm, je peux le masquer

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
Private Sub MasqueModule_Click()
 
Me.Hide
 
End Sub
mais ensuite si je le rappelle grâce au premier code, celui-ci n'a pas gardé les modifications de l'utilisateur (check-list cochée, champ de saisie pour mesures ou autres commentaires).En fait dans ce cas il ouvre à priori un autre UserForm, identique mais vierge...

Connaissaissez-vous une solution ou une piste pour solutionner ce pb svp ?

Merci par avance

Laurent