Valider choix userform sans le fermer

**Eric94360** · 10/04/2019, 10h24

Bonjour à tous,

Je désire valider les choix d'un formulaire de simulation, sans fermer ce dernier. Cela me permet ainsi de voir le résultat obtenu, et au besoin de revenir rapidement sur un choix. Actuellement, lorsque je clique sur le bouton Valider, les valeurs ne sont pas prises en compte. Elles le sont si je rentre le code "Unload Me", mais mon formulaire se ferme.
Merci par avance de votre aide. Voici mon code actuel (je ne parviens pas à utiliser la balise code comme le font les autres membres du forum ) :

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
Private Sub Valider_Click()
Dim sh As Worksheet
 
Set sh = Sheets("Analyse S3C")
sh.Unprotect 'déprotéger la feuille Analyse S3C
'Placer les valeurs simulées des numérateurs
    sh.Cells(6, 2) = Num_analyse2.Value
    sh.Cells(6, 3) = Num_FactuCI2.Value
    sh.Cells(6, 4) = Num_BS2.Value
    sh.Cells(6, 5) = Num_CIHorsT02.Value
    sh.Cells(6, 6) = Num_CIT02.Value
    sh.Cells(6, 7) = Num_RedCAP2.Value
    sh.Cells(6, 8) = Num_RedPresse2.Value
    sh.Cells(6, 9) = Num_MAStandard2.Value
    sh.Cells(6, 10) = Num_MACiblées2.Value
 
'Me.Hide
'Unload Me
 
sh.Protect 'Protéger la feuille
 
End Sub

**BENNASR** · 10/04/2019, 10h33

bonjour
pour baliser ton code clique sur l'icone # et copier ton code la dans
Pour ton cas si tu supprime de HIDE et UNLOAD qu'est ce que ça donne ?

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
Private Sub Valider_Click()
Dim sh As Worksheet
 
Set sh = Sheets("Analyse S3C")
sh.Unprotect 'déprotéger la feuille Analyse S3C
'Placer les valeurs simulées des numérateurs
sh.Cells(6, 2) = Num_analyse2.Value
sh.Cells(6, 3) = Num_FactuCI2.Value
sh.Cells(6, 4) = Num_BS2.Value
sh.Cells(6, 5) = Num_CIHorsT02.Value
sh.Cells(6, 6) = Num_CIT02.Value
sh.Cells(6, 7) = Num_RedCAP2.Value
sh.Cells(6, 8) = Num_RedPresse2.Value
sh.Cells(6, 9) = Num_MAStandard2.Value
sh.Cells(6, 10) = Num_MACiblées2.Value
 
sh.Protect 'Protéger la feuille
 
End Sub

**Eric94360** · 10/04/2019, 10h41

Merci pour cette réponse

HIDE et UNLOAD ne sont plus actif puisque j'ai placé une apostrophe devant. Lorsque je clique sur "Valider" le formulaire reste ouvert et rien de se produit.

Eric

**BENNASR** · 10/04/2019, 10h47

c'est bizarre au moins pour moi
peux tu joindre une copie de ton fichier avec des données fictives

**unparia** · 10/04/2019, 11h36

Bonjour
Rétablis le Hide
Mais la propriété Showmodal de ton userform est à mettre à false si tu veux pouvoir agir ailleurs.

Si le problème persiste, ce n'est alors pas en raison du code que tu montres, mais d'autres instructions ailleurs dans ton projet, qui en empêchent la fermeture (dans QueryUnload, par exemple).

Question : es-tu l'auteur de ce projet ?