Discussion :

[Yvouille]

Bonjour,

Dans un fichier, Feuil1 est ma feuille de base servant à divers utilisateurs de créer de nouvelles feuilles.

Est-il possible qu’au cas où n’importe qu’elle autre feuille est supprimée, ce soit Feuil1 qui soit sélectionnée automatiquement ? Par exemple, si je supprime la 12ème feuille, je ne voudrais pas que ce soit la 13ème feuille qui soit sélectionnée, mais Feui1.

J'ai cherché une macro événementielle qui correspondrait à quelque chose du genre "SheetDelete", mais n'ai rien trouvé de semblable.

A vous relire

[mercatog]

Une proposition
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
Dim nbFeuil As Integer
 
Private Sub Workbook_Open()
nbFeuil = Sheets.Count
End Sub
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sheets.Count < nbFeuil Then
    Sheets(1).Activate
    nbFeuil = Sheets.Count
End If
End Sub
 
Private Sub Workbook_NewSheet(ByVal Sh As Object)
nbFeuil = Sheets.Count
End Sub

[Psychopathe]

Oups grillé...
Autre proposition sinon. Code à mettre 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
20
21
22
23
24
25
26
 
'Variable globale à mettre en début de code
Dim nomAncienneFeuille As String
 
'Normalement en supprimant la feuille on active d'abord cet évènement
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 
'On récupère le nom de la feuille qui n'est plus sélectionnée
nomAncienneFeuille = Sh.Name
 
End Sub
 
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
 
Dim feuille As Worksheet
 
'On parcours les feuille du classeur. Si la feuille qui n'est plus sélectionnée existe toujours alors on ne fait rien
For Each feuille In ThisWorkbook.Worksheets
    If (feuille.Name = nomAncienneFeuille) Then Exit Sub
Next
 
'Si le nom de la feuille n'apparait plus, alors le code se poursuivra et on sélectionnera la feuille 1
Feuil1.Select
 
End Sub

[Yvouille]

Bonjour à tous,

Un grand merci à Mercatog et à Psychopathe : vos deux solutions fonctionnent identiquement parfaitement

Une bonne journée à tous.

Yvouille