Exclure des feuilles d'une macro [Résolu]

Signaler
Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
-
Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
-
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

1 réponse

Messages postés
2102
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
4 août 2020
278
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
Messages postés
182
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
8 juillet 2020
3
merci bien Frenchie83
excuser moi pour ma retard réponse (absent du fil il y a un bon moment)