Pb action sur toutes les feuilles

[Solange]

Bonjour à toutes et à tous

Je ne comprend pas pourquoi, en ayant ce code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'
For Each Feuille In ThisWorkbook.Sheets

' Feuille.ScrollArea = '$A$1:$AM$200'
Range('AA152').Select

Next Feuille
'
End Sub

A l'ouverture, aucune feuille n'est positionnée en 'AA152' et je n'est pas de repositionnement à l'ouverture.

Quelqu'un aurait il une idée?

Merci

Solange

 

[Rénato]

Bonjour Solange,

Deux propositions :

Pour que la cellule active soit 'AA152', uniquement dans la feuille active à l'ouverture du classeur.

Private Sub Workbook_Open()
For Each feuille In ThisWorkbook.Sheets
Range('AA152').Select
Next feuille
End Sub

A l'ouverture du classeur, comme à chaque changement de feuille, la cellule active devient 'AA152'

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For Each feuille In ThisWorkbook.Sheets
Range('AA152').Select
Next feuille
End Sub

Bonne journée

 

[Gérard DEZAMIS]

Bonjour Solange

Puisque c'est à l'ouverture de ton fichier que tu désires qu'une action se produise il faut donc remplacer :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Par
Private Sub Workbook_Open()

Bon Vendredi 13 La Chance Commence !

@+ GD