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

Afficher un userform pendant recalcul sommeprod ?

Créer une discussion

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
T

terence75017

XLDnaute Nouveau
Bonjour, enfin Re !


juste une question, est-il possible d'afficher un userform pendant le recalcule d'une info (avec la formule sommeprod entre autre...)

Car je compte créer un message du style "veuillez patienter" pendant que ma formule recalcul les données.


Encore une fois merci d'avance pour votre réponse !

a++🙂🙂🙂
 
Trier par date Trier par votes
Re : Afficher un userform pendant recalcul sommeprod ?


Apparemment, la macro évenementielle ne s'execute qu'après le calcul et pas en même temps.
De même, si application.calculate se trouve dans la macro, la macro ne continue pas tant que le calcul n'est pas fini, à confirmer...
J'ai aussi le phénomène de clignotement 🙁
 
Vote positif 0 Vote négatif
Re : Afficher un userform pendant recalcul sommeprod ?

Re,

basé sur ce que j'ai dis précédemment, ce code doit marcher (en tout cas chez-moi oui):

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$36" Then
  Application.Calculation = xlCalculationManual
  UserForm1.Show 0
  Application.Calculate
  UserForm1.Hide
  Application.Calculation = xlCalculationAutomatic
End If
End Sub

Pourquoi ce compliquer la vie?🙄
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Afficher un userform pendant recalcul sommeprod ?

Bonjour à tous,

Nickel Skoobi, ça fonctionne parfaitement. j'ai juste rajouté un DoEvents après Userform1.Show 0 pour qu'il redessine la boîte de dialogue.

j'ai juste l'impression qu'il calcule deux fois (moi j'ai fait des tests avec des fonction ALEA alors je vois bien la différence) mais je vois pas comment contourner ça...
 
Vote positif 0 Vote négatif
Re : Afficher un userform pendant recalcul sommeprod ?

Bon, finalement une possibilité pour que le calcul n'ai lieu qu'une fois :

on met la Propriété EnableCalculation de la Feuille à False

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    UserForm1.Show 0
    DoEvents
    ActiveSheet.EnableCalculation = True
    ActiveSheet.EnableCalculation = False
    UserForm1.Hide
End If
End Sub

Bon, le gros problème est que la feuille ne se recalcule pas en temps normal, seulement si on modifie les cellules prévues dans Worksheet_Change...
 
Vote positif 0 Vote négatif
Re : Afficher un userform pendant recalcul sommeprod ?

je vais tenter de poster un fichier plus léger car le miens fait 18Mo ! c'est une gross base de données !

merci à vous de préoccuper de mon prob !

bonne journée !
 
Vote positif 0 Vote négatif
Re : Afficher un userform pendant recalcul sommeprod ?


Re bonjour,

pour cela il faut éviter que l'évenement devienne récursive comme ceci (ne pas oublié de la rendre à nouveau active à la fin du code) et là sa devrait le faire😉


Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR=blue][B]Application.EnableEvents = False[/B][/COLOR]
If Target.Address = "$A$36" Then
  Application.Calculation = xlCalculationManual
  UserForm1.Show 0
  DoEvents
  Application.Calculate
  UserForm1.Hide
  Application.Calculation = xlCalculationAutomatic
End If
[B][COLOR=blue]Application.EnableEvents = True[/COLOR][/B]
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Afficher un userform pendant recalcul sommeprod ?

Encore moi.....,

Je pensais que la macro événementielle s'exécute avant le calcul, que nini,
ce dernier se produit en premier d'où 2 calculs, rrrrrr 😡.
Donc, pour que ça marche il faut passer le calcul excel en manuel (dans l'option) puis exécuter ceci:

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR=Black]Application.EnableEvents = False[/COLOR]
If Target.Address = "$A$36" Then
  UserForm1.Show 0
  DoEvents
  Application.Calculate
  UserForm1.Hide
End If
[COLOR=Black]Application.EnableEvents = True[/COLOR]
End Sub
Remettre éventuellement l'option en auto à la fermeture du fichier avec l'évènement Private Sub Workbook_BeforeClose(Cancel As Boolean) ET
l'option en manuel à l'ouverture du fichier avec l'évènement Private Sub Workbook_Open()
Code: 
Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
End Sub

Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlCalculationAutomatic
End Sub


Voili voilou.
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
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

R
  • Question Question
XL 2016 TDC dans unserform avec segments
Réponses
1
Affichages
457
patricktoulon
  • Résolu(e)
Microsoft 365 comment "ralentir" une macro
Réponses
9
Affichages
409
Eric 888
C
  • Question Question
XL 2016 Un chronomètre qui affiche TOUTES les secondes pendant la durée d'un traitement
2
Réponses
20
Affichages
2 K
crocrocro
C
  • Résolu(e)
XL 2016 VBA - Redimensionner un UserForm après le retrait de la barre du menu système (Caption)
5 6 7
Réponses
101
Affichages
3 K
Dudu2
  • Résolu(e)
Autres toutes versions tester le scrool avec la roulette sans passer par un hooking en addressof
42 43 44
Réponses
647
Affichages
10 K
patricktoulon
  • Question Question
Autres toutes versions tester le scrool avec la roulette sans passer par un hooking en addressof
Réponses
2
Affichages
112
patricktoulon
T
  • Question Question
XL 2019 dans un tableau ( mise en forme de tableau), 2 couleur pour 1 tableau
Réponses
4
Affichages
255
tuti
T
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
690
Nel'
N
D
  • Question Question
XL 2019 Message diffèrent en fonction état booléens
Réponses
3
Affichages
635
darkjedi
D
T
  • Résolu(e)
Microsoft 365 Exporter les plages nommées vers un nouveau classeur - plage nommée invalide selon VBA
Réponses
2
Affichages
324
tnion
T
J
  • Question Question
XL 2016 Optimisation SOMMEPROD (résolu)
Réponses
11
Affichages
944
tbft
S
  • Question Question
XL 2016 Récupérer un nombre dans une cellule pour l'inclure dans une formule
Réponses
4
Affichages
562
shushen
S
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
265
picc
P
O
  • Question Question
XL 2019 erreur de valeur sur formule
2
Réponses
18
Affichages
1 K
olivier1984
O
Astuce du jour (Lister les cellule avec formule avec référence circulaire)
Réponses
3
Affichages
225
Dranreb
  • Résolu(e)
Microsoft 365 Userform - Transfert de données
Réponses
6
Affichages
570
Simbaa
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
680
job75
M
  • Question Question
XL 2021 Créer une liste d'informations en colonne dans des cellules différentes
Réponses
3
Affichages
546
djidji59430
L
  • Résolu(e)
XL 2016 MFC sur plusieurs critères
2 3 4
Réponses
55
Affichages
2 K
Lorenzini
L
D
  • Question Question
XL 2010 Afficher un doc Word sur une feuille et pouvoir le faire défiler
Réponses
5
Affichages
406
danielco
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…