Recalcul automatique dans une et pas dans l'autre ?

[Chri8Ed]

Bonjour

Je ne crois pas que cela soit possible
Mais j'aurais souhaité pouvoir gérer le recalcul automatique par feuille et non dans tout le classeur

Merci si quelqu'un à une idée ?

A+

 

[kjin]

Re : Recalcul automatique dans une et pas dans l'autre ?

Bonsoir,
Pas vraiment le sujet initial il me semble

Private Sub Workbook_Open()
For i = 2 To Sheets.Count
Sheets(i).EnableCalculation = False 'autorise le recalcul dans la première feuille
Next
End Sub

necessite de recharger le classeur
kjin

 

[Chri8Ed]

Re : Recalcul automatique dans une et pas dans l'autre ?

Re,

Normalement, la feuille en question doit être toujours en recalcule manuel

Non à l'ouverture du classeur, la feuille n'est jamais en Recalcul Manuel

Je viens de vérifier avec votre fichier exemple du #Post9

Pour le mettre en manuel il faut cliquer sur la macro !

A+

 

[JBOBO]

Re : Recalcul automatique dans une et pas dans l'autre ?

RE,
Essai de mettre ceci dans thisworkbook :

Private Sub Workbook_Activate()
Macro3
End Sub

Je viens d'essayer ça à l'air de marcher chez moi

 

[Chri8Ed]

Re : Recalcul automatique dans une et pas dans l'autre ?

Bonjour

J'avais bien pensé à cela, mais cela ne va pas.

Car cela agit à l'ouverture sur la feuille qui était ouverte lors de la sauvegarde
et non sur la feuille où je souhaite que la macro agisse

Pour cela, je ne sais pas si c'est possible
Il faudrait pouvoir indiqué le nom de la feuille et dédier cette macro uniquement à cette feuille.

A+

 

[JBOBO]

Re : Recalcul automatique dans une et pas dans l'autre ?

RE,

Peut-etre comme ceci alors :

Private Sub Workbook_Activate()
Sheets(1).EnableCalculation = False
End Sub

en changeant le 1 si besoin par le numero de la feuille concernée.

 

[Chri8Ed]

Re : Recalcul automatique dans une et pas dans l'autre ?

Re,

Cela ne fonctionne pas non plus. 😡

Par contre en mettant dans la feuille concernée

Private Sub Worksheet_Activate()
Recalcul 'C'est le non que j'ai redonné à lamacro
End Sub

Cela fonctionne 😱
Mais cela m'oblige au démarrage à aller dans la feuille quand même
Alors que j'ai rien à y faire !

Pour faire un peu plus court
J'ai pensé faire une macro
Pour ouvrir mon classeur dans cette page
Mais impossible !! 😡

Private Sub Workbook_Open()
Sheets("NomFeuille").Select
End Sub

A+