XL 2016 Texte défilant et ouverture de fichier

[WEIDER]

Bonjour,

Pouvez vous m'aider à résoudre ce problème, je n'y arrive hélas pas car je ne comprends pas.

Tout est dit dans mon fichier joint.

Mill mercis à tous pour votre aide.

Amicalement.

 

[ericcool]

Bonjour le forum
Bonjour WEIDER

Essaies ceci :
Sheets("Nomenclature").Select au lieu de :
"Feuil1.[A1].Select"
@+ EricC

 

[ericcool]

Re,
Essaies ceci pour l'ouverture spécifique en cellule A1 sur chaque onflet :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim x As Single
For x = 1 To ThisWorkbook.Worksheets.Count
ThisWorkbook.Worksheets(x).Activate
Range("A1").Activate
Next
End Sub
@+ EricC

 

[M12]

Bonjour à tous
Un test avec un retard du lancement de la macro à l'ouverture

 

[WEIDER]

Merci à tous pour vos réponses !

La dernière option de M12 me conviendrait.
-->Par contre, si j'enregistre les 2 autres onglet décalé par exemple vers le bas, lors de l'ouverture suivante du fichier en me déplaçant ensuite sur ces onglets ils ne se recalent pas en cellule 'A1' !?!?

 

[M12]

Re
Je ne comprend pas ta manoeuvre
si j'enregistre les 2 autres onglet décalé par exemple vers le bas

 

[WEIDER]

Et bien quand j'enregistre ces onglets décalées vers le bas, c'est à dire que je ne vois pas les première lignes, que je quitte le fichier et que je l'ouvre à nouveau et que j'aille sur ces onglets, et bien ils ne se recale pas en haut sur la cellule 'A1' !? Ils apparaissent en décalés, comme lorsque je les ai sauvegardé la fois d'avant.

 

[WEIDER]

Voici le fichier montrant les 2 onglets décalés lorsqu'on les ouvre...

 

[M12]

Re,

Bizarre, chez moi cela fonctionne
Teste en remplaçant le range("A1").activate par un Range("A1").select
dans le Code du Beforeclose de Thisworkbook

 

[Si...]

Re

Excel doit être ouvert (avec ma version 2010 ).
Ne garder que les macros suivantes dans ThisWorkbook

Private Sub Workbook_Open()
  Dim T$, Ti
  Feuil1.Select
  T = "Attention aux datas !  "
  Do
  Feuil1.Shapes("Oups").TextFrame.Characters.Text = Left(T, 10)
  T = Right(T, Len(T) - 1) & Left(T, 1)
  Ti = Timer
  Do While Timer < Ti + 0.4: DoEvents: Loop
  Loop While Selection.Address = "$A$1"
  Feuil1.Shapes("Oups").TextFrame.Characters.Text = "Attention aux datas !"
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  [A1].Select
End Sub

Nota : pour la longueur du texte ajuster ici .Left(T, 10)

 

[WEIDER]

Merci beaucoup à tous et à toi Si...Alors...Sinon
Cette dernière mouture me va parfaitement bien.

Excellent weekend à tous !

Amicalement

WEIDER45