Créer et nommer un nouvel onglet en fonction d'une cellule

[ArnaudBernardeau]

Bonjour,

Je souhaite créer et nommer un nouvel onglet en fonction de la valeur d'une cellule. J'y suis presque mais des bugs empêchent le bon focntionnement de ma macro et je n'arrive pas à les résoudre (je débute en VBA). Pourriez-vous m'aider svp?

J'aimerai qu'en fonction de la valeur contenue dans la cellule K6 (le jour du mois), ma macro de création d'onglet se déclenche de façon automatique. Pour K6=28.

Et j'aimerai que ce nouvel onglet se nomme selon la valeur contenue dans la case L6 (le mois de l'année).

Voilà la macro de déclenchement:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("K6") = 28 Then
Macro6
End If
End Sub

Et celle pour copier en image le contenu de la feuille initiale, ainsi que pour renommer le nouvel onglet:

Sub Macro6()

Range("A1:L22").Select
Selection.Copy

Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Range("L6")
ActiveSheet.Pictures.Paste.Select
ActiveWindow.DisplayGridlines = False
End Sub

Je joints le fichier pour que ce soit plus clair.

Auriez-vous une idée du problème?

Merci!

 

[Pierrot93]

Re : Créer et nommer un nouvel onglet en fonction d'une cellule

Bonjour,

voir ici :
https://www.excel-downloads.com/threads/creation-dun-nouvel-onglet.230589/

préférable de remonter le fil plutôt que d'en créer un autre...

bonne journée
@+

 

[ArnaudBernardeau]

Re : Créer et nommer un nouvel onglet en fonction d'une cellule

Bonjour Pierrot93, en effet j'aurai dû commenter ma précédente publication plutôt.

Auriez-vous svp la réponse à mon problème cependant?

Bonne journée