Autres Création + copie de feuille

[theovgnl]

Bonjour, j'ai un bouton <FICHE> dans la feuille "FICHE_TRAME" qui doit se copier une nouvelle feuille qui se nommera "*Valeur de la cellule B2*_FICHE" , qui se situera juste après la feuille dont la ref coffret est identique a la valeur de la cellule B2.

Si quelqu'un aurais une idée de code elle sera la bienvenue. Cordialement.

 

[Jacky67]

Bonjour, j'ai un bouton <FICHE> dans la feuille "FICHE_TRAME" qui doit se copier une nouvelle feuille qui se nommera "*Valeur de la cellule B2*_FICHE" , qui se situera juste après la feuille dont la ref coffret est identique a la valeur de la cellule B2.

Si quelqu'un aurais une idée de code elle sera la bienvenue. Cordialement.

Bonjour,
Cette macro attribuée au bouton de la feuille "FICHE_TRAME" devrait faire.

Sub Creation_FICHE()
    With Sheets("FICHE_TRAME")
        If IsError(Evaluate("='" & .[b2].Value & "'!B1")) Then
            .Copy after:=Sheets(Left(.[b2], Len(.[b2]) - 3))
            ActiveSheet.Name = .[b2]
            ActiveSheet.Shapes("Button 1").Cut ' supprime le bouton
        Else
            MsgBox .[b2] & vbLf & "Feuille déjà existante.", , "Information"
        End If
    End With
End Sub

 

[theovgnl]

Bonjour,
Cette macro attribuée au bouton de la feuille "FICHE_TRAME" devrait faire.

Sub Creation_FICHE()
    With Sheets("FICHE_TRAME")
        If IsError(Evaluate("='" & .[b2].Value & "'!B1")) Then
            .Copy after:=Sheets(Left(.[b2], Len(.[b2]) - 3))
            ActiveSheet.Name = .[b2]
            ActiveSheet.Shapes("Button 1").Cut ' supprime le bouton
        Else
            MsgBox .[b2] & vbLf & "Feuille déjà existante.", , "Information"
        End If
    End With
End Sub

Bonjour, merci de votre retour. Votre code ne correspond pas vraiment a l'attente mais utile pour un autre travail a faire, votre travail ne sera pas vain. Encore merci pour votre code et temps accordé.