Exclure des feuilles d'une macro

Messages postés
159
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
31 août 2019
-
Bonjour à tous
J’utilise une macro que ma donner Via55 que le remercie encore, pour numérotation automatique des pages sur des feuilles Excel nommées mois et cellule de départ est J51 de la feuille « septembre »
avant il marche très bien, mais quand j'ai ajouté des feuilles et aussi d'autres données j'ai rencontré un problème.
j'ai essayé de modifier le code mais sans résultat souhaité.
Sub numeroter()
Dim Maxi
Dim n As Integer

Maxi = Range("J51")
Application.ScreenUpdating = False

For n = 102 To 1020 Step 51

If Rows(n).Hidden = False Then Range("J" & n) = Maxi + 1: Maxi = Maxi + 1
Next


Application.ScreenUpdating = True
End Sub

Mais quand je lance un UserForm pour remplir des données sur feuille « Infos »
Après la confirmation via bouton ok la numérotation automatique est appliquer sur la feuille « Infos »
Comment faire pour exclure ces deux feuilles « Infos » et « Principale »
Merci
Cordialement
Mon fichier exemple simplifié : https://www.cjoint.com/c/IHFpGtMpTke
Afficher la suite 

1 réponse

Messages postés
1987
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
6 septembre 2019
224
0
Merci
Bonjour Delta70(Chindou),

Ceci
Sub numeroter()
    If ActiveSheet.Name <> "Infos" And ActiveSheet.Name <> "Principale" Then
        Dim Maxi
        Dim n As Integer
        Maxi = Range("J51")
        Application.ScreenUpdating = False
        For n = 102 To 1020 Step 51
        If Rows(n).Hidden = False Then Range("J" & n) = Maxi + 1: Maxi = Maxi + 1
        Next
        Application.ScreenUpdating = True
    End If
End Sub


Cdlt
Commenter la réponse de Frenchie83