XL 2016 Exécuter macro et Rafraîchir userform

[KTM]

Bonsoir chers tous

Depuis mon userform je dois réinitialiser mon fichier en utilisant le code ci dessous qui fait appel à Cinq Macros M1,M2...M5
et a la fin une macro Protect qui protège toutes les feuilles du classeur.
Mais il se trouve qu'au moment de l'exécution de la macro Protect , mon userform devient tout blanc jusque à la fin du processus.
Comment y remédier ?
Merci

Private Sub reinit_Fichier_Click()
If MsgBox(" Voulez-vous Reinitialiser ce Fichier ? ", vbYesNo + 32) = vbYes Then
Me.Label6.BackColor = RGB(255, 255, 255)
Me.Label6.Caption = " Veuillez Patienter SVP : Reinitialisation des Données en cours.......... "
Call M1
Call M2
.
.
Call M5
Call Protect
Me.Label6.BackColor = &HFFFFC0
Me.Label6.Caption = ""
End If
End sub



Voici ma macro Protect


Sub Protect()
Application.ScreenUpdating = False
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
With sh
.Visible = xlSheetVisible
.Unprotect Password:="mdp"
.EnableAutoFilter = True
.EnableOutlining = True
.Cells.Locked = False
On Error Resume Next
.Cells.SpecialCells(xlCellTypeFormulas, 23).Locked = True
.Cells.SpecialCells(xlCellTypeConstants, 2).Locked = False
On Error GoTo 0
.Protect Password:="mdp", _
AllowFormattingCells:=True, _
AllowFormattingColumns:=True, _
AllowFormattingRows:=True, _
AllowInsertingColumns:=False, _
AllowInsertingRows:=False, _
AllowInsertingHyperlinks:=True, _
AllowDeletingColumns:=False, _
AllowDeletingRows:=False, _
AllowSorting:=True, _
AllowFiltering:=True, _
AllowUsingPivotTables:=True, _
UserInterfaceOnly:=True
.EnableSelection = xlUnlockedCells

End With
Next sh
End sub

 

[Staple1600]

Bonjour le fil

KTM
Pourquoi mettre le même titre que ta précédente discussion?
Ça prête à confusion, non?

 

[TooFatBoy]

Bonjour,

J'aurais bien envie de répondre la même chose que dans l'autre thread : tu mets un Repaint juste avant le Next.

 

[jmfmarques]

Bonjour
Le code ici montré n'est en soi (lui-même, donc) pas responsable du gel graphique dénoncé.

Si (et uniquement si) cette procédure est bien celle qui provoque la chose, il n'est par contre pas impossible que les feuilles concernées contiennent un énorme lot de formats différents, etc ... et que la mémoire de la carte graphique s'en trouve perturbée, sinon dépassée.

 

[Staple1600]

Re, Marcel32, jmfmarques

=>Marcel32
Pas assez rapide, camarade
(cf message#2)

 

[KTM]

Bonjour le fil

KTM
Pourquoi mettre le même titre que ta précédente discussion?
Ça prête à confusion, non?

MERCI
Pour le post précédent la réponse de
patricktoulon a resolu mon soucis. Celui ci n'est qu'une variante. J'aurais du reformuler. Toutes mes Excuses.

 

[Staple1600]

Re

KTM
Rien n'est perdu
Tu peux modifier le titre de ta discussion
(pour la distinguer de l'autre)
Pour ce faire, allez dans le 1er message et cliquer sur la fleche bleue à droite => Outils de la discussion => Editer le titre