Application.Visible ne fonctionne pas

Version imprimable

Bonjour,
Je suis intrigué et embarrassé.
J'ai réalisé et finalisé cette nuit une application de révision des QCM dans le cadre d'une intéressante formation.
La précédente qui date d'une semaine et fonctionne selon un principe différent devrait avoir au moins un point commun avec le QCM: l'invisibilité d'Excel, la seule interface visible étant l'UserForm.
Or, pour une raison qui m'échappe totalement, ce n'est pas le cas: Application.Visible est bien à False, dans les deux cas et à la même place (Sub d'initialisation). Mais voilà, ça ne fonctionne pas dans ma réalisation de cette nuit.
Quelqu'un sait-il m'aider??
Code 1er programme (non purgé: rien à cacher :lol: ):
Code:

1 2 3 4 5 6 7 8 Private Sub UserForm_Initialize() Dim NumColonne As Integer OK = "non" ' Stop Application.Visible = False ' Application.Visible = True Combinaison End Sub
Code programme QCM:
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 UserForm_Initialize() Dim NumColonne As Integer 'reDim Compteur As Integer OK = "non" NumLigne = 3 ' Pour la 1re lecture seulement Drapeau = False Ligne = 1 ' N° 1re ligne Excel du tableau des réponses LigneVraie = 4 ' N° 1re ligne Excel du tableau des réponses LigTab = 1 Message = "Pour continuer, " Compteur = 0 CommandButton1.Caption = "Page suivante" CommandButton2.Visible = False Label26.Caption = "" Application.Visible = False ' Remplissage tableaux 1 et 2 j = 4 For i = 4 To 202 ......... etc... etc...
En remerciant à l'avance toutes les bonnes volontés.
Bien cordialement.

22/04/2015, 01h47
gnain

Bonjour,
normalement cela devrait fonctionner.

C'est quoi Combinaison ?
Est-ce l'appelle d'une sub ?

si oui, dans ce sub Combinaison, n'y aurait-il pas Application.Visible = True ?

et comment s'appelle votre userform, Est-ce bien UserForm ?

avec le pas à pas, est ce qu'il entre bien dans UserForm_Initialize ?
22/04/2015, 11h57
jeancalvet

Bonjour gnain, :)
Je vais répondre au point par point.
- oui, Combinaison est un appel à une Sub.
- non, il n'y a pas "Application.Visible = True" dans aucune partie du 'programme'. Ni True ni False. "Application.Visible" se trouve seulement dans "UserForm_Initialize".
- Oui, je pratique le pas à pas à la moindre difficulté, à la moindre incompréhension.
et pour finir:
-oui, 3 fois 'oui', je suis d'accord avec toi: "Application.Visible = False" ... devrait!!... fonctionner.
Hélas, si je poste, c'est justement à cause de cette anomalie: en l'occurence et à mon grand étonnement, ça ne fonctionne pas ici, dans ce prog "QCM"; mais jusqu'à présent, ça a toujours fonctionné dans mes autres programmes.
Il y a donc bien un détail qui fait foirer la chose. Et c'est pourquoi j'en appelle à la communauté: débusquer ce qui coince.
Merci dans tous les cas!! :)
22/04/2015, 12h14
joe.levrai

Bonjour,

tu peux mettre le code complet de ton initialisation ?

Bonjour,
si vous placez un msgbox juste après Application.Visible = False,
est-ce que excel est invisible a ce moment ?
Code:

1 2 3 4 5 6 7 8 9 Private Sub UserForm_Initialize() Dim NumColonne As Integer OK = "non" ' Stop Application.Visible = False Msgbox "" ' Application.Visible = True Combinaison End Sub

Bonjour,
Pour joe.levrai

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub UserForm_Initialize()
    Dim NumColonne As Integer
    'reDim Compteur As Integer
    OK = "non"
    NumLigne = 3   ' Pour la 1re lecture seulement
    Drapeau = False
    Ligne = 1   ' N° 1re ligne Excel du tableau des réponses
    LigneVraie = 4   ' N° 1re ligne Excel du tableau des réponses
    LigTab = 1
    Message = "Pour continuer, "
    Compteur = 0
    CommandButton1.Caption = "Page suivante"
    CommandButton2.Visible = False
    Label26.Caption = ""
 
 
    Application.Visible = False
 
' Remplissage tableaux 1 et 2
    j = 4
    For i = 4 To 202
        If Cells(i, 2) = "X" Then TableauDesLignes(i - 3, 2) = i
        If i - j = 4 Then
            j = j + 5
        Else
            TableauDesLignes(LigTab, 1) = i
            LigTab = LigTab + 1
        End If
    Next
    LigTab = 1
 
    LectureExcel
 
End Sub

Pour gnain
Je vais essayer.

POUR TOUS LES DEUX:
je vais rester silencieux pendant env. une semaine car je pars passer un exam dans le Sud. Mais je compte bien me manifester dans moins de 8 jours.
Merci d'avance d'essayer de m'aider à résoudre ce problème que je ne peux pas ne pas résoudre bien sûr! ;)

23/04/2015, 17h23
joe.levrai

Bonjour,

tu termines par l'appel d'une autre procédure :

Code:

LectureExcel

on a besoin de voir aussi ce qu'elle contient.

il faut qu'on puisse suivre le cheminement complet de ta procédure d'initialisation, jusqu'au End Sub
Donc si LectureExcel appelle également une autre procédure ou fonction, faut également nous montrer tout ça