XL 2021 formulaire de saisie

[aquila70]

Bonjour , nouveau sur Excel , j'essaye de remplir mon formulaire alimentaire, je voudrais répertorier tous les aliments.

J'ai pourtant bien suivi une vidéo, mais à chaque fois, il me double ou triple ma ligne à chaque enregistrement ???.

Si possible une petite correction serais là bien venue et avec un petit détail de mon erreur.

Ps: pour exemple : sur le formulaire, j'ai placé trois lignes en jaune, genre de rentrée que je place.

 

[Valtrase]

Bonjour Aquila,
Pour ma part je ne vois pas l’intérêt de renseigner des cellules puis les copier dans le tableau pourquoi ne pas écrire directement dans le tableau ?
Mais bon faites ces changements :

• Donnez le nom de code (sys_Data) à la feuille base de donnée (Il vaut mieux travailler avec le nom de code des feuilles, leurs noms peut changer plus facilement, de plus cela vous évite de déclarer des variable supplémentaires dans vote code)

• Donnez le nom de code (sys_DataForm) à la feuille Formulaire
• Changez le nom du tableau de destination en vt_Data (Donner des noms représentatif pour vos tableau, pour ma part j'utilise le prefixe "vt_" mais vous pouvez donnez le prefixe de votrechoix)
• Sélectionnez la plage entière où vous entrez vos données et attribuez-lui le nom sysvr_Data (Attribuer des champs nommés facilite la comprhéension du code ici aussi j'utilise un prefixe "sysvr_" pour mes champs nommés mais vous pouvez lui donner le prefixe qui vous convient)
• Changer le code de la macro par celle-ci

Sub Macro10()
    ' // Ajoute une ligne au tableau à la position 1
    Dim lstRow As Excel.ListRow
    Set lstRow = sys_Data.Range("vt_Data").ListObject.ListRows.Add(Position:=1)
    sys_DataForm.Range("sysvr_Data").Copy

    With lstRow.Range(1).Cells.Resize(1, 8)
        .PasteSpecial Paste:=xlPasteValues
    End With

    Application.CutCopyMode = False
 
    MsgBox ("donnée enregistrée")
End Sub

Bonne programmation,

 

[Phil69970]

Bonjour à tous

@aquila70
Je te propose ce fichier

C'est quoi cette date ???

Merci de ton retour

 

[aquila70]

Bonjour à tous

@aquila70
Je te propose ce fichier

C'est quoi cette date ???
Regarde la pièce jointe 1214441

Merci de ton retour

Bonjour, merci de ta réponse, oui effectivement, je pourrais faire directement comme tu le dis, mais me voilà à près de 75 ans , et je voudrais passer mon temps à ce genre de chose, pas facile vu que je commence Excel.

 

[Phil69970]

@aquila70

Ta réponse ne s'adresse pas à moi mais à @Valtrase il me semble.

As tu essayé mon fichier ?
Et fonctionne t'il comme tu le souhaites ?

Merci de ton retour

 

[aquila70]

Bonjour, merci de ta réponse, oui effectivement, je pourrais faire directement comme tu le dis, mais me voilà à près de 75 ans , et je voudrais passer mon temps à ce genre de chose, pas facile vu que je commence Excel.

Date ?, oups oui : 20-04-027 : je vais essayer de faire un bouton de recherche qui devra me donner le - nom/date de fin/quantité restante/et si j'en ai plusieurs : exemple : si je demande les " pâtes" je devrais avoir la liste des pâtes./quantités/date de fin/solde restant.

 

[aquila70]

@aquila70

Ta réponse ne s'adresse pas à moi mais à @Valtrase il me semble.

As tu essayé mon fichier ?
Et fonctionne t'il comme tu le souhaites ?

Merci de ton retour

Oui sans problème, en grand merci, (j'y ai passé deux jours !!!)

 

[aquila70]

Bonjour Aquila,
Pour ma part je ne vois pas l’intérêt de renseigner des cellules puis les copier dans le tableau pourquoi ne pas écrire directement dans le tableau ?
Mais bon faites ces changements :

• Donnez le nom de code (sys_Data) à la feuille base de donnée (Il vaut mieux travailler avec le nom de code des feuilles, leurs noms peut changer plus facilement, de plus cela vous évite de déclarer des variable supplémentaires dans vote code)

Regarde la pièce jointe 1214440

• Donnez le nom de code (sys_DataForm) à la feuille Formulaire
• Changez le nom du tableau de destination en vt_Data (Donner des noms représentatif pour vos tableau, pour ma part j'utilise le prefixe "vt_" mais vous pouvez donnez le prefixe de votrechoix)
• Sélectionnez la plage entière où vous entrez vos données et attribuez-lui le nom sysvr_Data (Attribuer des champs nommés facilite la comprhéension du code ici aussi j'utilise un prefixe "sysvr_" pour mes champs nommés mais vous pouvez lui donner le prefixe qui vous convient)
• Changer le code de la macro par celle-ci

Sub Macro10()
    ' // Ajoute une ligne au tableau à la position 1
    Dim lstRow As Excel.ListRow
    Set lstRow = sys_Data.Range("vt_Data").ListObject.ListRows.Add(Position:=1)
    sys_DataForm.Range("sysvr_Data").Copy

    With lstRow.Range(1).Cells.Resize(1, 8)
        .PasteSpecial Paste:=xlPasteValues
    End With

    Application.CutCopyMode = False
 
    MsgBox ("donnée enregistrée")
End Sub

Bonne programmation,

Bonjour, merci de ta réponse, oui effectivement, je pourrais faire directement comme tu le dis, mais me voilà à près de 75 ans , et je voudrais passer mon temps à ce genre de chose, pas facile vu que je commence Excel.

 

[Phil69970]

@aquila70

e vais essayer de faire un bouton de recherche qui devra me donner le - nom/date de fin/quantité restante/et si j'en ai plusieurs : exemple : si je demande les " pâtes" je devrais avoir la liste des pâtes./quantités/date de fin/solde restant.

Si tu expliques un peu mieux je peux regarder et avec un fichier explicatif c'est encore mieux.

Pour info j'ai commenter le code VBA pour que tu le comprennes ..... 😉

 

[aquila70]

Bonjour Aquila,
Pour ma part je ne vois pas l’intérêt de renseigner des cellules puis les copier dans le tableau pourquoi ne pas écrire directement dans le tableau ?
Mais bon faites ces changements :

• Donnez le nom de code (sys_Data) à la feuille base de donnée (Il vaut mieux travailler avec le nom de code des feuilles, leurs noms peut changer plus facilement, de plus cela vous évite de déclarer des variable supplémentaires dans vote code)

Regarde la pièce jointe 1214440

• Donnez le nom de code (sys_DataForm) à la feuille Formulaire
• Changez le nom du tableau de destination en vt_Data (Donner des noms représentatif pour vos tableau, pour ma part j'utilise le prefixe "vt_" mais vous pouvez donnez le prefixe de votrechoix)
• Sélectionnez la plage entière où vous entrez vos données et attribuez-lui le nom sysvr_Data (Attribuer des champs nommés facilite la comprhéension du code ici aussi j'utilise un prefixe "sysvr_" pour mes champs nommés mais vous pouvez lui donner le prefixe qui vous convient)
• Changer le code de la macro par celle-ci

Sub Macro10()
    ' // Ajoute une ligne au tableau à la position 1
    Dim lstRow As Excel.ListRow
    Set lstRow = sys_Data.Range("vt_Data").ListObject.ListRows.Add(Position:=1)
    sys_DataForm.Range("sysvr_Data").Copy

    With lstRow.Range(1).Cells.Resize(1, 8)
        .PasteSpecial Paste:=xlPasteValues
    End With

    Application.CutCopyMode = False
 
    MsgBox ("donnée enregistrée")
End Sub

Bonne programmation,

Bonjour, merci de ta réponse, oui effectivement, je pourrais faire directement comme tu le dis, mais me voilà à près de 75 ans , et je voudrais passer mon temps à ce genre de chose, pas facile vu que je commence Excel.

 

[aquila70]

Bonjour à tous

@aquila70
Je te propose ce fichier

C'est quoi cette date ???
Regarde la pièce jointe 1214441

Merci de ton retour

bonjour , oui sans problème un grand merci ! : ( oups, je me mêle les pinceaux (destinataire dans mes réponses )

 

[aquila70]

@aquila70



Si tu expliques un peu mieux je peux regarder et avec un fichier explicatif c'est encore mieux.

Pour info j'ai commenter le code VBA pour que tu le comprennes ..... 😉

Bonjour ci-joint un PDF ! si c'est possible ??

 

[aquila70]

Bonjour ci-joint un PDF ! si c'est possible ??

Bj, petit soucis , quand j'en code une ligne , je renseigne sur quantité (5) et sur nbre utilisé (2) sur solde pas de calcul : j'ai oublié sur le formulaire d'y placer une formule , donc sur base de donnée pas de calcul. pourrais-tu y regarder. Merci d'avance

 

[vgendron]

Hello

j'ai repris le classeur initial
vu que tu as une Table structurée dans la seconde feuille
1) je l'ai appelée t_BDD
2) le code est réduit à quelques lignes
voir les commentaires

après. quitte à avoir un "formulaire", autant définir un VRAI formulaire (Userform) en y placant des textbox pour saisir les infos, une listbox pour visualiser le contenu de la base de données, des boutons pour modifier, ajouter supprimer des lignes..
va voir dans les resssources du forum, il y a plein d'exemples de gestion de stock

 

[vgendron]

et un peu de lecture pour comprendre et apprendre les Tables Structurées et les différents controls sur un formulaire

Tableaux structurés Excel

Tableaux structurés Excel

fauconnier.developpez.com

The VBA Guide To ListObject Excel Tables

For a data analyst, Excel Tables are a necessity! They are the most efficient way to organize your raw data and refer to data that contracts or expands on a regular basis. Likewise, Excel tables can be extremely useful in combination with VBA.

www.thespreadsheetguru.com

Utiliser les contrôles dans un UserForm, en VBA Excel

Utiliser les contrôles dans un UserForm, en VBA Excel

silkyroad.developpez.com