Exclure des feuilles d'une macro Résolu

Question

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 MaxiDim n As IntegerMaxi = Range("J51")Application.ScreenUpdating = FalseFor n = 102 To 1020 Step 51If Rows(n).Hidden = False Then Range("J" & n) = Maxi + 1: Maxi = Maxi + 1NextApplication.ScreenUpdating = TrueEnd 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

Frenchie83 · Answer

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

Exclure des feuilles d'une macro

1 réponse

Discussions similaires

Newsletters