Microsoft 365 affichage bizarre à la fermeture de mon "usine à gaz"

Usine à gaz · 23 Novembre 2022

Bonjour à toutes et à tous

A la fermeture de mon fichier, j'ai un affichage bizarre lol
Je suis sur la feuille de mon classeur affichage normal :

Quand je ferme mon fichier, j'ai cette affichage :
(uniquement sur les 2 premières lignes les autres restant affichées normalement)

Voici mon code de fermeture :

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.MoveAfterReturn = True
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveWindow.DisplayZeros = False

    Sheets("Repondeurs").Unprotect Password:="Krameri"
    Sheets("Repondeurs").Range("ac1") = ""
    ClearClipboard1

    ActiveWindow.DisplayHeadings = True
     With Application
    .MoveAfterReturn = True
    .MoveAfterReturnDirection = xlToRight
    Application.MoveAfterReturnDirection = xlToRight
    End With
    Trie_Appels

    With Application 'plein écran
    .WindowState = xlMaximized 'window max
    End With
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = False
    Application.ScreenUpdating = True
    Sheets("A Faire").Select
    ActiveWorkbook.Save
    If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub

Avez déjà rencontré ce "truc" ? lol
Ce n'est pas gênant et aucune influence sur le fichier et mes feuilles, tout fonctionne bien mais ça "m'énerve " depuis très longtemps.

Merci pour vos retours

TooFatBoy · 23 Novembre 2022

Commence ta procédure de fermeture par Application.WindowState = xlMinimized et tu ne verras plus la modification d'affichage de ta feuille.

job75 · 23 Novembre 2022

Bonjour Lionel, sylvanu, M12,

Un bug sur [A1] = Workbooks.Count ça sent le fichier corrompu.

Ce qui pourrait expliquer le problème posé au post #1.

A+

Usine à gaz · 23 Novembre 2022

job75 à dit:
Bonjour Lionel, sylvanu, M12,

Un bug sur [A1] = Workbooks.Count ça sent le fichier corrompu.

Ce qui pourrait expliquer le problème posé au post #1.

A+

Bjr Gérard
Merci d'être là.
Je ne crois pas qu'il soit corrompu car il fonctionne très bien.
Tout en fonctionnant nickel, un fichier peut être corrompu ?

Efgé · 23 Novembre 2022

Re
La syntaxe est aussi à mettre en cause :

Cordialement

Usine à gaz · 23 Novembre 2022

Efgé à dit:
Re
La syntaxe est aussi à mettre en cause :
Regarde la pièce jointe 1156175

Cordialement

Bjr Efgé

Merci pour ce retour

job75 · 23 Novembre 2022

Usine à gaz à dit:
Je ne crois pas qu'il soit corrompu car il fonctionne très bien.
Tout en fonctionnant nickel, un fichier peut être corrompu ?

Il ne fonctionne pas bien, un bug sur [A1] = Workbooks.Count est tout à fait anormal.

Salut Efgé, oublié de te saluer.

Usine à gaz · 23 Novembre 2022

job75 à dit:
Il ne fonctionne pas bien, un bug sur [A1] = Workbooks.Count est tout à fait anormal.

Salut Efgé, oublié de te saluer.

OUI, je comprends mais le fichier fonctionne "tout bien", les codes les fonctions, les calculs etc...
Comme je l'ai dit en #post15 :

sylvanu à dit:
Et si vous nous fournissiez une PJ ?

J'y avait pensé mais pour être certain de reproduire le "phénomène" lol", il faudrait que je joigne mon fichier de travail.
Ca va être long d'anosmiser tout ca. Je verrai si j'ai du temps ce soir.
Sinon, je le ferai ce WE

Efgé · 23 Novembre 2022

Re
Et au sujet de

Efgé à dit:
Bonjour à tous
Application.EnableEvents = False dans un Workbook_BeforeClose , vous êtes sûr de vous là ?
Cordialement

Cordialement

job75 · 23 Novembre 2022

Oui, Application.EnableEvents n'est pas remis à True ce qui peut poser problème si d'autres fichiers restent ouverts.

Usine à gaz · 23 Novembre 2022

Re-Gérard, Re Sylvanu, Re Efgé, Re M12 à tous
Le fait que tu me dises que mon fichier peut être "corrompu" me titille grave.
J'ai tout laissé tomber et fait un fichier test. que je joins.

Je suis au poteau et j'attends le peloton d'exécution lol
Ne soyez pas trop durs avec le "bidouilleur que je suis.
Vous allez voir des horreurs de codes bidouillés : Ne me sautez pas dessus
LOL Ne me dites pas : ça marche ce truc ? = OUI, aussi bizarre que ça pourra vous paraître ça fonctionne lol

Seul l'objet du titre du fil est à voir.
Mais vous avez le droit de me corriger tous mes codes lol

Merci à tous de bien vouloir m'aider

Usine à gaz · 23 Novembre 2022

Voici quelques explications sur le fonctionnement du fichier :
faut p'être que je vous dise comment je travaille sur ce fichier...
Ne pas appeler
Sert uniquement à mettre les Vendeurs à ne pas rappeler

A Faire
les infos proviennent de la feuille "ClientsCoordonnées" qui est masquée
Son utilité, aucune action sur cette feuille, elle permet par Client de :
- Voir si on a pris les RdVs demandés sur le mois en cours et donne les RdVs pris sur les 3 derniers mois,
- Voir le détail des appels fait le jour en cours les les 3 jours avant
- Au clic sur une cellule = affiche toute la ligne permettant une meilleure visibilité.

Répondeur (là est le gros des actions)
Pour un nouvel appel à affecter, clic sur le bouton "Ajout ligne..."
- on colle le numéro préalablement copier sur site en colonne G (on peut en ajouter un en colonne H)
- En colonne J on note le N° du Client concerné et ses infos se mettent en colonne P
- au clic sur la colonne N, un menu s'affiche pour l'affectation et on affecte :
A rappeler , un calendrier s'affiche pour sélectionner la date de rappel,
Répondeur, la date de rappel se met automatiquement,
Les autres affectations etc...

Voilà les premières explications de fonctionnement.

job75 · 23 Novembre 2022

Bon je pense que le bug sur [A1] = Workbooks.Count vient du fait que la feuille est protégée.

Usine à gaz · 23 Novembre 2022

job75 à dit:
Bon je pense que le bug sur [A1] = Workbooks.Count vient du fait que la feuille est protégée.

Merci Gérard, je vais voir.
Pardon pour mon fichier compliqué et bidouillé

Usine à gaz · 23 Novembre 2022

Re Gérard
"job75 à dit:
Bon je pense que le bug sur [A1] = Workbooks.Count vient du fait que la feuille est protégée."

Oui c'est ça pour le beug
Par contre j'ai toujours :

lol : ça fait des années que je vis avec : je continuerai car fonctionnellement, ça ne gêne pas
Mais bon sang : que ça m'énerve"
D'un autre côté, je suis rassuré quant à un éventuel "fichier corrompu"

TooFatBoy · 23 Novembre 2022

Bonjour,

Usine à gaz à dit:
A la fermeture de mon fichier, j'ai un affichage bizarre lol
Je suis sur la feuille de mon classeur affichage normal :

Quand je ferme mon fichier, j'ai cette affichage :
(uniquement sur les 2 premières lignes les autres restant affichées normalement)

Apparemment je suis le seul à me poser la question, mais : en quoi est-ce gênant d'entre-apercevoir deux lignes grises lors de la fermeture d'un fichier, si à l'ouverture suivante tout fonctionne correctement ???

Usine à gaz · 23 Novembre 2022

TooFatBoy à dit:
Bonjour,

Apparemment je suis le seul à me poser la question, mais : en quoi est-ce gênant d'entre-apercevoir deux lignes grises lors de la fermeture d'un fichier, si à l'ouverture suivante tout fonctionne correctement ???

Bjr à toi
Ce n'est pas gênant mais je ne trouve pas ça "normal" et ça m'énerve Grrr :::
Mais bon avec mes usines à gaz ... lol

Microsoft 365 affichage bizarre à la fermeture de mon "usine à gaz"

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires