Créer onglet via un menu déroulant

job75

XLDnaute Barbatruc

• 10 Février 2019

• #2

Bonjour jefekoi,

Placez dans le code de la feuille :

Code:

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+

 

Dernière édition: 10 Février 2019

Vote positif 0 Vote négatif

Jefekoi

XLDnaute Junior

• 10 Février 2019

• #3

Merci Job75

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

 

Pièces jointes

• Capture d’écran 2019-02-10 à 17.39.19.png

  103.1 KB · Affichages: 14

Vote positif 0 Vote négatif

Jefekoi

XLDnaute Junior

• 10 Février 2019

• #4

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

 

Pièces jointes

• Capture d’écran 2019-02-10 à 17.47.28.png

  88.3 KB · Affichages: 12

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Février 2019

• #5

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

 

Pièces jointes

• Menu(1).xlsm

  22.5 KB · Affichages: 4

Vote positif 0 Vote négatif

Jefekoi

XLDnaute Junior

• 10 Février 2019

• #6

Merci Job75

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

 

Pièces jointes

• Capture d’écran 2019-02-10 à 18.03.26.png

  172.7 KB · Affichages: 8

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Février 2019

• #7

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

 

Vote positif 0 Vote négatif

Jefekoi

XLDnaute Junior

• 10 Février 2019

• #8

Si justement elles le sont

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Février 2019

• #9

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

Code:

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

 

Vote positif 0 Vote négatif

Jefekoi

XLDnaute Junior

• 10 Février 2019

• #10

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.

 

Pièces jointes

• Capture d’écran 2019-02-10 à 18.22.44.png

  362.3 KB · Affichages: 12

Vote positif 0 Vote négatif