bonjour à tout le monde...bonjour à tout le monde...
voici mon souci...j'aurai aimé simplifier ma programmation au plus simple.
Un élève a une dette de 100€ il peut payer cette somme en trois fois maximum
j'ai une colonne "E"( MONTANT DE LA FACTURE) Un élève doit 100€ en "E7"
J'ai une autre colonne "G" (MONTANT RECU) Un élève paye un acompte de 50€ en "G7"
Dans la colonne "H7"(RESTE A PAYER) Calcule de la diffèrence entre E7-G7=H7 (solde de l'élève)ceci est le premier acompte(1er payement)
deuxième payement:
en K7=deuxième acompte l'élève paye 25€ , décompte H7-K7=L7 (nouveau reste à payer)
Troisième et dernier payement:
en O7=dernier payement l'élève solde de son compte 25€, décompte L7-O7=P7
en "S7" le solde devient de 0
l'élève à soldé son compte...
mais je dois répéter cette ligne 7 jusque 500 élèves...
pouvez vous m'aidez s'il vous plait car je ne vois pas comment construire cette programmation...est j'y ai bien essayé.
D'avance merci à tous et bon vendredi.
Tim
voici mon code sur cette feuille "Comptable"
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ws As Worksheet
Set Ws = Workbooks("BDC").Worksheets("Comptable")
'---
If Not Intersect(Target, Range("G7")) Is Nothing Then
If Ws.Range("G7").Value <> "0" Then
Range("H7").Formula = "=($E7-$G7)"
End If
End If
If Not Intersect(Target, Range("K7")) Is Nothing Then
If Ws.Range("K7").Value <> "0" Then
Range("L7").Formula = "=($H7-$K7)"
End If
End If
If Not Intersect(Target, Range("O7")) Is Nothing Then
If Ws.Range("O7").Value <> "0" Then
Range("P7").Formula = "=($L7-$O7)"
End If
End If
End Subj'aurai aimé ne pas devoir répéter 500 fois le petit programme ci-dessus...
merci
Pièces jointes
Dernière édition:
