Onglet

[manuBX]

Bjr
quelle formule dois je mettre en A2feuille 2 pour recuperer le nom de l onglet précedent et ainsi de suite
merci d avance
A+

 

[sabzzz]

Re : Onglet

bonjour manuBX,

je ne voie d'autre solution qu'une fonction perso,

Function OngletPrécédant()
OngletPrécédant = ActiveSheet.Previous.Name
End Function

 

[manuBX]

Re : Onglet

je suis novice en excel
peut tu me traduire
est ce une macro à faire ou n existe t il pas une formule STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;3)
A+

 

[BOISGONTIER]

Re : Onglet

Bonjour,

Si les noms d'onglets sont génériques: Semaine 01,Semaine 02,....

="'Semaine " &TEXTE(DROITE(CELLULE("nomfichier";$A$1);2)-1;"00")


Si les noms d'onglets sont génériques: Janvier,Février,....

=TEXTE(DATEVAL("01/"&STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;99))-1;"mmmm")

JB

 

[manuBX]

Re : Onglet

j ai appliqué la formule en a2 de la feuille 2
ç a me dit valeur
et j attendais de voir feuil 1
y a ti une astuce
A+

 

[sabzzz]

Re : Onglet

je suis novice en excel
peut tu me traduire
est ce une macro à faire ou n existe t il pas une formule STXT(CELLULE("nomfichier";A1);TROUVE("]";CELLULE("nomfichier";A1))+1;3)
A+

bonjour manuBX,

fait un click droit sur une des feuilles de ton classeur, et sélectionne "Visualiser le code"
cette action ouvre visual basic,
à gauche dans l'arborescence, tu verra le nom de la feuille (dont tu as fait un click droit) qui est grisé
cela pour indiquer que la page code (page blanche à droite) appartient à cette feuille

regarde bien comment est structurer cette arborescence (à gauche)
il y a le nom VBAProject(Nom de ton classeur) c'est comme ça qu’est nommé le projet associés au classeur
et sous ce nom il y a le nom des différentes pages de code de toutes les feuilles du classeur dont celle qui est grisé
et en dernier le nom ThisWorkBook, sur cette dernière on écrit les codes événementiels du classeur
tout ça est créé automatiquement à la création d’un nouveau classeur

pour accéder à une page code de l'un des différents items de ce répertoire il faut faire un double-click sur celui-ci (regarde la barre de titre (bleu) tout en haut, elle indique toujours quel est la page active)

maintenant
fait un click-droit sur VBAProject(Nom de ton classeur) et insère un module
et tu colles la Function sur la page à droite, tu fermes visual basic et tu es de retour sur le classeur

Function OngletPrécédant()
OngletPrécédant = ActiveSheet.Previous.Name
End Function

et là tu inscrits dans une cellule la formule =OngletPrécédant()

ps/ cette fonction que tu vient de créer tu la retrouveras au menu,
Insertion, Fonction, catégorie : Personnalisées

a+

 

[BOISGONTIER]

Re : Onglet

Voir PJ

JB

 

[JCGL]

Re : Onglet

Bonjour à tous,

Une petite extrapolation de l'excellente Fonction de Sabzzz 😉

Dans un Module :

Option Explicit 'd'après Sabzzz sur XLD

Function OngletPrec()
OngletPrec = ActiveSheet.Previous.Name
End Function

Function OngletSuiv()
OngletSuiv = ActiveSheet.Next.Name
End Function

Dans le ThisWorkBook :

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Range("A1").Formula = "=IF(ISERROR(OngletPrec()),OngletSuiv(),OngletPrec())"
End Sub

A+ à tous

 

[manuBX]

Re : Onglet

Merci a tous les deux de m avoir aider
la fonction marche bien mais ne se met pas à jour automatiquement

MERCI
A+

 

[manuBX]

Re : Onglet

MERCI à JCLG et bien sur à tous les autres PRO d excel
cela correspond à ce que je veux faire
A+