Autres Création + copie de feuille

theovgnl à dit:

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.

Cliquez pour agrandir...

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

Jacky67 à dit:

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

VB:

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

Cliquez pour agrandir...