Exclure des feuilles d'une macro
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
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é.
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
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
- Comment faire un livret avec des feuilles a4 - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Bruler des feuilles de laurier - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Regrouper plusieurs feuilles excel en une seule - Guide
1 réponse
Bonjour Delta70(Chindou),
Ceci
Cdlt
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
excuser moi pour ma retard réponse (absent du fil il y a un bon moment)