Cellules et Onglets????

[Sinik]

Bonjour à tous,

Quelqu'un pourrait il me dire la formule permettant de donner à une cellule le nom de l'onglet qui si rattache?

exemple si l'onglet se nomme "Facture 12.34", la cellule A1 devra automatiquement se nommer "Facture 12.34"

Je vous remercie...

Dom

 

[lacorse33]

Re : Cellules et Onglets????

Bonjour Dom,

Voici une solution :

range("A1").Value = ActiveSheet.Name

 

[Sinik]

Re : Cellules et Onglets????

Petite question au passage...

Comment j'utilise cette formule? je suis assez novice, et nul en vba et macros

 

[SergiO]

Re : Cellules et Onglets????

Bonjour Sinik, lacorse33,

Voici une fonction personnalisée à mettre dans ton classeur :

Faire clic droit un un onglet puis visualiser le code

Dans le menu VBA Insertion - Module puis tu colles ceci :

Option Explicit

Function Nom_Onglet()

Nom_Onglet = ActiveSheet.Name

End Function

Tu fermes VBA puis tu testes en tapant ceci en A1

=Nom_Onglet()

Voil@

 

[Sinik]

Re : Cellules et Onglets????

Merci beaucoup, je viens de l'essayer et ça marche d'enfer!!!!

 

[ChTi160]

Re : Cellules et Onglets????

Insertion champ nom de fichier Salut SiniK
Bonsoir le fil
Voilà ce que Monique , notre experte en formules (bisous à elle) à proposé pour mettre le nom du classeur ou le nom d'une feuille dans une cellule (le 10/10/2006)

Bonjour,

Nom du classeur avec ou sans .xls
=STXT(CELLULE("filename";A1);TROUVE("[";CELLULE("filename";A1))+1;SOMME(TROUVE({"[";"]"};CELLULE("filename";A1))*{-1;1})-1)
=STXT(CELLULE("filename";A2);TROUVE("[";CELLULE("filename";A2))+1;SOMME(TROUVE({"[";"]"};CELLULE("filename";A2))*{-1;1})-5)

Nom de la feuille
=STXT(CELLULE("filename";A1);TROUVE("]";CELLULE("filename";A1))+1;32)
Edit
Il faut que le classeur soit enregistré

bonne fin de journée
le lien : https://www.excel-downloads.com/threads/insertion-champ-nom-de-fichier.64258/

 

[fouedou77]

Re : Cellules et Onglets????

Bonjour à tous,

Et comment pourrions nous faire l'inverse ?

Nommer une feuille en fonction d'une cellule.

Merci beaucoup !

 

[ccpapy]

Re : Cellules et Onglets????

bonjour
comme avant,
clic droit sur l'onglet de la feuille voulue
pour le code de ta feuille

Private Sub Worksheet_Activate()
ActiveSheet.Name = Range("A1").Value
End Sub

à+

 

[BOISGONTIER]

Re : Cellules et Onglets????

Bonjour,

Pour une feuille:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
    On Error Resume Next
    ActiveSheet.Name = [A1]
  End If
End Sub

Pour toutes les feuilles:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Target.Address = "$A$1" Then
    On Error Resume Next
    ActiveSheet.Name = [A1]
  End If
End Sub

JB

 

[ccpapy]

Re : Cellules et Onglets????

re,
c'est effectivement plus "propre" comme code
j'ai encore énormement à apprendre et plus assez de mémoire dans ma petite tete
à+

 

[pascal21]

Re : Cellules et Onglets????

bonjour à tous
perso, j'utilise la méthode à cpapy avec toutes fois un petit changement

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Name = Range("A1").Value
End Sub

pour donner la valeur de a1 à l'onglet
et

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Value = Name
End Sub

pour donner la valeur de l'onglet à a1