Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

message d'attente plutot que cacher excel

  • Initiateur de la discussion Initiateur de la discussion olivemotard
  • Date de début Date de début

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 !

O

olivemotard

Guest
Bonjour a tous

Merci d'abord car vous etes tous super

J ai un petit souci, j'ai une macro longue en execution, et pour ne pas que l utilisateur subisse les defilements de page, j ai mis excel en non visible puis a la fin je le rend visible, probleme, excel disparait tellement longtemps que l on se demande ce qui se passe.
Serait il possible d'inserer une animation (sablier par exemple) ou tout du moins une image d'attente pour que l utilisateur ne soit pas deroute

Voici ma macro

Application.Visible=False
Range("G10").Select
Selection.ClearContents
Range("G11").Select
Selection.ClearContents
Range("G12").Select
Selection.ClearContents
Sheets("recherche").Select
Rows("2:2").Select
Selection.AutoFilter
Rows("2:2").Select
Selection.AutoFilter
Sheets("acceuil").Select
Range("A6😛8").Select
Application.Visible=True
End Sub

Merci d avance
 
Re : message d'attente plutot que cacher excel

Bonjour olivemotard,

pourquoi masquer Excel plutôt que de simplement désactiver l'affichage ?

Application.ScreenUpdating = False
...
Application.ScreenUpdating = True

De plus c'est moins dangereux si ça plante...
 
Re : message d'attente plutot que cacher excel

Bonjour

Pour infos

Code:
Range("G10").Select
    Selection.ClearContents
    Range("G11").Select
    Selection.ClearContents
    Range("G12").Select
    Selection.ClearContents
est équivalent à

Range("G10:G12).ClearContents
 
Re : message d'attente plutot que cacher excel

Bonjour olivemotard,

Mettre en début de macro : Application.ScreenUptating = False
et avant le End Sub : Application.ScreenUptating = True

Ainsi ton écran sera gelé et ne sautera plus.

Et supprimer : Application.Visible=False et celui de la fin aussi

Cela devrait résoudre.

A te lire.

Jean-Pierre
 
Re : message d'attente plutot que cacher excel

Merci pour le screen updating, plus de mouvements et plus d excel qui disparait.

D ailleur merci a tous pour toutes ces infos.
 
Re : message d'attente plutot que cacher excel

Une autre question,

Jean Pierre, tu m a donne l autre jour une macro pour demarer sur la meme page a chaque fois, mais rien n y fait, de l ordinateur ou de moi, je ne sais qui est le plus tetu mais je n y arrive pas, peux tu m expliquer ou placer cette macro, d ailleur a force de bloquer des fichiers et de recommencer je ne l ai plus

Merci
 
Re : message d'attente plutot que cacher excel

Re,

Tu cliques sur ton pseudo, et dans l'onglet statistiques tu recherches toutes les discussions ouvertes par olivemotard et tu vas retrouver le fil instantanément.

Voilà.
 
Re : message d'attente plutot que cacher excel

Private Sub Workbook_beforesave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.Worksheets("Nom de la feuille").Activate
End Sub

Je l ai retrouve merci, mais le soucis c est que je ne sais pas ou la mettre et que comme j ai deja bloque plusieurs fichiers avec ce genre de macro je marche sur des oeufs; je prefere demander avant le mode operatoir
 
Re : message d'attente plutot que cacher excel

Re,

Comme dit sur le fil en question : à coller dans ThisWorkbook

Alt F11 pour aller sous VBE et double clic sur le ThisWorkbook de ton classeur et tu colles les 3 lignes à droite en modifiant le nom de la feuille.

La macro prend effet après le premier enregistrement, ensuite si personne n'enregistre le classeur ou n'active les macros à l'ouverture cela restera fonctionnel.
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

L
Réponses
1
Affichages
1 K
Lucien31
L
T
Réponses
1
Affichages
1 K
titous68
T
O
  • Question Question
Réponses
0
Affichages
726
OLFA MEZNI
O
M
Réponses
20
Affichages
3 K
massol
M
N
Réponses
4
Affichages
2 K
nomitse
N
V
Réponses
2
Affichages
2 K
VOILLOT
V
B
Réponses
1
Affichages
1 K
M
Réponses
3
Affichages
2 K
J
Réponses
1
Affichages
1 K
M
Réponses
22
Affichages
3 K
maxousurf
M
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…