Exclure des feuilles d'une macro

Résolu/Fermé

Utilisateur anonyme - Modifié le 31 août 2019 à 19:02
Utilisateur anonyme - 7 nov. 2019 à 20:05

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

A voir également:

Exclure des feuilles d'une macro
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Fusionner plusieurs feuilles excel en une seule - Guide

1 réponse

Réponse 1 / 1

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
2 sept. 2019 à 06:51

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

Utilisateur anonyme
7 nov. 2019 à 20:05

merci bien Frenchie83
excuser moi pour ma retard réponse (absent du fil il y a un bon moment)

Discussions similaires

Reporter valeur sur autre feuille avec critere

Les feuilles Diddl

Discord comment kick sans expulser

Transformer un chiffre en lettres dans excel sans macro

Discussions similaires

Newsletters