Séléctionner et afficher la cellule A1

Pierrot93

XLDnaute Barbatruc

• 14 Octobre 2009

• #2

Re : Séléctionner et afficher la cellule A1

Bonjour,

pas sur d'avoir tout compris, mais le code ci-dessous selectionne toutes les feuilles du classeur actif, et donc ensuite toutes les cellules A1...

Sub test()
Sheets.Select
Range("A1").Select
End Sub

Cliquez pour agrandir...

Bonne fin d'après midi
@+

 

Vote positif 0 Vote négatif

B

B00130072

XLDnaute Nouveau

• 14 Octobre 2009

• #3

Re : Séléctionner et afficher la cellule A1

Merci pour ta réponse.

Cette macro, beaucoup plus simple, permet de séléctionner la cellule a1 de chacune des feuilles, mais ne permet pas de l'afficher en haut à gauche.

Il me manque donc un complément afin d'obtenir le résulatat souahité.

Merci encore,

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Octobre 2009

• #4

Re : Séléctionner et afficher la cellule A1

Re

comprends pas trop... chez moi la cellule A1 est bien active et visible alors qu'elle ne l'était pas au départ... Z65536 de selectionné par exemple...

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 14 Octobre 2009

• #5

Re : Séléctionner et afficher la cellule A1

Bonjour le fil, bonjour le forum,

essaie comme ça :

Code:

Sub Macro1()
Dim x As Byte
For x = 1 To Sheets.Count
    Sheets(x).Select
    ActiveWindow.ScrollRow = 1
    ActiveWindow.ScrollColumn = 1
    Range("A1").Select
Next x
End Sub

 

Vote positif 0 Vote négatif

B

B00130072

XLDnaute Nouveau

• 14 Octobre 2009

• #6

Re : Séléctionner et afficher la cellule A1

C'est merveilleux!!! Merci messieurs

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 14 Octobre 2009

• #7

Re : Séléctionner et afficher la cellule A1

Bonjour à tous,

une autre possibilité, comme ça :

Code:

Sub test()
Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Worksheets
        Application.Goto reference:=Sh.Range("a1"), scroll:=True
    Next Sh
End Sub

 

Vote positif 0 Vote négatif