Boucle excluant une feuille

Résolu/Fermé
touroul Messages postés 475 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 11 novembre 2024 - Modifié par touroul le 9/03/2016 à 14:25
touroul Messages postés 475 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 11 novembre 2024 - 9 mars 2016 à 15:29
Bonjour le forum

J'aurais besoin de votre compétence ...
Sur mes fichiers Excel, je mets systématiquement dans le ThisWorkbook un code ayant pour base une proposition de notre cher Gbinforme, qui sert, à l'ouverture du classeur uniquement, à remonter toutes les feuilles en A1.
Je cherche actuellement à adapter le code pour exclure cette remontée en A1 sur une feuille en particulier ('Mafeuille')

Voici le code :
Private Sub Workbook_Open()
Dim feu As Integer
For feu = 1 To Worksheets.Count
With Sheets(feu)
If .Type = xlWorksheet Then
If Worksheets(feu).Name = "Mafeuille" Then Next feu
.Activate
.Range("A1").Activate
End If
End With
Next feu
Sheets(1).Activate
[A1].Select
End Sub


Mais ce code me génère une erreur de compilation "Next sans For".

Puis-je vous demander de l'aide ?
Par avance merci !

A voir également:

2 réponses

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
9 mars 2016 à 14:30
Bonjour,

Private Sub Workbook_Open()
    Dim feu As Integer
    For feu = 1 To Worksheets.Count
        With Sheets(feu)
            If .Type = xlWorksheet Then
                If Worksheets(feu).Name <> "Mafeuille" Then
                    .Activate
                    .Range("A1").Activate
                End If
            End If
        End With
    Next feu
    Sheets(1).Activate
    [A1].Select
End Sub
0
touroul Messages postés 475 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 11 novembre 2024 16
9 mars 2016 à 15:29
Merci beaucoup !

Ça fonctionne impecc à présent.
Pas bête l'histoire du "<>" je suis allé chercher trop compliqué.

Bonne aprem et merci encore !
0