Les onglets à gauche
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
Bonjour,
Un essai ...
Remplace : Sheets.Add After:=Sheets(Sheets.Count)
Par : Sheets.Add before:=ActiveSheet
ric
Merci ric j'écrivais behind au lieu de before quel english suis je lol!