nom onglet

Bonjour,

=STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;99)

JB

On 12 fév, 12:18, vanessa066 <vanessa...@discussions.microsoft.com>
wrote:

Bonjour,

Est ce qu'il existe un moyen de mettre le nom d'un onglet dans une cellul e ?
Je m'explique, j'ai 30 onglets avec des noms différents et je voudrais que
dans chaque onglet, dans la cellule B1, il me mette le nom de l'onglet.

Merci beaucoup pour votre rapidité
Vanessa

Par hasard, aurais-tu la formule en anglais, parce que j'ai excel en angalis,
donc les formules aussi. Que faut-il mettre à la place de "filename" ?

merci

Bonjour,

=STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;99)

JB

On 12 fév, 12:18, vanessa066 <vanessa...@discussions.microsoft.com>
wrote:

Bonjour,

Est ce qu'il existe un moyen de mettre le nom d'un onglet dans une cellule ?
Je m'explique, j'ai 30 onglets avec des noms différents et je voudrais que
dans chaque onglet, dans la cellule B1, il me mette le nom de l'onglet.

Merci beaucoup pour votre rapidité
Vanessa

Bonjour,
si tes noms d'onglet sont inscrit dans une plage de cellule(exemple
A1:A30),
cette macro créera automatiquement un onglet par cellule de A1 à A30:
Sub Creation Onglet()
ActiveCell.CurrentRegion.select
Dim Tableau() As String
Redim Tableau(1 To activeCell.CurrentRegion.Count)

For Ctr=1 To ActiveCell.CurrentRegion.Count
Tableau(Ctr)=ActiveCell.CurrentRegion(Ctr)
Next

For Ctr=1 to ActiveCell.CurrentRegion.Count
Sheets.Add, Sheets(Sheets.Count)
Sheets(Sheets.Count).Name=Tableau(Ctr)
Next
end Sub

Au préalable tu auras pris soin de sélectionner ta plage A1:A30 à la
souris avant de lancer la macro.
Voilà j'espère que cela te servira.J'ai repris ce code sur le site
info 3000(en tapant VBA sur google ça apparait assez vite).
Chalo

On 12 fév, 12:18, vanessa066 <vanessa...@discussions.microsoft.com>
wrote:

Bonjour,

Est ce qu'il existe un moyen de mettre le nom d'un onglet dans une cellul e ?
Je m'explique, j'ai 30 onglets avec des noms différents et je voudrais que
dans chaque onglet, dans la cellule B1, il me mette le nom de l'onglet.

Merci beaucoup pour votre rapidité
Vanessa

=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,99)

Attention! il faut que le classeur soit sauvegardé.

JB

On 12 fév, 13:30, vanessa066 <vanessa...@discussions.microsoft.com>
wrote:

Par hasard, aurais-tu la formule en anglais, parce que j'ai excel en anga lis,
donc les formules aussi. Que faut-il mettre à la place de "filename" ?

merci

Bonjour,

=STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;99)

JB

On 12 fév, 12:18, vanessa066 <vanessa...@discussions.microsoft.com>
wrote:

Bonjour,

Est ce qu'il existe un moyen de mettre le nom d'un onglet dans une ce llule ?
Je m'explique, j'ai 30 onglets avec des noms différents et je voudr ais que
dans chaque onglet, dans la cellule B1, il me mette le nom de l'ongle t.

Merci beaucoup pour votre rapidité
Vanessa- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Bonsour® JB avec ferveur ;o))) vous nous disiez :

=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,99)

Par hasard, aurais-tu la formule en anglais, parce que j'ai excel en
angalis,
donc les formules aussi. Que faut-il mettre à la place de "filename" ?

dans les fonctions INFO, CELLULE, il est meme recommandé de mettre les
parametres anglais qui sont systematiquement reconnus
ex :
CELLULE("filename";A1) au lieu de CELLULE("nomfichier";A1)
CELLULE("address";A1) au lieu de CELLULE("adresse";A1)
CELLULE("row";A1) au lieu de CELLULE("ligne";A1)

lors du passage à une autre langue, la fonction est traduite, pas le paramétre
...:-((

--
--
@+
;o)))