Sélectionner la première cellule de chaque feuille

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Sélectionner la première cellule de chaque feuille

shimuno

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

Publicité

kiki29

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

shimuno

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

otobox

Maison fondée en 2005

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Sélectionner la première cellule de chaque feuille

Sujets relatifs
Copier 37x le même tableau sur une feuille Excel	[VBA-Excel] Protéger une partie de la feuille par Macro
[Résolu][jquery]Copier le contenu d'une cellule TD	selectionner un element qui determine le nombre de lignes a affciher
[Excel/VBA] Selectionner des cellules contenant une certaine valeur	supprimer une colonne si une cellule = 0
feuille de calcul dynamique dans une page html	Afficher 2 variables en format heure dans la même cellule??
[RE]Excel : Macro : Lien vers la deuxième feuille quelque soit son nom	Excel : Nom copie de feuille 1= contenu plusieurs cellules feuille 1
Plus de sujets relatifs à : Sélectionner la première cellule de chaque feuille

Page générée en 0.036 secondes