Discussion :

[MULTON]

Bonjour,
j'ai élaboré un programme professionnel assez complexe.
Chez moi, sur mon ordinateur, pas de problème, mais sur mon lieu de travail mes collègues ont le programme qui tourne apparemment en boucle sur l'ordre d'ouverture d'un USF.
Il faut faire un CTRL- Pause pour arrêter le programme.
Pas de message d'erreur !
Voici le code :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Workbook_Open()
Call initialisation
End Sub
 
Sub initialisation()
accueil.Show
End Sub

le programme s'arrête donc sur "accueil.show" surligné en jaune après avoir fait CTRL-Pause
Et je n'arrive pas à reproduire le phénomène chez moi.
Je suis maintenant en retraite mais j'assure le suivi de ce programme pour mes anciens collègues qui sont dans la mouise actuellement.
Merci à ceux qui pourront éclairer mon humble lanterne.

[Philippe Tulliez]

Bonjour,
Le problème se situe vraisemblablement dans l'une des procédures du UserForm. Peut-être une boucle ?

[MULTON]

Bonjour et merci d'avoir porté attention à ce sujet.
Est-il possible que certaines instructions tournent en boucle sur un ordinateur et pas sur d'autres ? Si elles n'étaient pas reconnues il devrait y avoir un message d'erreur, non ?
Voici les boucles que j'utilise dans l'initialisation du Userform.

Je fais apparaitre toutes les feuilles

Code :

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

1
2
3
4
Dim Feuille As Worksheet
    For Each Feuille In Sheets
    Feuille.Visible = True
    Next Feuille

Ici je supprime les éventuels filtres sur mes deux classeurs

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Sh As Worksheet   
For Each Sh In WKBOOK1.Worksheets
        If Sh.FilterMode Then
            Sh.ShowAllData
        End If
    Next
    For Each Sh In WKBOOK2.Worksheets
        If Sh.FilterMode Then
            Sh.ShowAllData
        End If
    Next

Et là je ferme tous les Userforms à part l'USF "accueil"

Code :

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

1
2
3
4
5
6
Dim USF As Object
For Each USF In UserForms
    If USF.Name <> "accueil" Then  'And USF.Name <> "Fond_ecran" And USF.Name <> " "
    Unload USF
    End If
Next USF

Et tout fonctionne bien chez moi, pas au boulot !

[Philippe Tulliez]

Bonjour,
Même si cela n'explique pas votre souci, je vois déjà un problème dans votre première procédure.
En ligne 1 vous déclarez la variable comme un objet Worksheet alors que vous parcourez la collection des Sheets donc si dans un classeur, il y a une feuille autre qu'une feuille de calcul, cela provoquera une erreur.
Soit vous déclarez cette variable comme un objet Sheet soit vous parcourez la collection des Worksheets

Difficile d'en dire plus car avec ce code on ne peut pas tout comprendre. D'où viennent les variables WKBOOK1 et WKBOOK2 ?
Vous semblez travailler avec plusieurs formulaires ouverts et si je comprends bien vous les fermez au départ d'un seul ?

Que se passe-t'il si l'on ferme ce formulaire, les autres restent ouverts ?
Cela pourrait donner l'impression d'un blocage, peut-être se ferme t'il lui même avant d'avoir fermé les autres

Pour ma part, je n'aime pas du tout travailler comme cela, c'est la porte ouverte aux problèmes. J'ouvre un formulaire, il fait son job et je le ferme.

[MULTON]

Bonjour,
j'ai modifié la boucle ainsi :

Code :

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

1
2
3
4
Dim Feuille As Worksheet
    For Each Feuille In WKBOOK1.Worksheets
    Feuille.Visible = True
    Next Feuille

Pas de différence chez moi. J'attends une réponse demain de mes collègues.
Mais vous avez raison, cela pouvait engendrer des problèmes.

WKBOOK1 et WKBOOK2 sont bien deux classeurs sur lesquels je travaille.
WKBOOK1 contient le programme et ouvre WKBOOK2 au lancement de la macro.
WKBOOK2 doit rester ouvert car des mises à jour sont effectuées depuis WKBOOK1.
WKBOOK2 est fermé et enregistré par une macro à la fermeture de WKBOOK1

Je vous tiens au courant des résultats.
Merci encore

[MULTON]

Bonjour,
j'ai enfin mis le doigt sur le problème.
Mes collègues travaillent sur un double écran dont un, l'écran principal est physiquement en mode portrait.
Les coordonnées du Userform sont excentrées et ce dernier s'affiche sur l'écran où il devient invisible.
Travaillant en simple écran, ce problème n'apparaissait pas chez moi.
Pour recentrer le Userform sur l'application Excel, il faut lui entrer ce code à l'initialisation :

Code :

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

1
2
Me.Left = Application.Left + Application.Width / 2 - Me.Width / 2
Me.Top = Application.Top + Application.Height / 2 - Me.Height / 2

Cela pourra peut-être servir.
Merci beaucoup pour l'attention que tu as apporté à mon problème, Philippe.