Affichage userform non modal

Version imprimable

18/04/2011, 20h20
SkyRhum

Affichage userform non modal

Bonjour à tous !

Je viens vous embêter avec une question concernant l'affichage des formulaires.

Souhaitant pouvoir agir sur les curseurs afin de visualiser la page pendant que le formulaire est affiché je fais la commande : userform.show 0

Les informations concernant l'userform non modal sont très difficile à avoir sur la toile donc je l'utilise sans forcément trop comprendre. (aide excel très light aussi d'ailleur).

L'affiche de l'userform est dans une macro que j'apelle à partir de ma "macro principale".
Seulement l'affichage de l'userform ne fonctionne pas. Si je met un msgbox juste après userform.show 0 je vois bien le formulaire mais aussitôt cliquer sur ok il disparaît.
Ce qui est bizare c'est que lorsque j'appel seulement la macro qui lance l'userform l'affichage marche bien !
:roll:

Je n'ai peut-être pas été assez clair ou précis je reviendrai avec plaisir vous donner davantage d'information sur ce bien drôle de problème.

Merci de votre lecture !
20/04/2011, 10h33
fring

Bonjour,

Il faudrait voir le code complet pour pouvoir répondre, tu n'aurais pas une commande "userform.hide" qui masque le formulaire ?
20/04/2011, 11h18
NEC14

Bonjour,

Dans les propriétés de ton USERFORM as-tu mis la propriété ShowModal = False
Essaies pour voir.
Sinon, comme le préconise Fring, n'hésites pas à mettre ton code ici.
A+

Bonjour,

alors en ce qui concerne le code :
J'ai du code sur une feuille qui est apellé lors du clic sur un bouton sur cette feuille.
Code:

1 2 3 4 5 6 Private Sub Macro_Decoupage_Click() (ici j'ai une succession de macro que j'apelle qui sont placé dans des modules nommés "macro_secondaire" et "macro_tertiaire" ... ... et enfin j'apelle une dernière macro "testuser" placé dans un module nommé "UserForm" end sub
Voici le code de testuser :
Code:

1 2 3 4 5 6 7 Sub testuser() 'pour les numéros de colonne trouver_num_col ==> une macro placé dans le module "macro_tertiaire" triage ==> une macro placé dans le module "macro_tertiaire" ' Et enfin j'apelle mon formulaire si je ne met pas le 0 (en modal quoi) tout marche bien, mais si je veux le lancer en non modal il ne s'affiche pas. UserForm1.Show 0 End Sub
Je ne vous joint pas le code des différentes macros puisqu'elles sont assez lourdes. Cependant je peux si il le faut vraiment le faire.

PS : En navigant sur la toile pour trouver la solution à mon problème, j'ai cru comprendre que le faite d'activer des feuilles lors d'un programme pouvait empêcher la lecture d'un formulaire en non modal par la suite.
Est-ce vrai ?

Merci de votre lecture !

je fait un edit pour vous dire que j'ai essayer de changer le showmodal dans les options du formulaire mais cela n'a pas marché.

21/04/2011, 09h06
fring

Tu n'as pas une procédure évènementielle dans le module de ton Userform ?
Du style Userform.Initialize ou Userform.Activate

Si j'ai dans un userform_activate()

Code:

1
2
3
Private Sub UserForm_activate()
Suivant_Click
End Sub

Voici le code pour le bouton Suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Suivant_Click()
'Je met cette condition pour que l'on ai pas à cliquer 100 fois sur précédent pour revenir à une erreur
If UserForm1.TextBox1 <> "Il n'y a plus d'erreurs à replacer" Then
        Range("A2").Value = Range("A2").Value + 1
        If Cells(Range("A2").Value, Feuille_TLB_Non_Trouves.UsedRange.Columns.Count) > 0 Then
            UserForm1.TextBox1 = Cells(Range("A2").Value, 5)
        Else
            UserForm1.TextBox1 = "Il n'y a plus d'erreurs à replacer"
        End If
'Ce petit bout de pgm afin d'éviter d'afficher dans la textbox une job description qui
'à déja été orienté, donc la textbox affiche blanc.
'Entre deux job description c'est pas très classe de tomber sur du blanc
        Do While UserForm1.TextBox1 = ""
            Range("A2").Value = Range("A2").Value + 1
                If Cells(Range("A2").Value, Feuille_TLB_Non_Trouves.UsedRange.Columns.Count) > 0 Then
                    UserForm1.TextBox1 = Cells(Range("A2").Value, 5)
                Else
                    UserForm1.TextBox1 = "Il n'y a plus d'erreurs à replacer"
                End If
        Loop
End If
 
End Sub

Je ne sais pas si cela va vous avancer.
Peut-être que vous pourrez repérer quelques fonctions que j'utilise et qui empêche par la suite l'affichage...