Discussion :

[helpme1978]

salut
voici un fichier joint contient l'application et contient mon problème et mon besoin.

explication:
le fichier constituer en 2 feuilles ;
la feuille "saisie des vente" : pour but c'est de saisir les clients sont montant d'achat par bon de livraison
la feuille "encaissement des crédits" : c'est pour but de saisir les credit payé par clients (biensur pour les clients qu'il n'a pas régler son bon de livraison.

cette application permet de distribuer le credit payé par client (dans la feuille encaissement des crédits) vers les bon de liv en credit l'un aprés l'autre jusqu'au le solde égale zero

VOICI LE CODE QUE J'AI UTILISER:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Nom_client As String, Montant_payé As Single, i As Integer, Acompte As Single, Solde As Currency
 
If Target.Count > 1 Then Exit Sub
 
    If Not Application.Intersect(Target, Range("E10:E10000")) Is Nothing Then
        Nom_client = Target.Offset(0, -2)
        Montant_payé = Target
 
        With Sheets("Saisie des ventes")
            For i = 10 To .Range("D65000").End(xlUp).Row
                If .Cells(i, 4) = Nom_client Then
                    Acompte = .Cells(i, 8)
                    Solde = .Cells(i, 9)
                    If Solde = 0 Then
                        GoTo Etiquette
                    Else
                    If Solde <= Montant_payé Then
                        .Cells(i, 8) = .Cells(i, 7)
                        Montant_payé = Montant_payé - Solde
                    Else
                         .Cells(i, 8) = Acompte + Montant_payé
                         Exit Sub ' car plus de fric à disposition
                    End If
                    End If
                End If
Etiquette:
            Next
        End With
    End If
If Montant_payé > 0 Then MsgBox "Il reste un montant excédentaire de " & Montant_payé
 
End Sub

[defluc]

N'y a-t-il pas une erreur ou alors, quelle est la logique quand tu écris

Deuxièment : supprimer ou modifier la valeur 1000 par 500

regarder le resultat dans la colonne D (cellule D10) de la feuille "encaissement des credits" et aussi dans la colonne H dans la feuille "saisie des ventes"

Pour en faire quoi ? Ce n'est quand même pas regarder pour le simple plaisir des yeux.

[helpme1978]

c'est que la saisie dans la colonne E de la feuille "encaissements des crédits" si on a par exemple modifier ou supprimer une valeur il prend l’Ancienne comme une valeur correcte c'est à dire il cumule l'ancienne valeur avec la nouvelle.

par contre ma besoin c'est si je modifier ou supprimer une valeur dans cet colonne E il prend dans sa calcul la dernière.

c'est pour cela si possible d'avoir un message de validation de la saisie des données


cordialement