Microsoft 365 Création d'un tableau automatisé

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A la fin du remplissage.
Ca ne veut rien dire.
Si vous avez un article ou 10 articles à renseigner pour une facture, comment voulez vous qu'Excel le sache ?
Si vous remplissez dans le désordre articles, puis client, puis facture, comment voulez vous qu'Excel le sache ?
Un essai en PJ avec un bouton Enregistrer, et ce code :
VB:
Sub Enregistrer()
Dim L%
With Sheets("Tableau")
    L = 2
    While .Cells(L, "A") <> "": L = L + 1: Wend ' Première ligne vide
    .Cells(L, 1) = [F5]                         ' N° facture
    .Cells(L, 2) = Format([F6], "dd/mm/yyyy")   ' Date
    .Cells(L, 3) = [F8]                         ' Client
    .Cells(L, 4) = Format([G20], "0.00€")       ' HT
    .Cells(L, 5) = Format([G22], "0.00€")       ' TTC
End With
End Sub
A noter que dans votre formulaire, la formule en G14 est fausse, je pense que c'est plutôt :
Code:
=C14*F14
et non
=SOMME(F14)
 

Pièces jointes

Ca ne veut rien dire.
Si vous avez un article ou 10 articles à renseigner pour une facture, comment voulez vous qu'Excel le sache ?
Si vous remplissez dans le désordre articles, puis client, puis facture, comment voulez vous qu'Excel le sache ?
Un essai en PJ avec un bouton Enregistrer, et ce code :
VB:
Sub Enregistrer()
Dim L%
With Sheets("Tableau")
    L = 2
    While .Cells(L, "A") <> "": L = L + 1: Wend ' Première ligne vide
    .Cells(L, 1) = [F5]                         ' N° facture
    .Cells(L, 2) = Format([F6], "dd/mm/yyyy")   ' Date
    .Cells(L, 3) = [F8]                         ' Client
    .Cells(L, 4) = Format([G20], "0.00€")       ' HT
    .Cells(L, 5) = Format([G22], "0.00€")       ' TTC
End With
End Sub
A noter que dans votre formulaire, la formule en G14 est fausse, je pense que c'est plutôt :
Code:
=C14*F14
et non
=SOMME(F14)
Bonjour, je te remercie de ta réactivité.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
52
Réponses
4
Affichages
543
Réponses
16
Affichages
532
Retour