Discussion :

[Ylaff]

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 !

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[TOFatJOB]

bonjour,

essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Tête de chat]

Bonjour,

Essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Ylaff]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[Raccourcix]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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