texte dans cellule idem onglet

M

Monique

Nous a quitté

Repose en paix

• 15 Juin 2007

• #2

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)

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 15 Juin 2007

• #3

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

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 15 Juin 2007

• #4

Re : texte dans cellule idem onglet

Bonjour,

en macro, par exemple :

Code:

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...

 

Vote positif 0 Vote négatif

P

Pyrof

XLDnaute Occasionnel

• 15 Juin 2007

• #5

Re : texte dans cellule idem onglet

Bonjour,

Voici une autre solution

 

Pièces jointes

• nom_onglet.xls

  23.5 KB · Affichages: 80

Vote positif 0 Vote négatif

ORBAN

XLDnaute Occasionnel

• 15 Juin 2007

• #6

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.

 

Vote positif 0 Vote négatif