Aide sur code VBA - Selectionner les cellules A1 de chaque worksheet

Bonjour chers utilisateurs du forum,

J'ai cherché en vain une réponse sur internet et ce présent forum (peut-être ai-je mal écrit mes requêtes ?) et je n'ai trouvé nulle part de réponse à mon problème.

Ma requête : J'aimerais une macro VBA qui me permette de sélectionner la case A1 de chaque onglet, notamment en terminant cet exercice sur le premier onglet.

Contexte : "Ah quoi bon faire ça ? C'est vraiment pas bien de sélectionner des cellules dans le code VBA, dit lui directement d'écrire Abrutix!"
Alors, en effet cette demande semble étrange. Mais là où je travaille, il est bon de ton (voir même courtois) de fournir un fichier excel directement prêt à la lecture à un collègue ou un client (et pas en bas en XS72, puisque qu'il faudra remonter tout en haut du fichier).
Et figurez-vous que j'en ai marre de passer en revue chacun de mes onglets pour cliquer sur A1. C'est un boulot de bot ça, c'est pas pour moi ! :evil:

Ci-dessous, vous trouverez du code VBA qui fait exactement ce que je demande mais seulement je suis obligé d'indiquer le nombre d'onglet un à un... Pénible.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub MettreEnA1()   Worksheets(2).Activate Range("A1").Activate   Worksheets(3).Activate Range("A1").Activate   Worksheets(4).Activate Range("A1").Activate   Worksheets(5).Activate Range("A1").Activate   Worksheets(1).Activate Range("A1").Activate   End Sub

---

Puis j'ai trouvé la fameuse formule For Each Next ! Mais pour une raison qui m'échappe... ça ne marche pas :(

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub MettreEnA1()   Dim Feuille As Worksheet   For Each Feuille In ActiveWorkbook.Worksheets Feuille.Range("A1").Activate   Next Feuille   End Sub

---

Avez-vous une solution à ce problème qui semble pourtant très simple ?!

Merci !
Ylaff

Par exemple

Sub Abrutix()

k = Sheets.Count

For i = 1 To k
Sheets(i).Select
Range("A1").Select
Next
Sheets(1).Select
End Sub

OU

Sub MettreEnA1()

Dim Feuille As Worksheet

For Each Feuille In ActiveWorkbook.Worksheets
Feuille.Select
Range("A1").Activate
Next Feuille
Sheets(1).Select
End Sub

bonjour,

essaye :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub MettreEnA1()   Dim Feuille As Worksheet   For Each Feuille In Worksheets Feuille.select Range("A1").Activate   Next Feuille   End Sub

---

Bonjour,

Essaye :

Code:

---

1 2 3 4 5 6 7 8 9

Sub MettreEnA1(UnBook As Workbook) Dim Feuille As Worksheet   For Each Feuille In UnBook.Worksheets Feuille.Activate Feuille.Range("A1").Select Next Feuille UnBook.Worksheets(1).Activate End Sub

---

Reste à vérifier ce que tu dois passer en paramètre (ThisWorkBook, ActiveWorkBook ou autre...)
Il ne faut surtout pas qu'un ScreenUpdating = false soit en cours sinon tu perdras le scrolling associé au select et donc une bonne partie de l'intérêt de la manipe.

Bonjour a_diard !

Merci pour ton aide, on dirait que ton code ci-dessous marche parfaitement !

Merci également aux autres participants ! Je me suis arrêté là où ça fonctionnait désolé les amis.
Vous êtes d'une efficacité redoutable !

Ylaff

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub MettreEnA1()   k = Sheets.Count For i = 1 To k Sheets(i).Select Range("A1").Select Next Sheets(1).Select   End Sub

---

Citation:

---

Envoyé par a_diard

Par exemple

Sub Abrutix()

k = Sheets.Count

For i = 1 To k
Sheets(i).Select
Range("A1").Select
Next
Sheets(1).Select
End Sub

OU

Sub MettreEnA1()

Dim Feuille As Worksheet

For Each Feuille In ActiveWorkbook.Worksheets
Feuille.Select
Range("A1").Activate
Next Feuille
Sheets(1).Select
End Sub

---

Citation:

---

Envoyé par Ylaff

Merci pour ton aide, on dirait que ton code ci-dessous marche parfaitement !

---

Enfin, ça ne fonctionne que s'il n'y a pas de feuilles masquées et s'il n'y a que des feuilles de calcul "classiques", pas de graphique

donc je propose de parcourir les Worksheets et non les Sheets, de tester les feuilles visibles et de partir de la fin pour arriver directement sur la première visible.

Code:

---

1 2 3 4 5 6

For i = Worksheets.Count To 1 Step -1 If Worksheets(i).Visible Then Worksheets(i).Select Range("A1").Select End If Next

---

Stéphane