Discussion :

[philpas3]

Bonjour,
J'ai un soucis de programmation vba excel. Je ne trouve pas la façon d'écrire le code. Je voudrais que lorsque je passe de la feuille1 à la feuille2, la cellule sélectionné de la feuille1 (la feuille que je quitte) soit A1.
J'ai essayé ce code sur cet évènement

Code :

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

1
2
3
4
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Range("A1").Select   'Selectionne A1 sur la feuille choisi et non celle que l'on quitte
    Sheets(Sh.Name).Range("A1").Select    'et ici ça bugue
End Sub

Mais tout cela ne marche pas
Comment dois je faire si c'est possible?

[Caro-Line]

Il faudrait réussir à récupérer la feuille que tu quittes mais ...
Quel est l'intérêt de faire cela ?

Si tu te balades sur ce Forum tu y liras certainement que l'utilisation de Select est en général à proscrire (pour des raisons diverses et variées, de performances je crois...).
Il y a en général un moyen de faire autrement.

[pgz]

Bonjour.

Comme Caro, je ne vois pas très bien à quoi cela peut servir. Il serait par exemple moins étonnant de chercher à sélectionner une plage quand on sélectionne une feuille, mais quand on la quitte...

Mais bon pour répondre à la question, par jeu, dans le module ThisWorkbook

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
19
Dim bDesactivationFeuille1 As Boolean
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 
If bDesactivationFeuille1 Then
    Application.EnableEvents = False
    Application.ThisWorkbook.Worksheets("Feuil1").Activate
    Application.ThisWorkbook.Worksheets("Feuil1").Range("A1").Select
    Sh.Activate
    bDesactivationFeuille1 = False
    Application.EnableEvents = True
End If
 
 
End Sub
 
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh Is Application.ThisWorkbook.Worksheets("Feuil1") Then bDesactivationFeuille1 = True
End Sub

Cordialement,

PGZ

[philpas3]

Pour répondre à l'utilité de ce que je recherche. Mon classeur contient une dizaine de feuille ayant la même structure. Chaque feuille est une base de donnée où j'applique un filtre automatique. Lorsque je mets un critère sur un filtre celui ci est reproduit sur chaque filtre de chaque feuille. Si la cellule active est en bas d'un tableau (ex : Ligne 1800) et que j'applique un filtre (résultat du filtre, il reste 3 lignes par ex) et bien on ne peut pas voir à l'écran ces 3 lignes, il faut remonter la barre de défilement vertical pour lire ces 3 lignes. (Donc 10 feuilles, c'est 10 feuilles à remonter en A1)
Autre point, si je clique dans une colonne, j'affiche un commentaire photo. Pour que le commentaire disparait de l'écran je dois quitter la cellule. Si je reste sur ces cellules et que j'effectue un tri, le commentaire reste même si la cellule ne fait pas parti du tri restant.
Donc voilà, je me suis dit. Mets cette cellule active en "A1", puisque je n'ai rien dans cette cellule, comme ça mes commentaires sont tous fermé, et mon tableau commencera toujours à la ligne 1
voilà pourquoi, je veux faire cela. Il ya peut être d'autre solution. Mais pour l'instant je cherche

[philpas3]

En lisant vos réponses et en réfléchissant, j'ai changé mon fusil d'épaule. Au lieu de faire ce que je voulais en quittant la feuille, je le fais au moment où je l'active. Ce qui est beaucoup plus simple avec l'évènement Workbook_SheetActivate

voici le code pour ceux qui me liront. C'est toujours utile.

Code :

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

1
2
3
4
5
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollColumn = 1
    Range("A1").Select
End Sub

Voilà, merci à tous pour votre aide

[pgz]

Bonjour.

Tu ne préfères pas

Code :

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

1
2
3
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Sh.Range("A1").Select
End Sub

?

PGZ

[ouskel'n'or]

voici le code pour ceux qui me liront. C'est toujours utile.

Code :

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

1
2
3
4
5
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollColumn = 1
    Range("A1").Select
End Sub

A quoi te servent les deux lignes

ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollColumn = 1

si c'est pour sélectionner ensuite la cellule A1 ?
"ActiveWindow.ScrollRow = 6" place la ligne 6 en haut de la page
"ActiveWindow.ScrollColumn = 1" place la colonne 1 à gauche de la page
Donc, soit tu souhaites que la cellule A1 soit en haut et à gauche de la page, soit tu souhaites que ce soit la cellule A6... Mais pas les deux