Bonjour au forum,
Voila comme rien de probant n'est ressortit de cette discussion , j'ai resolu le probleme comme
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 For Each oName In wbMoi.Names If oName.Name <> "Modele!Print_Area" Then If bloque Then 'On demande le blocage de la plage Range(oName).Select Selection.Locked = True Else 'On libère la plage Range(oName).Select Selection.Locked = False End If End If Next oName
Avec le EnableEvents et le ScreenUpadating à 'false' , il n'y a pas de saut d'affichage
Donc l'un dans l'autre cette solution devra me suffire.
Je met donc un résolu ic
Merci à tous
Michel
Partager