RESOLU : cellule = à nom d'onglet ?

[Usine à gaz]

Bonjour toutes et à tous,

Comme d'habitude, j'ai beaucoup cherché sans trouver nom petit bonheur.

Il me serait très utile de pourvoir mettre dans une cellule une formule liée au nom de l'onglet de sa feuille.

Par exemple en cellule A1 :
la formule : =nom de l'onglet de la feuille 22
résultat : 22

Cela est-il possible ?

Bonne fin de journée à tous,
Amicalement,
Calimero,

 

[Pierrot93]

Re : Question bizarre : cellule = à nom d'onglet ?

Bonjour,

essaye peut être ceci :

=STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;255)

bonne journée
@+

 

[Usine à gaz]

Re : Question bizarre : cellule = à nom d'onglet ?

Bonjour Pierrot,

Merci pour cette réponse si rapide ..... je teste,
Amicalement,
Calimero,

 

[Usine à gaz]

Re : Question bizarre : cellule = à nom d'onglet ?

Re-bonjour,

Je viens de tester.
j'ai entré la formule dans la cellule B3 :
=STXT(B3("01isitelImmobSaisie ImenTest");TROUVE("]";B3("01isitelImmobSaisie ImenTest"))+1;255)
Il me donne un message d'erreur : #REF!

Amicalement,
calimero,

 

[exene]

Re : Question bizarre : cellule = à nom d'onglet ?

Bonjour,

Copie la formule sans la modifier, enregistre ton fichier puis appuie sur F9

@+

 

[Usine à gaz]

Re : Question bizarre : cellule = à nom d'onglet ?

Re-Bonjour,

J'ai copié comme tu me l'as dit = après F9 ça marche - super 🙂

Mais j'ai un souci :
J'ai donc copié dans la cellule : "O1" et j'ai bien le résultat du nom de l'onglet : 26

en fait, le résultat obtenu me sert de référence pour une recherche dans une plage.
J'ai donc dans ma cellule "K3" la formule suivante : =Numero(O$1) et j'ai bien : 26

c'est dans la cellule suivante que ça se gâte LOL
en "L3", j'ai la formule suivante :
=SI(K3="";"";SI(ET(K3>0;RECHERCHE(K3;Liste)<>K3);"Faux";SI(ET(K3>0;RECHERCHE(K3;Liste)=K3);RECHERCHE(K3;Clts);"")))
et mon résultat n'est pas bon, ça me donne : #N/A

J'ai la fonction numéro :

Function Numero(ByVal txt As String) As String
With CreateObject("VBScript.RegExp")
    .Pattern = "\D+"
    .Global = True
    Numero = .Replace(txt, "")
End With
End Function

J'ai également essayé avec la formule :
=STXT(SI(GAUCHE(NUMERO(O1))="0";STXT(NUMERO(O1);2;9*9);NUMERO(O1));1;11)

Est-il possible que le résultat de "O1" soit considéré comme un nombre utilisable dans d'autres formules ?

Merci de t'intéresser à mon souci,
Amicalement,
Calimero,

 

[st007]

Re : Question bizarre : cellule = à nom d'onglet ?

Bonjour,

étant curieux de nature, tu cherches quoi en fait ?
le #2 te place dans une cellule le nom de l'onglet contenant cette même cellule
posons :
mon onglet nommé "feuil10"
dans la cellule E11: la formule #2

=9*DROITE(E11;2)

me donnera : 90

 

[exene]

Re : Question bizarre : cellule = à nom d'onglet ?

Re,

Je ne vais pas avoir le temps mais peut être devrais tu joindre un fichier allégé mais reprenant la structure de ton document de travail.

@ plus

 

[Usine à gaz]

Re : Question bizarre : cellule = à nom d'onglet ?

Bonjour Pascal,
Merci de m'avoir répondu.
OK, je fais un petit fichier.
Amicalement,
Caliméro,

 

[Usine à gaz]

Re : Question bizarre : cellule = à nom d'onglet ?

Bonjour st007,
Merci de m'avoir répondu.
Je fais une petit classeur test en espérant que ça sera plus clair.
Amicalement,
Calimero,

 

[Usine à gaz]

Re : Question bizarre : cellule = à nom d'onglet ?

Re-Bonjour à tous,

Ci-joint un classeur test en espérant que ça sera plus clair,

Merci pour votre aide 🙂
Amicalement,
Calimero,

 

[JCGL]

Re : Question bizarre : cellule = à nom d'onglet ?

Bonjour à tous,

Multiplie tes Kx par 1 pour les rendre numériques

=SI(B3<>"";RECHERCHE(K3*1;B3);"")

A+ à tous

 

[Usine à gaz]

Re : Question bizarre : cellule = à nom d'onglet ?

Bonsoir JGCJ,

Bon sang ..... ça marche (j'en doutais pas LOL)
Mais comment j'aurais pu savoir ça moi ?

Je ne sais que dire .... tu ne fais pas dans la voyance aussi ou la magie LOL ?
Merci,
Amicalement,
Calimero,

 

[Usine à gaz]

Re : RESOLU : cellule = à nom d'onglet ?

Bonsoir à toutes et à tous,

C'est résolu, un grand merci à tous pour votre "science" et votre disponibilité.
Bonne fin de journée,
Amicalement,
Calimero,