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

[Ro Main]

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.

 

[Jacky67]

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.

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.

 

[Ro Main]

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.

Bonjour,

merci de ton retour, effectivement avec le fichier cela sera plus simple.
ci joint le fichier test.

Bon après midi !

 

[Jacky67]

ci joint le fichier test.

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

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

 

[Ro Main]

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

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

Merci ça marche nickel, j'avais pensé utiliser If mais je ne savais pas comment.
Encore merci.