Microsoft 365 Code VBA Bon Commande

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 !

mld.sebastien

XLDnaute Junior
Bonjour,

Je cherche un code VBA pour autant de ligne dans le bon de commande.

Pour chaque textbox : Tbx_Quantité , Tbx_Prix qui ce multiplie et donne un Montant en Tbx_Montant.
Et à la fin un Tbx_Total en additionnant les Montant.

Je l'ai fait pour chaque ligne comme cela :

VB:
Private Sub Tbx_Prix1_Change()
    Tbx_Montant1.Value = Format(Tbx_Quantie1.Value * Tbx_Prix1.Value, "#,##0.00 €")
End Sub

Private Sub Tbx_Montant1_Change()
    Tbx_Total.Value = Format(Tbx_Montant1.Value + Tbx_Montant2.Value, "#,##0.00 €")
End Sub

Je cherche si il y pas plus simple ??

@job75 m'avait super bien aider à un moment je le remercie d'ailleurs, j'utilise toujours tous le temps ses codes.

Cordialement.
 
Solution
Hello

remplace le code du combo par celui ci
VB:
Private Sub Lst_NomPrénom_Change() 'lorsque la selection change dans le combo
    If Me.Lst_NomPrénom.ListIndex = -1 Then 'si il n'y a pas de selection OU qu'il y a une saisie ne correspondant pas à la liste du combo
        Me.Tbx_DateAnniverssaire = " "
        Me.Tbx_Adresse = " "
        Me.Tbx_Téléphone = " "
        Me.Tbx_Mail = " "
        Exit Sub
    End If
    With Sheets("Lst_Clients") 'avec la feuille
        With .ListObjects("Lst_tab_Clients") 'avec la table
            Set trouve = .ListColumns("Nom Prénom").Range.Find(Me.Lst_NomPrénom, lookat:=xlWhole, LookIn:=xlValues) 'on cherche le Nom Prénom dans la colonne
            If Not trouve Is Nothing Then 'si on l'a trouvé...
- 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

  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
89
Réponses
6
Affichages
154
Réponses
3
Affichages
248
Retour