Reporter le nom d'un onglet sur une cellule

Tibo

XLDnaute Barbatruc

• 3 Novembre 2009

• #2

Re : Reporter le nom d'un onglet sur une cellule

Bonjour,

En A1, tu peux mettre cette formule :

Code:

=STXT(CELLULE("nomfichier";$A$1);TROUVE("]";CELLULE("nomfichier";$A$1))+1;32)

Fonctionne à condition que le fichier soit enregistré.

Je te laisse tester

@+

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 3 Novembre 2009

• #3

Re : Reporter le nom d'un onglet sur une cellule

Bonjour Arcangeli, Tibo.

Sinon en vba, une boucle sur tous les onglets :

Code:

Private Sub Workbook_Activate()
For i = 1 To Worksheets.Count
Sheets(i).Range("A1").Value = Sheets(i).Name
Next i
End Sub

A placer dans ThisWorkbook.
Ce code opère à chaque ouverture de classeur.

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 3 Novembre 2009

• #4

Re : Reporter le nom d'un onglet sur une cellule

Bonjour arcangeli, les participants,

Un autre stylede boucle :

Code:

Sub Worksheet_Activate()
For Each sh In ActiveWorkbook.Sheets
  sh.Range("A1").Value = sh.Name
Next

End Sub

Voilà pour la partie la plus facile. Pour le second point, un délai de réflexion s'impose.

Cordialement.

 

Vote positif 0 Vote négatif

A

Arcangeli

XLDnaute Occasionnel

• 3 Novembre 2009

• #5

Re : Reporter le nom d'un onglet sur une cellule

Merci à Tibo,13GIBE59 et Papou-net
Ca marche nickel et désolé de ne pas avoir répondu plus vite, j'ai du m'absenter du bureau.Alors si Papou-net a une idée pour la cerise sur le gâteau..., je suis preneur.
A plus peut être.

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 3 Novembre 2009

• #6

Re : Reporter le nom d'un onglet sur une cellule

Bonsoir arcangeli, les participants,

Je n'ai pas trouvé de solution miracle, mais je te propose un pis-aller, à savoir :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
With Me
  If Not .Range("A1").Value =  .Name Then
    .Range("A1").Value = .Name
  End If
End With

End Sub

Bien sûr, la cellule A1 ne se mettra pas à jour dès que la feuille aura été renommée, mais au premier changement de sélection, ce qui se produit assez rapidement en général.
A noter qu'il faut affecter ce code à chaque feuille du classeur.

Espérant que cette solution te conviendra.

Cordialement.

 

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 3 Novembre 2009

• #7

Re : Reporter le nom d'un onglet sur une cellule

Bonsoir le fil,

Pour éviter cela:

Papou-net à dit:

A noter qu'il faut affecter ce code à chaque feuille du classeur.

Cliquez pour agrandir...

Place le code de Papou-net, légèrement modifié, dans ThisWorkBook:

Code:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object)
With Sh
  If Not .Range("A1").Value = .Name Then .Range("A1").Value = .Name
End With

End Sub

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 3 Novembre 2009

• #8

Re : Reporter le nom d'un onglet sur une cellule

Bien vu, skoobi !

Je l'ai déjà utilisé, mais je ne m'en souvenais plus.

Bonne soirée.

 

Vote positif 0 Vote négatif

A

Arcangeli

XLDnaute Occasionnel

• 4 Novembre 2009

• #9

Re : Reporter le nom d'un onglet sur une cellule

Bonjour Skoobi et Papou-net,
Décidement je suis trop nul car je n'arrive pas à faire fonctionner la routine de Skoobi.
Est ce que tu peu voir ce que je fais de faux.
Encore merci à vous deux

 

Pièces jointes

• Pas ok.xls

  29 KB · Affichages: 108

Vote positif 0 Vote négatif

skoobi

XLDnaute Barbatruc

• 4 Novembre 2009

• #10

Re : Reporter le nom d'un onglet sur une cellule

Bonjour Arcangeli,

Arrfff, désolé, il manque ce qui est en bleu dans le code:

Code:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object[B][COLOR=blue], ByVal Target As Range[/COLOR][/B])
With Sh
If Not .Range("A1").Value = .Name Then .Range("A1").Value = .Name
End With
End Sub

 

Vote positif 0 Vote négatif

A

Arcangeli

XLDnaute Occasionnel

• 4 Novembre 2009

• #11

Re : Reporter le nom d'un onglet sur une cellule

Merci Scoobi, sans oublier les autres.
Ca fonctionne nickel.
Bonne fin d'après midi

 

Vote positif 0 Vote négatif