Bloquage des calculs

[Jacques25]

Bonsoir à tous,

J'ai un besoin certe assez peu commun pour un tableur (étant sa fonction principale) de pouvoir bloquer les calculs et les déclenchant par un autre moyen.
Pour une meilleure compréhension :
1 - je fais enregistrer des données par l'intermédiaire d'userform par des opérateurs sur un fichier vierge de tout calcul
2 - je recopie ces données sur une fichier (autre PC) où se trouve tous les calculs et je lance l'analyse.

Mon besoin pour réagir plus vite et gagner du temps :
1 - fusionner les 2 fichiers en désactivant les calculs automatiques (assez long étant donné la lourdeur du fichier) ==> ça c'est OK
2 - de ne pouvoir lancer les calculs qu'en rentrant un mot de passe dans une boite de dialogue quelconque (Exit la touche F9 et l'accès par le menu Outils/Option)

Je ne sais pas si c'est possible, il y a une cause à ça c'est d'éviter de faire mouliner le PC par inadvertance ou par curiosité pendant que mon personnel en a besoin. Pour en avoir fait l'expérience ils ont tendance à toucher à tout sans rien connaitre et comme par hasard c'est jamais personne.

Merci pour votre aide.

@ plus

Jacques

 

[myDearFriend!]

Re : Bloquage des calculs

Bonsoir Jacques25, le Forum,

Voir la propriété EnableCalculation de l'objet Worksheet :

ThisWorkbook.Worksheets("Feuil1").EnableCalculation = [COLOR=NAVY]False[/COLOR]

Théoriquement, cette instruction empêche tout calcul pour la Feuil1 du classeur (même avec F9). Un recalcul se déclenchera uniquement lorsque tu remettras cette propriété à True.

Cordialement,

 

[Jacques25]

Re : Bloquage des calculs

Salut My dear friend,

Merci pour l'info, je vais essayer ça demain.

Bonne soirée

 

[Jacques25]

Re : Bloquage des calculs

Salut MDF, le forum,

Merci pour ton aide c'est exctement ce que je voulais.

Encore merci et bonne journée

Jacques

 

[Jacques25]

Re : Bloquage des calculs

Salut MDF, le forum,

Tout d'abord, meilleurs voeux à tout les participants du forum et surtout un grand merci à tout ceux qui nous aident.

juste une petite précision concernant ma demande, le code suivant :

ThisWorkbook.Worksheets("Feuil1").EnableCalculation = False

va être valable pour l'onglet Feuil1,

Comment puis utiliser cette fonction pour l'ensemble des onglets.

Merci de votre aide.

Jacques

 

[myDearFriend!]

Re : Bloquage des calculs

Bonsoir Jacques25,

Je ne vois pas d'autre solution que de passer par une boucle dans ce cas :

[COLOR=NAVY]Dim[/COLOR] F [COLOR=NAVY]As[/COLOR] Worksheet
    [COLOR=NAVY]For Each[/COLOR] F [COLOR=NAVY]In[/COLOR] ThisWorkbook.Worksheets
        F.EnableCalculation = [COLOR=NAVY]False
    Next[/COLOR] F

Cordialement,

 

[Jacques25]

Re : Bloquage des calculs

Salut MDF, le forum,

Merci pour ta réponse je vais mettre ça en application dès demain.


Bonne soirée à tous

Jacques