XL 2016 les onglets à gauche

[bobafric]

Bonjour à tous
Le code suivant permet d'ajouter et de lier un onglet en tapant le nom feuil Menu col A.
Les onglets s'ajoutent à droite de l'onglet Menu.
Est il possible de créer les onglets à la gauche de l'onglet menu
Merci d'avance


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Or Target.Count > 1 Then Exit Sub
Dim nom$
nom = Left(CStr(Target), 31)
If nom = "" Then Exit Sub
On Error Resume Next
Sheets(nom).Activate
If Err = 0 Then Exit Sub
Err = 0
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = nom
Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:=nom & "!L1C1", TextToDisplay:=nom
If Err Then
ActiveSheet.Delete
Me.Activate
Target.Select
Application.ScreenUpdating = False
MsgBox "Il y a des caractères interdits dans le nom !", 48
End If
End Sub

 

[chris]

Multipost au minimum sur 3 forums...

 

[TooFatBoy]

Bonjour,

À tout hasard, as-tu essayé de remplacer
Sheets.Add After:=Sheets(Sheets.Count)
par un truc du genre
Sheets.Add Before:=Sheets("Menu")
ou quelque chose comme ça ?



[edit-pour-message-personnel]
Bizayoyo...
[/edit-pour-message-personnel]

 

[chris]

RE

Il a effectivement eu la traduction sur un des forums...

Consulter l'aide en ligne prend moins de temps que de poster tous azimut...