Tableau de suivie de paiement des formations

re,

pour ce dernier (enlever le montant de la retenue), on peut ajouter cette option dans l'userform, non ?

(en supposant que cela est 21% du montant).

bonjour

désolé pour le retard de répondre mon pc était en panne

comment je peux ajouter ton modification sur mon fichier que j'ai déjà remplir

merci

comment je peux ajouter le montant de retenue

tu peux m'expliquer

merci

re,

dans la feuille "BDD" cellule A5, il faut ajouter "enlever le montant de la retenue" (ou quelque chose pareil) pour savoir ajouter cette option dans votre userform.

et je pense que la seule chose à faire, c'est ajouter cette ligne "If ComboBox1.Value = "enlever le montant de la retenue" Then TextBox6.Value = WorksheetFunction.Round(CDbl(TextBox10.Value) * 0.21, 2)" comme dernière ligne dans "combobox1_Change de l'userform. Attention ce valeur 0.21, je supposais que le taux du TVA était 21%, donc vous devez modifier cela si nécessaire

Private Sub ComboBox1_Change()
     If ComboBox1.Value = "Chèque" Then
          Label7.Visible = True
          Label8.Visible = True
          Label9.Visible = True
          TextBox6.Visible = True
          TextBox7.Visible = True
          TextBox8.Visible = True
          TextBox8.Value = Date
     Else
          Label7.Visible = True
          Label8.Visible = False
          Label9.Visible = True
          TextBox6.Visible = True
          TextBox7.Visible = False
          TextBox8.Visible = True
          TextBox8.Value = Date
               End If

 If ComboBox1.Value = "enlever le montant de la retenue" Then TextBox6.Value = WorksheetFunction.Round(CDbl(TextBox10.Value) * 0.21, 2)

End Sub

cela fonctionne comme ça ?

re,

excusez-moi, mais il faut aussi modifier le "Rowsource" du "combobox1" et ajouter cette cellule A5

bonjour

excusez moi mais je ne peux pas trouver "Rowsource"

tu peux m'aider

merci

re,

le plus facile c'est d'ajouter ceci ComboBox1.RowSource = "BDD!A1:A5" à l'userform activate de l'userform "paiement"

au

Private Sub UserForm_Activate()
     Dim ligne As Integer
     ligne = ActiveCell.Row
     ComboBox1.RowSource = "BDD!A1:A5"       '<<<<<<<<<<<<<<<<<<<<<< A AJOUTER

     If (Sheets("2024").Range("A" & ligne) <> "") Then
          TextBox1.Value = Left(Sheets("2024").Range("A" & ligne), 10)
etc

merci bien normalement ca marche je veux faire un test

BONJOUR

j'ai un autre problème lorsque j'ai même société fait 2 types de formations Excel fait la somme des deux formations

exemple

la 1ere ligne une formation

et la 2eme ligne une autre formation

lorsque je sélectionne une ligne ceci s'affiche l'état de payement