Programme de calcul de l’information sur les délais de paiement du rapport de gestion

Posté par le

Au titre des exercices ouverts à compter du 1er juillet 2016, le rapport de gestion des sociétés, dont les comptes sont certifiés par un commissaire aux comptes, comprennent, aussi bien pour les fournisseurs que les clients, le nombre et le montant total des factures reçues ou émises non réglées à la date de clôture de l’exercice dont le terme est échu. Ces montants sont ventilés par tranches de retard (c. com. art. L. 441-6-1).

Factures reçues et émises non réglées

Cette information est fastidieuse à produire manuellement. Fort heureusement des outils la calculent automatiquement. A l’image du programme d’aide au calcul du délai de paiement conçu par Michel PIRON, expert-comptable.

Continue reading ‘Programme de calcul de l’information sur les délais de paiement du rapport de gestion’ »

Calculer une moyenne pondérée (exemple appliqué au CUMP)

Posté par le

Le calcul de moyennes pondérées est d’usage courant à l’image de la moyenne de notes à un examen (du DEC par exemple) ou du coût unitaire moyen pondéré (CUMP) de références en stock.

Calcul CUMP

Le calcul de la moyenne arithmétique (obtenue par la formule : totalisation / dénombrement) est assez simple à obtenir. Excel propose une fonction attitrée : MOYENNE(plage de cellules). Dans notre exemple : 5 + 3 + 2 = 10 € / 3, soit une moyenne de 3,33 €

La moyenne pondérée se calcule en additionnant la multiplication opérée entre les valeurs (ici la quantité) et leur coefficient de pondération (ici le prix unitaire), cette totalisation étant ensuite divisée par la somme des valeurs (ici les quantités). Dans notre exemple, la moyenne pondérée se détermine ainsi : (18 x 5 € + 15 x 3 €) /45… soit une moyenne pondérée (ou CUMP) de 3,53 €.

Continue reading ‘Calculer une moyenne pondérée (exemple appliqué au CUMP)’ »

EXCEL : Extraire le numéro de département d’un code postal français

Posté par le

Les deux premiers chiffres d’un code postal français désignent le département. Pour lire le numéro du département à partir d’Excel, il suffit d’utiliser la fonction GAUCHE(chaîne ; Longueur) ou Left(Chaîne,Longueur) en VBA.

La formule suivante lit le numéro de département d’un code postal situé dans la cellule A1 :

=GAUCHE(A1 ; 2)

Excel n’affiche pas les zéros non significatifs. De fait, les codes postaux commençant par un zéro ne sont pas traités correctement par Excel. Il est donc nécessaire d’amender la formule pour tenir compte de cette difficulté :

Continue reading ‘EXCEL : Extraire le numéro de département d’un code postal français’ »

Analyse des écritures comptables (VBA/SQL) : recherche des encaissements en espèces supérieurs à 1 000 €

Posté par le

Afin de limiter le risque de fraude fiscale, la loi interdit d’effectuer en espèces le paiement d’une dette supérieure à  1 000 € (C. mon. fin. art. L 112-6, I-al. 1 et D 112-3). Il convient de s’assurer régulièrement qu’aucun encaissement n’est réalisé en contravention avec la loi.

Le contrôle du respect de cette règle de droit s’inscrit totalement dans le cadre de la mise en œuvre d’un programme de supervision comptable à l’image du projet PADoCC. 

'Création table CAISSE_ENCAISSTSUP1K
NomReq = "ECRITUREStemp"
NomTable = "E255_CAISSE_ENCAISSTSUP1K"
TexteReq = ""
If TableExiste(DB_Groupe_SUPERVISION, NomTable) Then TexteReq = TexteReq & "INSERT INTO " & NomTable & " IN '" & dossier_Bases & NomBaseDestinationEnCours & "' "
TexteReq = TexteReq & "SELECT CodeEntité, EcritureNum, JournalCode, JournalLib, EcritureDateComptable, CompteNumHarmonisé, CompteNum, CompteLib, CompteAuxNum, CompteAuxLib, PièceRéf, PièceDate, EcritureLib, Débit, Crédit, Solde, ValidDate,"
TexteReq = TexteReq & " AAAAMM, TypeJournal, TypeEcriture, EcritureCompteNumTiers, EcritureCompteAuxNum, EcritureCompteAuxLib"
If Not (TableExiste(DB_Groupe_SUPERVISION, NomTable)) Then TexteReq = TexteReq & " INTO " & NomTable & " IN '" & dossier_Bases & NomBaseDestinationEnCours & "'"
TexteReq = TexteReq & " FROM [_ECRITURES]" & " IN '" & dossier_Bases & BDD_Final & "'"
TexteReq = TexteReq & " WHERE (([_ECRITURES].Solde<=-1000) AND ([_ECRITURES].Cpte1=""4"" Or [_ECRITURES].Cpte1=""7"") AND ([_ECRITURES].TypeJournal=""CAISSE""));"
ExéReq

Continue reading ‘Analyse des écritures comptables (VBA/SQL) : recherche des encaissements en espèces supérieurs à 1 000 €’ »

EXCEL : mettre en évidence les doublons avec les formats conditionnels

Posté par le

L’identification des doublons est une tâche fréquente lorsque l’on analyse des données. Les formats conditionnels d’Excel permettent de manière très simples de les détecter et de les faire ressortir, voire de les supprimer.

Mettre en évidence les valeurs en double

Les formats conditionnels mettent en forme automatiquement des données en fonction de critères. Ces critères sont exprimés à l’aide de formules de calcul ou de critères standard prédéfinis.

Continue reading ‘EXCEL : mettre en évidence les doublons avec les formats conditionnels’ »