texte dans cellule idem onglet

[ORBAN]

Bonjour à tous,
Je viens de visiter les archives mais je n'ai pas trouvé mon bonheur !
Voici lon probléme:
Je souhaiterais pouvoir affecter à une feuille en A1, par exemple, le nom de son onglet 😕
EX: si l'onglet se nomme "TOTO Paul", je souhaiterais que sa feuille en A1 soit "TOTO" et en B1 "Paul"!
PS: J'ai trouvé dans les archives des manips mais dans le sens inverse (nommer onglets en fontion de cellules) mais, pour ma part, je veux nommer cellules en fonction de l'onglet.😱
Merci d'avance et de votre aide.🙂

 

[Monique]

Re : texte dans cellule idem onglet

Bonjour,

A essayer

Pour le début du nom, en A1 :
=STXT(STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;32);1;TROUVE(" ";STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;32))-1)

Pour la 2ème partie :
=DROITE(STXT(CELLULE("filename";B1);TROUVE("]";CELLULE("filename";B1))+1;32);NBCAR(STXT(CELLULE("filename";B1);TROUVE("]";CELLULE("filename";B1))+1;32))-NBCAR(A1)-1)

Le nom en entier :
=STXT(CELLULE("filename";A14);TROUVE("]";CELLULE("filename";A14))+1;32)

 

[sousou]

Re : texte dans cellule idem onglet

Bonjour
Voici deux module fonction que tu appelles
comme cela:
=nomfeuille()
=prénomfeuille()

Function nomfeuille()
nomfeuille = ActiveSheet.Name
n = InStr(1, nomfeuille, " ")
nomfeuille = Left(nomfeuille, n - 1)
End Function
Function prénomfeuille()
prénomfeuille = ActiveSheet.Name
n = InStr(1, prénomfeuille, " ")
prénomfeuille = Right(prénomfeuille, Len(prénomfeuille) - n)
End Function

J'espère que cela t'aidera

 

[Spitnolan08]

Re : texte dans cellule idem onglet

Bonjour,

en macro, par exemple :

Sub Test()
Dim Nomtot As String, Nom1 As String, Nom2 As String
Dim Pos As Byte
Nomtot = ActiveSheet.Name
On Error Resume Next
Pos = WorksheetFunction.Search(" ", Nomtot)
Nom1 = Mid(Nomtot, 1, Pos - 1)
Nom2 = Mid(Nomtot, Pos + 1)

Range("A1") = Nom1
Range("B1") = Nom2
End Sub

Cordialement

Edit : Pas vu Monique, Soussou, Orban, n'aura que l'embarras du choix...

 

[Pyrof]

Re : texte dans cellule idem onglet

Bonjour,

Voici une autre solution

 

[ORBAN]

Re : texte dans cellule idem onglet

Bonjour à tous,
bonjour et merci Monique, Sousou, Spitnolan08, Pyrof ...
Comme d'hab vous étes geniaux !!!😛
Tous fonctionne bien, voilà qui va me faire gagner du temps pour profiter de la plage.😎
Je vous attends, je passe commande pour les coktails (lol)
Merci et bon week-end. 😉