XL 2010 Ecriture via formulaire sur la feuille correspondante a la valeur d'une cellule

Ro Main à dit:

Bonjour a tous,
Je suis bloqué dans la création de mon code.
J'ai créé un formulaire, et je souhaites que le contenu du formulaire soit inscrit dans la feuille correspondante à la valeur de la cellule F12 (ligne budgétaire) dès que je clique sur le bouton.
Je pense que je ne suis pas loin, mais je sèche .
Un petit coup de pouce M Mme les experts.

Bonne journée à tous.

Cliquez pour agrandir...

Jacky67 à dit:

Bonjour,
Il y aura beaucoup plus de chance de réponse avec un classeur brouillon contenant le formulaire qu'avec des images, de surcroit à pivoter.

Cliquez pour agrandir...

Ro Main à dit:

ci joint le fichier test.

Cliquez pour agrandir...

Sub Saisie()
    Dim feuiLLe As String
    Sheets("Saisie").Activate
    If Not IsError(Evaluate("='" & Range("F12").Value & "'!A1")) Then
        Range("A2:E2").Copy
        feuiLLe = Range("F12").Value
        Sheets(feuiLLe).Range("A" & Sheets(feuiLLe).Cells(Rows.Count, "A").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
        Range("B12:D12,B9:D9,B6:I6,F9:I9,F12").ClearContents
        Range("b6").Activate
    Else
        MsgBox "Feuille ligne budgetaire non reconue", , "Information"
    End If
End Sub

Jacky67 à dit:

Re..
Essaye comme ceci
La macro attribuée au bouton "Créer"

VB:

Sub Saisie()
    Dim feuiLLe As String
    Sheets("Saisie").Activate
    If Not IsError(Evaluate("='" & Range("F12").Value & "'!A1")) Then
        Range("A2:E2").Copy
        feuiLLe = Range("F12").Value
        Sheets(feuiLLe).Range("A" & Sheets(feuiLLe).Cells(Rows.Count, "A").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues
        Range("B12:D12,B9:D9,B6:I6,F9:I9,F12").ClearContents
        Range("b6").Activate
    Else
        MsgBox "Feuille ligne budgetaire non reconue", , "Information"
    End If
End Sub

Cliquez pour agrandir...