Séléctionner et afficher la cellule A1

[B00130072]

Bonjour à tous,

J'ai pour objectif de créer une nouvelle commande dans la barre d'outils ayant pour fonction de selectionner et afficher la cellule A1 de chacun des onglets de n'importe quel classeur.

J'ai donc:

1 - créer un boutton 🙂 dans la barre d'outils

2- rédigé le code suivant
Sub SelectAll()

Sheets(1).Select

Dim TableDesFeuilles() As String
Dim i As Integer
Dim S As Worksheet

i = 0

For Each S In ActiveWorkbook.Sheets
ReDim Preserve TableDesFeuilles(i)
TableDesFeuilles(i) = S.Name
i = i + 1

ActiveWorkbook.Sheets(TableDesFeuilles).Select

Application.Goto Reference:=Worksheets(1).Range("A1"), Scroll:=up
Selection.Select

Next

Sheets(1).Select

End Sub

mais mon probléme n'est pas résolu.

Je ne sais pas si c'est parce que '' Application.Goto Reference:=Worksheets(1).Range("A1"), Scroll:=up
Selection.Select " est mal placé ou parce que ce doit être remplacé par autre chose.

Merci d'avance pour votre aide


PS: J'adore ce forum, you rock!😎

 

[Pierrot93]

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

Bonne fin d'après midi
@+

 

[B00130072]

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,

 

[Pierrot93]

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...

 

[Robert]

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

Bonjour le fil, bonjour le forum,

essaie comme ça :

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

 

[B00130072]

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

C'est merveilleux!!! Merci messieurs

 

[tototiti2008]

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

Bonjour à tous,

une autre possibilité, comme ça :

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