Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel numéroter manuellement

numéroter manuellement

3 réponses
Avatar
rsnouci
J'ai plusieurs fichiers excel différent et je souhaite numéroter les feuilles
de chacun d'entre eux afin qu'il se suivent mais la gestion en auto ne me le
permet pas
Y aurait il une solution en auto
Ou bien comment numéroter manuellement ses pages
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,


PJ http://cjoint.com/?bkqzPVXf1O

On suppose que Accueil contient 1 en A1 au départ (compteur)

Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Mafeuille" & Sheets("Accueil").[A1]
Sheets("accueil").[A1] = Sheets("accueil").[A1] + 1

Cordialement JB
Avatar
rsnouci
Merci Jb
Et j'en profite
Peut on regrouper plusiers fichiers excel en un seul afin que ma
numérotation des pages soit logiques


Bonjour,


PJ http://cjoint.com/?bkqzPVXf1O

On suppose que Accueil contient 1 en A1 au départ (compteur)

Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Mafeuille" & Sheets("Accueil").[A1]
Sheets("accueil").[A1] = Sheets("accueil").[A1] + 1

Cordialement JB




Avatar
JB
Récup de plusieurs classeurs du même répertoire avec plusieurs
onglets.

PJ http://cjoint.com/?bkrWxlsQG6

Sub essai()
ChDir ActiveWorkbook.Path
Set classeurMaitre = ActiveWorkbook
sup
compteur = 1
nf = Dir("*.xls")
Do While nf <> "" And nf <> classeurMaitre.Name
Workbooks.Open Filename:=nf
For k = 1 To Sheets.Count
Sheets(k).Copy
After:=classeurMaitre.Sheets(classeurMaitre.Sheets.Count)
classeurMaitre.Sheets(classeurMaitre.Sheets.Count).Name =
"Mapage" & compteur
compteur = compteur + 1
Next k
Workbooks(nf).Close False
nf = Dir
Loop
End Sub

Sub sup()
Application.DisplayAlerts = False
If Sheets.Count > 1 Then
Sheets("Accueil").Move before:=Sheets(1)
Sheets(2).Select
For i = 2 To Sheets.Count
ActiveSheet.Delete
Next i
End If
End Sub

JB