Nom onglget = valeur cellule

[wrap food]

Bonjour à tous

Voila mon problème,

Dans une feuille j'ai une liste de produits ( feuil 1)
je souhaiterais que les noms des onglets du reste du classeur corresponde au valeur qui sont dans la liste (colonne D) de la feuille1 (si c'est possible de manière automatiquement).

Je vous joints un exemple pour que cela soit plus explicite

auriez-vous une solution.


par avance, merci de votre aide

 

[jpb388]

Re : Nom onglget = valeur cellule

Bonjour à tous
regarde si cela te va
a+
jp

 

[wrap food]

Re : Nom onglget = valeur cellule

Bonjour et merci de passer du temps sur mes questions

En faite je souhaiterais de la valeur qui est dans la cellule d1 de la feuille nommer "Chambre froide et vitrine "

Remplace le nom de la feuil1

est-il possible de faire directement en vba un code comme ce qui suit

Private Sub Worksheet_SelectionChange
Feuil1.name= Chambre froide et vitrine Range("A3").Value
end sub

Sachant que j'ai au moins 50 feuilles a renommer

par avance merci

 

[jpb388]

Re : Nom onglget = valeur cellule

Bonjour à tous
tu veux dire que tu as 50 feuilles et a ces 50 feuilles tu veux les renommer avec la valeur d1 de chaque feuille qui contient un intitulé différent pour chaque feuille
c'est bien cela ?

 

[wrap food]

Re : Nom onglget = valeur cellule

bonjour

Désolé, j'ai du mal m'expliqué

je souhaiterais que chaque onglet prenne la valeur de chaque cellule de la colonne "D" à partir de D1 et que le nom de l'onglet change ci la valeur de la cellule change..

c'est peut être pas faisable.

Encore merci de passer du temps sur ma question

 

[jpb388]

Re : Nom onglget = valeur cellule

re
tu changes en d1 et le nom de la feuille change
les macros se trouve dans worksbook
en espérant avoir compris

 

[wrap food]

Re : Nom onglget = valeur cellule

Bonjour et merci

juste une petit précision
j'ai essayé de modifier le code comme cela

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = Sheets("AFFICH").Range("D2").Address Then
On Error Resume Next
Feuil1.Name = Target.Text
Feuil3.Name = Target.Text
End If
End Sub


Mais cela bloque sur la premier partie

désolé pourriez vous m'aider

 

[jpb388]

Re : Nom onglget = valeur cellule

re
non tu fais un copie coller et cela doit fonctionner

 

[wrap food]

Re : Nom onglget = valeur cellule

Merci Jpb388

j'ai encore une question

Mais onglet existe déjà .

comment puis je faire pour les renommer en me servant de la élément qui sont dans la colonne "D"

par avance merci de votre aide

 

[camarchepas]

Re : Nom onglget = valeur cellule

Bonjour à vous 2,

Je reprends juste le code de JpB pour complèment d'explication

Par contre ta dernière demande n'est pas claire .

'Il suffit si la feuille existe déjà de passer à la suivante.

car si elle à déjà le nom voulu cela ne sert à rien de la renommer .

'Déclaration des variables : Cel permet de scruter l'ensemble des cellules de la colonne D2 à Dmax 
Dim Cel As Range
'Lg contiendra la derniére ligne écrite de la colonne D
dim Lg&

'Là on référence la feuille Chambre froide et vitrine , ATTENTION dans le dernier classeur joint la feuille est renommée Affich je crois 
'Donc si c'est le cas il faudra modifier ici le nom également 
With Worksheets("Chambre froide et vitrine ")
  'Là, Trouve la dernière ligne renseignée de la colonne D en remontant depuis la derniere ligne feuille maxi
  'Attention le With met en référence un objet , ici la feuille en question, le .range suivant est donc défini dans cette meme feuille   
   Lg = .Range("D" & Rows.Count).End(xlUp).Row
  'Ici la boucle each scrute l'ensemble des cellules de la zone D2:Dmax 
  For Each Cel In .Range("D2:D" & Lg)
   'Ajout d'une feuille en fin de classeur  
    Worksheets.Add after:=Sheets(Sheets.Count)
   'Renommage de la feuille suivant le nom de la cellule
     ActiveSheet.Name = Cel.Text
 'Si dernier élement non atteind , alors l'on reprend la boucle for en incrémentant de 1 l'adresse de la cellule scrutée
 Next Cel
'Fin de mise en référence
End With
End Sub

 

[wrap food]

Re : Nom onglget = valeur cellule

Bonjour

Je vais essayé de m'expliquer ....
En faite le fichier doit pouvoir servir sur plusieurs exploitations et elles n'ont pas toute les même infrastructure.
c'est pour cela que je souhaiterais que dans la premier feuille" AFFICH" l'on puisse nommer les onglets du reste du classeur

exemple : l'onglet nommer "1" prenne le nom que l'on mets dans la cellule D2 de la feuille "AFFICH".

Je penser que l'on pouvais, a priori j'ai tord, mettre un code en vba dans la feuille lui indiquant que le nom de cette feuille était celui de la cellule choisi dans la colonne D

désolé de mettre mal expliqué
encore merci de passer du temps sur ma question

 

[jpb388]

Re : Nom onglget = valeur cellule

Bonjour à tous
pas testé mais le principe quand il va trouvé une deuxième feuille voulant portée le même nom une boite de dialogue s'ouvre avec le nom de d1 et tu rajoute un 1 derrière

Option Explicit

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
traitement Sh
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = Sh.Range("D1").Address Then
    traitement Sh
End If
End Sub
Private Sub traitement(Sh As Worksheet)
Dim Reponse$
    If TestOnglet(Sh.Range("D1").Text) = True And Sh.Range("D1").Text <> Sh.Name Then Reponse = InputBox("Indiquez un nom d'onglet valable", "Nom d'onglet déjà utilisé", Sh.Range("D1").Text)
        Reponse = IIf(Reponse = "", Sh.Range("D1"), Reponse)
        On Error Resume Next
        Sh.Name = Reponse
End Sub
Private Function TestOnglet(zz As String) As Boolean 'fonction Test
 On Error Resume Next
 TestOnglet = Sheets(zz).Name <> ""
 On Error GoTo 0
 End Function