Discussion :

[YassDumb]

Bonjour,
J'ai petit problème que je n'arrive pas à résoudre..
J'ai un système de plusieurs Userforms qui se suivent. Lorsque je passe du premier au deuxième, j'utilise:

Code :

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

1
2
InfoG.hide
Profil1.show

Je ne peux pas utiliser le unload me pour "InfoG" car des données doivent être conservées. Cepandant, je voudrais faire un équivalent à ce Unload me un peu plus tard via le profil 3 par exemple.

Cordialement

[issoram]

Bonjour,

Je ne comprends pas trop ton problème....Qu'est ce que tu appelles

un équivalent à ce Unload

Sachant que:

des données doivent être conservées

si tu fais un unload ou équivalent tu perds les données.
Pourquoi le .hide ne te convient pas?

Juste avant (ou carrément à l’intérieur de) l'appel de ton UserForm Profil3 tu fais un InfoG.hide. Ça n'irait pas ainsi?

Cordialement.

[YassDumb]

Tout d'abord, merci pour votre réponse.

J'ai des zones de texte où l'utilisateur rentre des données.
Le problème avec le .hide est que lorsque je relance le programme, les zones de textes de InfoG sont remplies avec les données de la manipulation précédente.

C'est juste pour éviter que l'utilisateur ne prenne la peine d'effacer les zones de texte avant de les remplir.

Concrètement je voudrais effacer les donner de InfoG une fois le programme fermé.

Merci.

[issoram]

Ok,

Et bien dans la méthode UserForm_Activate tu peux mettre quelque chose comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'"Vide" l'ensemble des zones de saisie
Private Sub UserForm_Activate()
 
    Dim Ctrl As Control
 
    'Nettoyage de tous les contrôles TextBox
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is MSForms.TextBox Then
            Ctrl.Value = ""
        End If
    Next
 
End Sub

A adapter à tes besoins. L'évenement Activate se produisant où moment au le UserForm prend le focus (méthode .show)

[YassDumb]

Oui c'est parfait, c'est exactement ce que je voulais.
Merci beaucoup!

[napo123]

Bonjour,

Je ne comprends pas quelque chose : qu'est-ce qui empêche de mettre le code ci-dessous après le hide (par exemple à la fin du programme) ?

Code :

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

Unload UF

avec UF l'Userform concerné.

Cela me semble plus simple que d'aller vider à la main les TB & co.