Bonjour,
Je n’ai aucune connaissance en VBA, c’est la raison pour laquelle je m’adresse vous.
Je cherche à créer une procédure VBA qui sera associée à un bouton de commande intitulé : "Vérification_Validation écriture_passage écriture suivante"
En effet, il s'agit d'un formulaire d'un programme de comptabilité. Et plus précisément, d'un formulaire de "saisie des écritures comptables". Bien entendu, il s'agit de vérifier l'égalité parfaite des débits et des crédits d'une écriture comptable, avant de la valider et avant de passer à une autre écriture.
Voici ce que l’on m’a proposé, mais je n’y comprend rien, et de plus ça fonctionne pas.
1 - Idée générale
- vérifier l'égalité débit/crédit des mouvements passés dans un formulaire
- vérifier si l’égalité est bonne, puis valider et passer à l’écriture suivante.
Le principe :
Si total des débits <> du total des crédits
alors
affichage d’une boîte de message avec comme texte « Ecriture incorrecte »
sinon
affichage d’une boîte de message avec comme texte « Ecriture correcte » passage à l’enregistrement suivant
fin si
2 - Procédure commande ( )
var
totDebit : réel
totCredit : réel
début
totDebit = somme des débits pour les mouvements de l'écriture NuméroEcriture en cours totCredit = somme des crédits pour les mouvements de l'écriture NuméroEcriture en cours
si (totDebit <> totCredit)
alors
afficher("Ecriture incorrecte !")
sinon
afficher("Ecriture correcte !")
nouvel enregistrement
fin si
fin procédure
3 – Ce qui ne va pas :
Private Sub Commande10_Click()
Dim totdeb As Integer
Dim totcre As Integer
totdeb = sommeDebRcpta
totcre = sommeCredRcpta
If (totDebit <> totCredit) Then
MsgBox ("Ecriture incorrecte" & " Total debit : " & totdeb & " total credit : " & totcre)
Else
MsgBox ("Ecriture correcte")
Nouvel enregistrement
End If
End Sub
4 – Voici la table contenant les données
RefCpta……….NuméroAuto
RefEcr………….Numérique
RefJA………..…Numérique
RefPCA3D……Numérique
Ref………………..Texte
DebRcpta ……Monétaire
CredRcpta…..Monétaire
En clair, je cherche une personne pour m’écrire la procédure totalement.
Avec mes remerciements anticipés pour votre aide
Cordialement
Partager