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

Ro Main

XLDnaute Nouveau
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.
 

Pièces jointes

  • FB_IMG_1589877622380.jpg
    FB_IMG_1589877622380.jpg
    308.9 KB · Affichages: 30
  • FB_IMG_1589877599112.jpg
    FB_IMG_1589877599112.jpg
    201 KB · Affichages: 23

Jacky67

XLDnaute Barbatruc
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.
 

Jacky67

XLDnaute Barbatruc
ci joint le fichier test.
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
 

Pièces jointes

  • test budget.xlsm
    26.5 KB · Affichages: 4
Dernière édition:

Ro Main

XLDnaute Nouveau
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

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

Discussions similaires

Réponses
7
Affichages
669
Compte Supprimé 979
C

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG