Nomer un onglet par une cellule

[Dietvert]

Bonjour,

J'ai crée une macro qui permet de générer un model de feuille automatiquement.

J'aimerai pouvoir entrer le nom le l'onglet dans une cellule puis lancer ma macro qui prendrait en compte le nom que j'ai inséré dans cette cellule.

Je pense que ça doit être possible, mais étant très faible en VBA je sollicite votre aide.

Merci.

 

[BOISGONTIER]

Re : Nomer un onglet par une cellule

Bonjour,

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Target.Address = "$A$1" Then
     Sh.Name = Target.Value
  End If
End Sub

JB
Formation Excel VBA JB

 

[excalibur]

Re : Nomer un onglet par une cellule

bonjour Dietvert BOISGONTIER le forum une autre methode

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Selection = "" Then Exit Sub
Dim Ws As Worksheet
For Each Ws In Worksheets
If Ws.Name = Target Then MsgBox "Ce nom de feuille existe déjà !": Exit Sub
Next Ws
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = Target
End If
Sheets("base").Activate
End Sub

 

[Dietvert]

Re : Nomer un onglet par une cellule

bonjour Dietvert BOISGONTIER le forum une autre methode

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Selection = "" Then Exit Sub
Dim Ws As Worksheet
For Each Ws In Worksheets
If Ws.Name = Target Then MsgBox "Ce nom de feuille existe déjà !": Exit Sub
Next Ws
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = Target
End If
Sheets("base").Activate
End Sub

Je vous remercie, j'ai essayer rapidement le code mais ça ne donne rien, je vais regarder ce week end. En tous cas merci bcp.

 

[excalibur]

Re : Nomer un onglet par une cellule

bonjour le fil quelques explications

 

[Dietvert]

Re : Nomer un onglet par une cellule

bonjour le fil quelques explications

Salut
Merci pour ce fichier, mais je n'arrive pas à lancer la macro, ca ouvre une boite de dialogue : Erreur de compilation : Nom ambigu détecté : Worksheet_SelectionChange.

Quelqu'un peut m'aider?

😕

 

[Pierrot93]

Re : Nomer un onglet par une cellule

Bonsoir Dietvert, le fil

vérifies que tu n'as bien qu'une seule procédure

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

dans le module de la feuille en question.

bonne soirée
@+

 

[JCGL]

Re : Nomer un onglet par une cellule

Bonjour à tous,

Tu as deux

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

sur la feuille1 (accessible par Alt F11)

Supprime en un des deux

A+

 

[jeanpierre]

Re : Nomer un onglet par une cellule

Bonsoir Diervert, excalibur (JP), Jacques,

Modifies ici ce qui est en rouge :

'idem ci dessus mais uniquement quand changement dans cellule a1 pour l exemple
Private Sub Worksheets_SelectionChange(ByVal Target As Range)
Dim Ws As Worksheet
If Target.Address = "$A$1" Then
If Selection = "" Then Exit Sub
For Each Ws In Worksheets
If Ws.Name = Target Then MsgBox "Ce nom de feuille existe déjà !": Exit Sub
Next Ws
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = Target
End If
Sheets("feuil1").Activate
End Sub

Normalement cela doit fonctionner.

Bonne soirée.

Jean-Pierre

 

[guitou77]

Re : Nomer un onglet par une cellule

Bonjour le Forum,dietvert,excalibur,

Tu fais un couper-coller du 2ème exemple d'excalibur sur ta feuil2.
Ce qui ce produit, c'est que tu as 2 Worksheet_SelectionChange sur ta feuil1
donc lequel prendre ?. (avec cet exemple, tu modifie en A1).

J'espère que celà va fonctionner, je l'ai testé et pas de problème.
@+.

 

[Dietvert]

Re : Nomer un onglet par une cellule

Bonjour,

Merci pour votre aide, j'ai finalement choisi ce script :

Sub AjoutFiche()
'
' AjoutFiche Macro
'

Dim Ws As Worksheet 'declaration variable
Range("b13").Select 'selection cellule b13 dans l exemple
If Selection = "" Then Exit Sub ' si vide sortie de la macro
For Each Ws In Worksheets ' boucle sur toutes les feuilles
If Ws.Name = [b13] Then MsgBox "Ce nom de feuille existe déjà !": Exit Sub ' si feuille deja presente message + sortie macro
Next Ws 'sortie boucle
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = [b13] 'cree la feuille en dernier
Sheets("Accueil").Activate 'retour sur Accueil
[b13] = "" 'eventuellement vider la cellule apres creation feuille


End Sub

Ca fonctionne et c'est super, mais je n'arrive pas à ecricre le code pour dire que lorsqu'il à fini, qu'il faut qu'il copie toutes les cellules de l'onglet "Fiche" pour les coller dans cette fiche. Puis de classer l'onglet juste après l'onglet "Articles".

Merci pour votre aide ..

 

[excalibur]

Re : Nomer un onglet par une cellule

bonjour Dietvert guitou77 jeanpierre(jeanpierre) JCGL (grenoblois) pierrot
le forum
pas bien bonnes mes explications milles excuses
si j ai compris!!!
Option Explicit
Sub AjoutFiche()
Dim Ws As Worksheet, s As Variant
Application.ScreenUpdating = False
Range("b13").Select
If Selection = "" Then Exit Sub
For Each Ws In Worksheets
If Ws.Name = [b13] Then MsgBox "Ce nom de feuille existe déjà !": Exit Sub
s = [b13]
Next Ws
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = [b13]
[b13] = ""
Sheets("Fiche").Activate: Range("a1:iv65536").Copy Destination:=Sheets(s).Range("A1")
Sheets(s).Move after:=Sheets("articles")
Sheets("Accueil").Activate
End Sub

 

[Dietvert]

Re : Nomer un onglet par une cellule

bonjour Dietvert guitou77 jeanpierre(jeanpierre) JCGL (grenoblois) pierrot
le forum
pas bien bonnes mes explications milles excuses
si j ai compris!!!
Option Explicit
Sub AjoutFiche()
Dim Ws As Worksheet, s As Variant
Application.ScreenUpdating = False
Range("b13").Select
If Selection = "" Then Exit Sub
For Each Ws In Worksheets
If Ws.Name = [b13] Then MsgBox "Ce nom de feuille existe déjà !": Exit Sub
s = [b13]
Next Ws
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = [b13]
[b13] = ""
Sheets("Fiche").Activate: Range("a1:iv65536").Copy Destination:=Sheets(s).Range("A1")
Sheets(s).Move after:=Sheets("articles")
Sheets("Accueil").Activate
End Sub

salut,

merci jeanpierre, j'ai testé ton code mais il me ouvre une boite de dialogue :
Erreur de compilation : Utilisation incorrecte du mot Me

 

[JCGL]

Re : Nomer un onglet par une cellule

Bonjour à tous

Supprime l'espace entre Na et me pour avoir Name

Sheets.Add(after:=Worksheets(Worksheets.Count)).Na  me = [b13]

A+

 

[Dietvert]

Re : Nomer un onglet par une cellule

Bonjour à tous

Supprime l'espace entre Na et me pour avoir Name

Sheets.Add(after:=Worksheets(Worksheets.Count)).Na  me = [b13]

A+

Merci, ca fonctionne, ça met beaucoup de temps pour que la macro s'exécute, le petit sablier apparait, je me demande si c'est normale.

Merci 😉