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

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Usine à gaz

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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 :
1669198500925.png

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

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
🙂
 
Dernière édition:
Trier par date Trier par votes
sylvanu à dit:
Bonjour Lionel,
En PJ un essai en reproduisant votre macro.
Evidemment ClearClipboard1 et Trie_Appels sont vides.
Apparemment tout se passe bien à la fermeture. Pouvez vous tester ?
Regarde la pièce jointe 1156157
Cliquez pour agrandir...
Re-Bjr 🙂
Avec ton fichier = pas de souci...
Je mets ton code dans mon fichier et le problème est tjrs là.
J'ai aussi un beug :
1669200515231.png

🙂
Mais on ne trouve pas, pas de souci : ça "m'énerve grave" lol mais aucune incidence sur le fonctionnement du fichier...
🙂
 
Vote positif 0 Vote négatif
Re,
Si vous avez une erreur sur cette ligne, c'est qu'il y a un souci avec Workbooks.count.
Juste pour voir, testez en supprimant cette ligne et en remplaçant la dernière ligne par Application.Quit.
Est ce que ça marche ?
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
    Application.Quit
End Sub
 
Vote positif 0 Vote négatif
sylvanu à dit:
Re,
Si vous avez une erreur sur cette ligne, c'est qu'il y a un souci avec Workbooks.count.
Juste pour voir, testez en supprimant cette ligne et en remplaçant la dernière ligne par Application.Quit.
Est ce que ça marche ?
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
    Application.Quit
End Sub
Cliquez pour agrandir...
Merci encore pour le retour 🙂
Le code ci-dessus fonctionne sans souci...
Les 2 premières lignes apparaissent tjrs grisées mais ça revient plus vite à l'affichage normal.
C'est déjà une avancée = ça m'énerve moins lol
🙂
 
Vote positif 0 Vote négatif
Donc le souci vient de Workbooks.count, puisque la ligne [A1]=Workbooks.count est correcte, dans l'absolu.
Reste à savoir pourquoi ?
Testez cette macro, vous en aurez le cœur net. Un message vous avertira s'il trouve une erreur.
Code: 
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
    Erreur = IsError(Workbooks.Count)
    ActiveWorkbook.Save
    If Erreur = True Then MsgBox = "Erreur sur Workbooks.Count"
    If Erreur = True Or Workbooks.Count = 1 Then
        Application.Quit
    Else
        ThisWorkbook.Close
    End If
End Sub
 
Vote positif 0 Vote négatif
sylvanu à dit:
Donc le souci vient de Workbooks.count, puisque la ligne [A1]=Workbooks.count est correcte, dans l'absolu.
Reste à savoir pourquoi ?
Testez cette macro, vous en aurez le cœur net. Un message vous avertira s'il trouve une erreur.
Code: 
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
    Erreur = IsError(Workbooks.Count)
    ActiveWorkbook.Save
    If Erreur = True Then MsgBox = "Erreur sur Workbooks.Count"
    If Erreur = True Or Workbooks.Count = 1 Then
        Application.Quit
    Else
        ThisWorkbook.Close
    End If
End Sub
Cliquez pour agrandir...
Re-Bjr 🙂
beug ici :
1669202692569.png

🙂
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
749
spike29
S
Usine à gaz
  • Résolu(e)
XL 2021 Filtrage que je ne parviens pas à faire
Réponses
6
Affichages
674
Usine à gaz
Usine à gaz
Usine à gaz
  • Question Question
Microsoft 365 UserForm zoom affichage
Réponses
7
Affichages
955
ChTi160
ChTi160
A
  • Résolu(e)
XL 2019 Passage de 2013 pro à 2019 pro, Pb avec formule VBA, liens hypertexte
2 3 4
Réponses
54
Affichages
3 K
sylvanu
sylvanu
S
  • Résolu(e)
XL 2016 Problème à l'ouverture de mon fichier
Réponses
4
Affichages
1 K
scoubidou35
S
Q
  • Question Question
Microsoft 365 Décaler case s'il y en a 2 similaires dans la même colonne
Réponses
0
Affichages
794
quent632
Q
thunder23
  • Question Question
XL 2010 Demande de mot de passe VBA à la fermeture d'Excel
Réponses
8
Affichages
2 K
thunder23
thunder23
Usine à gaz
  • Question Question
Microsoft 365 ne pas répéter le code feuille (tout ou partie) à l'activation de la feuille si elle a déjà été activée
Réponses
4
Affichages
787
patricktoulon
patricktoulon
Usine à gaz
  • Question Question
Microsoft 365 rechercher uniquement de g7 jusqu'à la dernière ligne NON vide
2
Réponses
28
Affichages
3 K
job75
job75
A
  • Question Question
La méthode select de la classe range a échoué
Réponses
1
Affichages
2 K
Staple1600
Staple1600
Usine à gaz
  • Question Question
XL 2013 Affichage lignes très long
2
Réponses
22
Affichages
2 K
Usine à gaz
Usine à gaz
Usine à gaz
  • Question Question
RESOLU grâce à Gilbert - Sérieux problème d'affichage des feuilles
Réponses
7
Affichages
1 K
Usine à gaz
Usine à gaz
Usine à gaz
  • Question Question
XL 2010 Résolu par la communauté : Tri bcp trop long
2
Réponses
27
Affichages
3 K
Usine à gaz
Usine à gaz
N
  • Question Question
Problème de mise à jour de la page avant d'imprimer
Réponses
10
Affichages
1 K
nibor
N
L
  • Question Question
"Erreur d'exécution 462" à la deuxième application d'une macro
Réponses
3
Affichages
2 K
Lexie
L
miguelangelo
  • Question Question
vba ..aide sur une macro de publipostage
Réponses
1
Affichages
1 K
Caillou
C
yannick64
  • Question Question
Impossible de définir la propriété Hidden...
Réponses
8
Affichages
4 K
yannick64
yannick64
corvelc
  • Question Question
(Résolu) Besoin de quelques conseisl pour finir mon developpement
Réponses
2
Affichages
1 K
corvelc
corvelc
N
  • Question Question
Booster une macro
Réponses
5
Affichages
3 K
Staple1600
Staple1600
B
  • Question Question
suppression de doublons en fin de macro [résolu]
Réponses
2
Affichages
1 K
bonjourdoc
B
Retour