Créer onglet via un menu déroulant

[Jefekoi]

Bonjour,

A partir du moment que je choisi un "texte" dans le menu déroulant j'aimerais créer une nouvelle feuille sous le même nom que j'ai sélectionné .


Si possible en VBA (MAC)

J'insiste sur la version MAC car les exemples que j'ai pu voir sur ce forum son souvent pour PC 🙁

Merci pour votre aide

 

[job75]

Bonjour jefekoi,

Placez dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [C2]) Is Nothing Or [C2] = "" Then Exit Sub
If IsError(Sheets(CStr([C2]))) Then
    Application.ScreenUpdating = False
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = [C2]
    Application.Goto [C2]
End If
End Sub

S'il y a bug sur MAC dites-nous où.

A+

 

[Jefekoi]

Merci Job75

J'ai modifié suivant votre source, enregistré quitté et redémarré, et rien il ne se passe rien. 🙁

 

[Jefekoi]

PS :j'ai essayé de mettre le code dans la feuille, et rien marche pas non plus 🙁

 

[job75]

Il faut placer le code au bon endroit, le fichier joint fonctionne-t-il chez vous ?

 

[Jefekoi]

Merci Job75

J'avais aussi essayé mais ça ne marche pas 🙁

 

[job75]

Je ne vois plus qu'une raison : les macros ne sont pas activées.

 

[Jefekoi]

Si justement elles le sont 🙁

 

[job75]

Alors pour voir si la macro se déclenche ajoutez une MsgBox et dites-nous :

Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox "Exécution"
On Error Resume Next
If Intersect(Target, [C2]) Is Nothing Or [C2] = "" Then Exit Sub
If IsError(Sheets(CStr([C2]))) Then
    Application.ScreenUpdating = False
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = [C2]
    Application.Goto [C2]
End If
End Sub

 

[Jefekoi]

Alors là je ne comprend plus, j'ai fermé Excel et redémarré et là ça marche ... je l'avais pourtant déjà fermé ..

Je ne comprend pas cette différence entre MAC et PC , il devraient les rendre vraiment compatible pour le bien des clients (nous)

Merci Job75 de ton aide précieuse.