Renommer onglet

zebanx

XLDnaute Accro

• 13 Novembre 2017

• #2

Bonjour Freedal et le forum

Ligne de code à rajouter dans une macro, le nom étant indiqué dans la cellule A1.
Sheets("x").Name = Sheets("y").[A1]

++

 

Vote positif 0 Vote négatif

Freedal

XLDnaute Junior

• 13 Novembre 2017

• #3

Bonjour Zebanx,
Si tu peux me donner un peu plus de précision, n'étant pas expert en macros,
Je saisis quoi à la place de "x" et de "y" ?
Merci

 

Vote positif 0 Vote négatif

Freedal

XLDnaute Junior

• 13 Novembre 2017

• #4

J'ai saisis ceci :
Sheets(N° de la feuille qui doit être renommer).Name = Sheets("Nom de la feuille ou se trouve la cellule de référence").[A1]
ça fonctionne mais lorsque je renomme ma cellule A1, l'autre feuille ne se renomme pas, je suis obligé d'exécuter la macro manuellement.
N'y aurait-il pas un moyen que la macro s'exécute automatiquement lorsque je saisis un nouveau nom dans la cellule A1 et que je clic sur "Entrée" ?

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 13 Novembre 2017

• #5

Rebonjour Freedal

Avec un peu de retard.
Pas gros utilisateur des privatesub mais ça doit correspondre à ta demande en modifiant la cellule A1 dans la feuille de départ (sheets(1)) on a le nom de la sheets(2) automatiquement modifié.
J'ai laissé le code avec deux variantes en module 1 sinon -
si tu souhaites soit nommer les feuilles soit utiliser leur numéro (dans l'ordre d'affichage)

++ zebanx

 

Pièces jointes

• macro_nom feuille.xls

  299 KB · Affichages: 43

Dernière édition: 13 Novembre 2017

Vote positif 0 Vote négatif

Freedal

XLDnaute Junior

• 15 Novembre 2017

• #6

Bonjour zebanx,
merci pour ta réponse, je débute en VBA, serait possible de mettre plutôt la macro sur la feuille "Fin" ou l'onglet doit être renommer car il y aura plusieurs feuilles "Fin" à renommer suivant différentes cellules de la feuille principale "Départ"
Merci

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 15 Novembre 2017

• #7

Bonsoir.
Non, ce n'est pas possible. Une proposition pour la 1ère feuille:

VB:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Rows.Count <> 1 Or Target.Columns.Count <> 1 _
   Or Target.Column <> 1 Then Exit Sub
Sheets(Target.Row).Name = Target.Value
End Sub

 

Vote positif 0 Vote négatif

Freedal

XLDnaute Junior

• 15 Novembre 2017

• #8

Bonjour Dranreb,
Merci pour ta réponse mais j'ai pas le niveau en VBA, j'ai essayé de la coller mais ça donne rien.
A+

 

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 15 Novembre 2017

• #9

Bonjour Freedal, DranReb

Euh si... le code de DranReb fonctionne bien pour renommer plusieurs feuilles depuis la feuille 1

++

 

Pièces jointes

• macro_nom feuille.xls

  36.5 KB · Affichages: 34

Vote positif 0 Vote négatif

Freedal

XLDnaute Junior

• 16 Novembre 2017

• #10

Bonjour zebanx , Dranreb
Merci pour ton fichier, ça fonctionne très bien.
Le problème c'est que les feuilles qui devront être renommer ne sont pas forcément placer dans l'ordre, et que d'autres feuilles viendront interférer, qu'elles soient ici au départ ou qu'elles soient créer à l'usage.
Merci si vous pouvez m'éclairer.

 

Pièces jointes

• macro_nom feuille copie .xls

  192.5 KB · Affichages: 21

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 16 Novembre 2017

• #11

Bonjour Freedal,

C'est ce qu'on appelle une demande à tiroir (qui aurait pu être évité tu ne crois pas ??)
(1) petit exemple simple en 1 seule ligne
(2) il faut l'automatiser
(3) il y a plusieurs feuilles
(4) mais toutes ne sont pas à renommer
.... est-ce vraiment fini ou y aura-t-il d'autres demandes STP ?😵

Je ne sais pas répondre pour ta dernière demande mais, sans doute, faudrait-il pouvoir mettre une fonction qui permette de ressortir le numéro d'affichage de la feuille au départ pour l'utiliser dans le code de la privatesub.

++ zebanx

Edit : ci-joint une fonction pour récupérer le numéro d'affichage de la feuille en fonction de son nom mais je ne sais pas comment l'imbriquer dans la demande de Freedal.
Si l'un(e) d'entre vous peut me venir en aide, merci par avance.

Code:

Function numSh(c As Range) As Variant
Application.Volatile
For i = 1 To Sheets.Count
If Sheets(i).Name = Range(c.Address).Value Then
numSh = i
End If
Next
End Function

 

Dernière édition: 16 Novembre 2017

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Novembre 2017

• #12

Bonjour.
Essayez comme ça :

VB:

Option Explicit
Private Wsh As Worksheet
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Set Wsh = ThisWorkbook.Worksheets(CStr(Target(1, 1).Value))
If Err Then Set Wsh = Nothing
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NouvNom As String
If Wsh Is Nothing Then Exit Sub
NouvNom = Target(1, 1).Value
On Error Resume Next
Wsh.Name = NouvNom
If Err Then
   MsgBox "Err " & Err & " en tentant de renommer '" & NouvNom & "' la feuille '" & _
      Wsh.Name & "'." & vbLf & Err.Description, vbCritical, "Renommer feuille"
   Application.EnableEvents = False
   Target(1, 1).Value = Wsh.Name
   Application.EnableEvents = True
   End If
End Sub

 

Dernière édition: 16 Novembre 2017

Vote positif 0 Vote négatif

zebanx

XLDnaute Accro

• 16 Novembre 2017

• #13

Bonjour Dranreb

Merci pour ta réponse et ce super code.
Le fichier modifié. Les noms des feuilles sont en colonne 1.

++

 

Pièces jointes

• freedal_nom feuille.xls

  272 KB · Affichages: 30

Vote positif 0 Vote négatif

Freedal

XLDnaute Junior

• 16 Novembre 2017

• #14

Bonsoir Dranreb Zebanx et un grand merci. 🙂
Je vais essayer d'interpréter le travail que vous avez fait.
Je n'ai jamais fait de macros ni de code auparavant, j'arrivais à m'en sortir que par les formules. 🙁
La macro renomme les onglets jusque ST26, comment puis-je faire pour appliquer cela jusque ST43 ?
@+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 16 Novembre 2017

• #15

Ma macro n'a aucune restriction. À partir du moment ou la 1ère cellule sélectionnée, quelle qu'elle soit, porte un nom de feuille existante, sa modification la renomme. (si possible…)

 

Vote positif 0 Vote négatif