Sélection onglet si existe sinon sortir de la macro

Bonjour,
Je souhaiterai sélectionner la feuille 'Australie' si elle existe et poursuivre la macro. Sinon je sors de la macro.
Voila le bout de code qui pose problème :

Code:

---

1 2 3 4 5 6

For i = 1 To ThisWorkbook.Worksheets.Count If ThisWorkbook.Worksheets(i).Name = "Australie" Then ThisWorkbook.Worksheets(i).Name.Select Exit For End If Next i

---

Mais je n'arrive pas à sortir de la macro si aucune feuille 'Australie' n'est trouvée.
Comment faire cela ?
Wyrgle

Bonjour,
Voici une proposition de code:

Code:

---

1 2 3 4 5 6

Sub maMacro() On Error GoTo PasFeuille Sheets("Australie").Select 'Si la feuille n'existe pas, il y aura une erreur et on ira à la ligne "PasFeuille" 'je fais ce que j'ai à faire si la feuille Australie existe PasFeuille: End Sub

---

Je ne sais pas si c'est très propre, il y a peut-être plus élégant, mais c'est une idée ;)

Code:

---

1 2 3 4 5 6 7 8 9 10

Function IsBonSheet(Onglet As String) As Long For Each sh In ThisWorkbook.Sheets If sh.Name = Onglet Then IsBonSheet= sh.Index: Exit For Next End Function Sub test() Dim idSheet As Long idSheet = IsBonSheet("TOTO") If idSheet = False Then MsgBox "Pas trouvé" Else MsgBox Sheets(idSheet ).Name End Sub

---

on réservera le On Error et surtout on le gérera dans les cas de force majeur indépendant du code!

pas de On Error sens On Error Goto 0

Bonjour !

Citation:

---

Envoyé par Wyrgle

je n'arrive pas à sortir de la macro si aucune feuille 'Australie' n'est trouvée.

---

C'est tellement simple et si logique :   il suffit juste de tester le nom de la feuille active après la boucle ‼

Code:

---

1 2 3 4 5 6 7

For i = 1 To ThisWorkbook.Worksheets.Count If ThisWorkbook.Worksheets(i).Name = "Australie" Then ThisWorkbook.Worksheets(i).Activate Exit For End If Next i If ActiveSheet.Name <> "Australie" Then Beep: Exit Sub

---

Idem en version un peu plus pro du côté objet :

Code:

---

1 2 3 4 5 6 7

Dim Ws As Worksheet For Each Ws In Worksheets If Ws.Name = "Australie" Then Exit For Next If Ws Is Nothing Then Beep: Exit Sub ' suite du code Set Ws = Nothing

---

Comme un bon code n'a pratiquement jamais besoin d'activer ou de sélectionner quoi que ce soit,
ici en sortie de boucle la variable objet Ws pointant déjà sur la feuille désirée
il est donc inutile de l'activer en utilisant cette variable dans la suite du code …

---

Citation:

---

Envoyé par riaolle

Je ne sais pas si c'est très propre, il y a peut-être plus élégant, mais c'est une idée

---

Si pour des raisons de facilité (ou autres) il y a besoin d'une gestion d'erreur,
mieux vaut alors l'externaliser dans une fonction ou procédure comme dans cet exemple …

Mais encore une fois en donnant la priorité à l'existant d'Excel,
à savoir ici le B-A-BA d'une simple fonction de feuille de calculs comme ESTREF utilisée dans ces fonctions !
Cette fonction de feuille de calculs ne requérant pas de gestion d'erreur,
elle est donc directement intégrable dans la procédure principale comme dans cette discussion.


Pour conclure :    une question basique ayant de fortes probabilités d'avoir déjà été traitée

donc juste en effectuant une recherche dans les discussions du forum …

___________________________________________________________________________________________________________

   :arrow:   Merci de cliquer sur :plusser: en bas à droite de chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …