Discussion :

[mouftie]

Bonjour,
j'ai plusieurs USF (Usf1, Usf2 et Usf3) qui font appellent à la même procédure qui fait un filtre sur la BdD. Pour voir les données filtrées, je dois masquer la USF (avec Hide).
puis je demande à l'utilisateur s'il veut continuer ou pas.
Selon sa réponse je réactive l'USF ou je la ferme.
Le problème c'est que je ne sais pas quel est l'USF masqué

J'utilise le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
If Usf1.Visible Then Usf1.Hide
If Usf2.Visible Then Usf2.Hide
If Usf3.Visible Then Usf3.Hide
Select Case MsgBox("Un filtre a été positionné." _
                       & vbCrLf & "" _
                       & vbCrLf & "Voulez-vous continuer votre saisie ?" _
                       , vbYesNo Or vbQuestion Or vbDefaultButton1, "App")
Case vbYes
            If Usf1.Visible = True Then Usf1.Show
            If Usf2.Visible = True Then Usf2.Show
            If Usf3.Visible = True Then Usf3.Show

Sauf qu'une fois masquée, l'USF n'est pas plus visible que les autres...

d'où ma question comment retrouver la USF masqué ?
Merci pour votre aide.

[Phil'oche]

Bonjour,

Je ne sais pas si j'ai bien compris, mais apparemment, il y a une erreur sur If Usf1.Visible = True Then Usf1.Show (et les suivantes)

Si elle est visible, tu n'as pas besoin de la montrer ??? Ca ne serait pas le contraire, par hasard ???

[unparia]

Bonjour

Drôle de manière de faire l'appel !
Je connaissais "Les absents, levez le doigt"
Je découvre maintenant : "Les présents, soyez présents"


Et en plus : je ne comprends pas la logique d'une condition pour "montrer" si l'on doit de toutes manières "montrer" ! Qu'on montre donc, sans condition ! -->> le résultat sera le même : montrer !

[Philippe Tulliez]

Bonjour Unparia,
Je n'avais même pas regardé le code, me contentant de réagir à la question

[mouftie]

Bonjour à tous et merci pour vos réponses.
Effectivement, Phil'oche, c'est là qu'est le problème... masquée / visible comment savoir si un USF est masqué ?

Je n'ai apparemment pas été claire ; désolée. mon problème c'est que j'ai 3 Usf qui font appel à une procédure identique ; donc quand celle-ci est déclenchée, je ne sais pas quel Usf l'a appelée. c'est pourquoi je commence par dire si Usf1 est visible je le masque et ainsi de suite ; mais une fois que l'utilisateur a vu ce qu'il y avait à voir, il faut qu'il retrouve l'usf d'origine.

Il y a bien une solution avec une variable du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
If Usf1.Visible Then a=1: Usf1.Hide
If Usf2.Visible Then b=2: Usf2.Hide
If Usf3.Visible Then c=3: Usf3.Hide
Select Case MsgBox("Un filtre a été positionné." _
                       & vbCrLf & "" _
                       & vbCrLf & "Voulez-vous continuer votre saisie ?" _
                       , vbYesNo Or vbQuestion Or vbDefaultButton1, "App")
Case vbYes
            If a=1 Then Usf1.Show
            If b=2  Then Usf2.Show
            If c = 3 Then Usf3.Show

mais cela me paraît pas la meilleur façon de faire...

Merci encore pour votre aide

[unparia]

ce n'est pas tellement "mieux", mouftie ...
Mais je commence à deviner ce que tu ne sais pas vraiment exposer.
Et si tu avais la bonne idée de nous montrer non pas un morceau de la procédure dans laquelle se trouvent tes "instructions", mais la totalité (depuis Sub jusqu'à end Sub inclus) de cette procédure ? Cela nous aiderait probablement à y voir clair en dépit de la pauvreté de tes explications ...

[Philippe Tulliez]

Bonjour,
Question 1 - Dans quel but connaître l'endroit où elle est cachée, puisqu'il suffit de la rappeler par programmation.
Question 2 - Pourquoi utiliser autant de UserForm et pourquoi les cacher.
Je crois qu'une bonne analyse du projet permettrait sans doute de n'avoir qu'un seul formulaire ou un formulaire type menu et afficher le formulaire sélectionné dans le formulaire menu.
Je n'ai jamais eu besoin en plus de 10 ans de programmation en VBA de cacher des UserForm. Je crois que c'est une question de conception.

[Invité]

Bonjour,
En tête de tes Usf tu déclare une variable public!

Code :

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

public Afficher as booleant

Code :

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

1
2
If Usf1.Afficher Then a=1: Usf1.Hide:Usf1.Afficher =false
If a=1 Then Usf1.Show:Usf1.Afficher =true

[Philippe Tulliez]

Bonjour,

un pour la saisie, l'autre pour la modif (qui modifie dans plusieurs fichiers) et un pour la conusltation

C'est bien ce que je pensais, c'est un problème de conception.
Il est parfaitement possible de Créer, Consulter, Modifier et supprimer à l'aide d'un seul et même formulaire.

Je te conseille la lecture de cette contribution USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire

[Invité]

https://www.developpez.net/forums/d1...e/#post7819625

[mouftie]

Bonsoir dysorthographie,
Merci pour ta proposition qui fonctionne bien

Philippe, merci pour ton lien que je vais étudier avec assiduité ; j'ai juste jeté un œil, il est très clair et surtout plein de méthodologie.
Quand j'ai débuté avec les USF, j'ai suivi de nombreux tutos, je ne suis jamais "tombée" sur le tien... Dommage !

Encore merci à tous.