Sélectionner la première cellule de chaque feuille

Marsh Posté le 03-10-2011 à 20:05:56

Bonjour

J'essaie de sélectionner la première cellule de chaque feuille. Bizarrement, cette macro ne fonctionne pas.

Sub PremiereCellule()

Dim NomFeuille As String 'Nom de la feuille

Dim i As Integer

For i = 1 To Sheets.Count

NomFeuille = Sheets(i).Name

Sheets(NomFeuille).Cells(1, 1).Activate

Next i

End Sub

Merci beaucoup pour votre aide !

Message édité par shimuno le 03-10-2011 à 20:06:33

Reply

Marsh Posté le 03-10-2011 à 20:05:56

Reply

Marsh Posté le 03-10-2011 à 20:18:23

Salut, bestialement qqch comme

Option Explicit

Sub PremiereCellule()
Dim NomFeuille As String
Dim i As Long

For i = 1 To Sheets.Count
NomFeuille = Sheets(i).Name
With Sheets(NomFeuille)
.Activate
.Cells(1, 1).Select
End With
Next i
End Sub

Message cité 1 fois

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html

Reply

Marsh Posté le 03-10-2011 à 23:11:24

Merci pour ta réponse bestiale.

Peux-tu m'expliquer pourquoi il faut écrire

Citation :

With Sheets(NomFeuille)
.Activate
.Cells(1, 1).Select
End With

Et pas

Citation :

Sheets(NomFeuille).cells(1,1).activate ?

Thanks !

kiki29 a écrit :

Salut, bestialement qqch comme

Option Explicit

Sub PremiereCellule()
Dim NomFeuille As String
Dim i As Long

For i = 1 To Sheets.Count
NomFeuille = Sheets(i).Name
With Sheets(NomFeuille)
.Activate
.Cells(1, 1).Select
End With
Next i
End Sub

Reply

Marsh Posté le 05-10-2011 à 08:01:26

Parce qu'une feuille s'active et une cellule se sélectionne...

On peut aussi passer par le parcourt de la collection des feuilles dans le fichier :

Sub test()
Dim Feuille As Worksheet
For Each Feuille In ActiveWorkbook.Worksheets
Feuille.Activate
Cells(1, 1).Select
Next
End Sub

---------------
OtObOxBlOg - - - Etre seul à avoir tort c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons

Reply

Sélectionner la première cellule de chaque feuille

Sujets relatifs:

Leave a Replay