mettre le nom d'une cellule dans onglet

angoul · 24 Mars 2015

je suis en creation d'un petit fichier qui permet de gerer mes contacts

j'aimerai recuperer les informations de la cellule A1 et quelle renseigne l'onglet de la feuille

j'ai trouver l'inverse, mais pas se probleme

merci d'avance

Tibo62 · 24 Mars 2015

Re : mettre le nom d'une cellule dans onglet

Bonjour comme ceci peut-être merci à Pierrot93 🙂. en supposant que ta valeur est bien en A1 comme tu la signalé.

Option Explicit
Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Range("A1").Value = ws.Name
Next ws
End Sub

Victor21 · 24 Mars 2015

Re : mettre le nom d'une cellule dans onglet

Bonjour, angoul.

Dans le module de la feuille :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveSheet.Name <> [A1].Value Then ActiveSheet.Name = [A1].Value
End Sub

Le nom en cellule A1 ne doit pas être vide ni dépasser 31 caractères, ni contenir \ / ? * [ ]

Bonjour également, Tibo62 🙂

camarchepas · 24 Mars 2015

Re : mettre le nom d'une cellule dans onglet

Bonjour Victor, Tibo, Angoul,

Je crois que c'est juste l'inverse que veut Angoul , donc légérement modifié

Code:

Option Explicit
 Sub test()
 Dim ws As Worksheet
 For Each ws In Worksheets
 on error resume next
  ws.Name= ws.Range("A1").Value 
  if err.number<>0 then msgbox("Nom pas autorisé")
 Next ws
 End Sub

mettre le nom d'une cellule dans onglet

angoul

XLDnaute Impliqué

Tibo62

XLDnaute Occasionnel

Victor21

XLDnaute Barbatruc

camarchepas

XLDnaute Barbatruc

Discussions similaires

mettre le nom d'une cellule dans onglet

angoul

XLDnaute Impliqué

Tibo62

XLDnaute Occasionnel

Victor21

XLDnaute Barbatruc

camarchepas

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency