Discussion :

[Batum 17]

Bonjour,

Je recherche une formule simple mais efficace.
En effet, dans mes multiples feuilles excel (renommer sous différent nom), je souhaite mettre dans ma cellule L3 une formule pour avoir les pages associées au nb de feuille que j'ai dans le classeur.
exemple: Page de garde = page 1 dans ma cellule); Sommaire = page 2 dans ma cellule etc...

Je ne parle pas de mise en page (pied ou tete de page) mais bien d'une FORMULE à incrémenter dans la cellule L3 ou macro vba

Merci pour votre aide précieuse je l'espère

[antonysansh]

Bonjour Batum 17,

Solution SANS VB :

Voila déjà une formule pour avoir le nom de l'onglet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DROITE(CELLULE("nomfichier";A1);NBCAR(CELLULE("nomfichier";A1))-TROUVE("]";CELLULE("nomfichier";A1)))

Avec dans une feuille nommée Parametres :

	A	B
1	Nom Feuille	Numero Feuille
2	Page de garde	Page 1
3	Sommaire	Page 2
4	...	Page 3

Tu vas pouvoir utiliser la formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=RECHERCHEV(DROITE(CELLULE("nomfichier";A1);NBCAR(CELLULE("nomfichier";A1))-TROUVE("]";CELLULE("nomfichier";A1)));Parametres!A1:B4;2;FAUX)

Solution AVEC VB :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub AjouterNumPage()
    Dim sh As Worksheet
        For Each sh In ThisWorkbook.Worksheets
            sh.[L3] = "Page " & sh.Index
        Next
End Sub

[Batum 17]

Merci antonysansh

le format de cellule doit être lequel quand tu incrémente la formule dans la cellule, car ça ne fonctionne pas
Explique moi stp toute la procédure
Merci encore

[antonysansh]

Le seul prérequis pour que la formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DROITE(CELLULE("nomfichier");NBCAR(CELLULE("nomfichier"))-TROUVE("]";CELLULE("nomfichier")))

est que le fichier doit être physiquement enregistré.
Regarde le résultat de CELLULE("nomfichier") pour bien comprendre.

Ensuite tu dois juste créer une correspondance entre chaque nom de feuille et le numéro de page.
Je propose simplement d'ajouter un tableau dans un feuille paramètre que tu dois remplir avant de mettre la formule dans la cellule L3 de chaque onglet.

Pas de format particulier donc le format standard fait l'affaire.

[Batum 17]

J'ai lu ton post
Je viens de faire le test, ça fonctionne pour la 1e page.
mais quand je mets la même formule dans les autres feuilles (cellule L3) ça garde le même N° que la 1e page!!!!

[antonysansh]

Ton classeur est bien en calcule automatique ?

As-tu testé la formule qui renvoie juste le nom de l'onglet ou la cellule est remplie ?

[Batum 17]

mon classeur est en automatique effectivement!
J'ai créé comme tu me la suggéré, une feuille "Parametres" avec dedans les DE
A1 jusqu'à B10
j'ai ensuite mis la formule =RECHERCHEV(DROITE(CELLULE("nomfichier");NBCAR(CELLULE("nomfichier"))-TROUVE("]";CELLULE("nomfichier")));Parametres!A1:B4;2;FAUX)
mais rien ne marche!!!!

[antonysansh]

Vérifie les points suivant :

• La feuille nommée "Parametres" existe
• En colonne A de la feuille Parametres (départ ligne 1) : le nom exacte des feuilles de ton classeur (tu peux exclure la feuille Parametres)
• En colonne B de la feuille Parametres Page 1, Page 2, ... (en fonction du nom de la feuille dans la colonne A)
• Le fichier est enregistré (il doit donc avoir un nom et chemin)
• La formule =CELLULE("nomfichier") renvoie bien un résultat (Chemin du fichier + nom de classeur entre crochet + nom de la feuille active).
  exemple : C:\Users\***\Desktop\[ClasseurTest.xlsb]Feuil1

Apres vérification et si toujours le problème, poste ton fichier sans macro (format xls ou xlsx).

[Batum 17]

voici le tableau
merci encore pour ton aide
test pagination.xlsx

[antonysansh]

ah ok !

"nomfichier" ne doit pas être remplacé.
C'est une constante pour utiliser la formule.

Il faut donc littéralement écrire "nomfichier" comme seul paramètre de la fonction CELLULE.

[Batum 17]

ok
Donc je colle =CELLULE("nomfichier") dans le cellule L3 dans chaque feuille?
Le problème, comme tu dis ça indique la source du dossier etc et non ma correspondance que j'ai mis dans la feuille Parametres!!
Comment donc mettre dans chaque feuille la bonne correspondance qui est dans la feuille Parametres?

[antonysansh]

Dans toutes tes feuilles en cellule L3 tu colles la formule suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=RECHERCHEV(DROITE(CELLULE("nomfichier";A1);NBCAR(CELLULE("nomfichier";A1))-TROUVE("]";CELLULE("nomfichier";A1)));Parametres!$A$1:$B$9;2;FAUX)

Attention si tu colles dans une feuille puis copier / coller de feuille en feuille ça ne fonction pas.
Copie la formule et colle la dans la barre de formule de chaque cellule L3 de ton classeur.

[Batum 17]

c'est parfait
Merci d'avoir passé un peu de ton temps
c'est cool
Je reviendrais vers toi si j'ai d'autres soucis lol
@+