Lettage avec deux conditions

Version imprimable

06/11/2019, 23h20
FanSu

1 pièce(s) jointe(s)

Lettage avec deux conditions

Bonsoir,

Merci par avance de l'aide que vous pourrez m'apporter sur ce sujet de réflexion VBA .

J’aurais besoin d' une macro qui puisse me lettrer des écritures et identifier celles qui se lettrent.

Pour cela je souhaite pour chaque ligne vérifier s'il existe une ligne ou plusieurs lignes Montant en - avec Une autre Ligne Montant en + dans la même colonne et leur total soit égal à 0. A condition que les deux lignes doivent avoir le même OP(Colonne E) ou/et le même Code FR (Colonne F).

- Si les écritures lettrées ont le même Code FR et même OP je veut que l'Observation(Colonne J) soit rempli par un indicateur de lettrage (AAA,AAB ,...).
- Si les écritures lettrées ont l'une des colonnes E ou F différente Soit OP et Code FR différent, je veut que l'Observation (Colonne J) soit rempli par un autre indicateur de lettrage.

Je mettrais en pièce jointe un extrait de mon fichier et Je vous remercie d'avance pour vs réponses et vs efforts.
07/11/2019, 08h48
anasecu

Bonjour,

Citation:

Envoyé par FanSu

Merci par avance de l'aide que vous pourrez m'apporter sur ce sujet de réflexion VBA

Pourquoi en VBA ?
Je pense que tu devrais regarder à ce sujet l'aide Microsoft Pour lettrer des écritures comptables
07/11/2019, 09h00
BENNASR

Bonjour la forum, sbeh el khir FanSu
Je comprends pas comment une facture du fournisseur X soit réglée par le fournisseur Y (cas : OP3773/17 facturée au nom du fournisseur 4255 et réglée par fournisseur 1108) !!
Aussi je crois que tu peux faire simple et tu insère un tableau croisée dynamique avec en ligne le code fournisseur , le code OP, le libellé de l'opération et en valeur les montants et comme ça tu aura ce que tu veux sans VBA . Il suffit d'intéresser au fournisseur ayant un solde différent de zéro
Bonne Continuation
07/11/2019, 20h27
FanSu

Citation:

Envoyé par anasecu

Bonjour,

Pourquoi en VBA ?
Je pense que tu devrais regarder à ce sujet l'aide Microsoft Pour lettrer des écritures comptables

Je pense que c'est e seul qui me permettra cette action sachant que j'ai des milliers de lignes à lettrées.
07/11/2019, 20h38
FanSu

Citation:

Envoyé par BENNASR

Bonjour la forum, sbeh el khir FanSu
Je comprends pas comment une facture du fournisseur X soit réglée par le fournisseur Y (cas : OP3773/17 facturée au nom du fournisseur 4255 et réglée par fournisseur 1108) !!
Aussi je crois que tu peux faire simple et tu insère un tableau croisée dynamique avec en ligne le code fournisseur , le code OP, le libellé de l'opération et en valeur les montants et comme ça tu aura ce que tu veux sans VBA . Il suffit d'intéresser au fournisseur ayant un solde différent de zéro
Bonne Continuation

Bonsoir BENNASR,

Je te remercie tout d'abord pour ton intérêt.

Pour le cas que tu as évoqué, il s'agit d'une erreur de saisie, la personne qui a enregistré l'écriture elle s'est trompée sur le code FR.
Certes avec le TCD on peut l'utilisé pour réalisé le lettrage d’ailleurs c'est ce que je fais d’habitude mais je pense qu'avec une requête ça sera plus facile.

Merci ;).
07/11/2019, 21h45
anasecu

1 pièce(s) jointe(s)

Bonsoir,

Citation:

Envoyé par FanSu

Je pense que c'est e seul qui me permettra cette action sachant que j'ai des milliers de lignes à lettrées.

Je veux bien que ce soit fait en VBA mais si tu as regardé mon lien Microsoft, cela fait partie des fonctions déjà offertes par excel alors pourquoi le ré-écrire ?

Je pense qu'avec cette formule dans la colonne observation tu obtiens ton lettrage

Code:

=SI(SOMMEPROD(($E$6:$E$13=E6)*($F$6:$F$13=F6)*$D$6:$D$13)=0;"AAA";SOMMEPROD(($E$6:$E$13=E6)*($F$6:$F$13=F6)*$D$6:$D$13))

il faut bien sûr adapter les plages à celles de ton classeur avec des milliers de lignes.
08/11/2019, 23h20
FanSu

Bonsoir,

Oui j'ai essayé avec ta formule et ça a marché, juste que le code va se répéter pour toutes les écritures lettrées.
N'y a-t-il pas une possibilité de le rendre comme une série (la 1ère écriture aura comme code AAA, la 2 ème AAB, la 3 ème AAC...) ?

Merci.

1 pièce(s) jointe(s)

Bonjour,

Citation:

Envoyé par FanSu

Y a t-il pas une possibilité de le rendre comme une série ( la 1 ère écriture aura comme code AAA, la 2 ème AAB, la 3 ème AAC...) ?

Je ne suis pas comptable mais quel est l'intérêt d'avoir une série ?

Dans ce cas, cela est difficilement envisageable en formule et donc je t'ai fait la macro pour l'obtenir :

Code:

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Option Explicit
'-----------------------------------------------------------------------
Public Sub lettrer()
'------------------ paramètres à adapter -------------------------------
Const ldb = 6       ' ligne début tableau
Const cOP = "E"     ' colonne OP
Const cFR = "F"     ' colonne FR
Const cMt = "D"     ' colonne montant
Const crs = "J"     ' colonne lettrage
'-----------------------------------------------------------------------
Dim lig As Long     ' ligne traitée
Dim dic             ' dictionnaire données
Dim mof As String   ' mixte OP / FR
Dim tOP, tFR, tMt   ' tables données
Dim tdk             ' table clés écritures
With ActiveSheet    ' feuille >- tables
    lig = .Cells(.Rows.Count, cOP).End(xlUp).Row + 1
    tOP = .Cells(ldb, cOP).Resize(lig - ldb, 1).Value
    tFR = .Cells(ldb, cFR).Resize(lig - ldb, 1).Value
    tMt = .Cells(ldb, cMt).Resize(lig - ldb, 1).Value
    ReDim trs(1 To UBound(tOP))
    Set dic = CreateObject("Scripting.Dictionary")
    dic.RemoveAll
    For lig = 1 To UBound(tOP)  ' agglomérations valeurs
        mof = tOP(lig, 1) & "|" & tFR(lig, 1)
        If dic.Exists(mof) Then
            dic(mof) = dic(mof) + tMt(lig, 1)
        Else
            dic.Add mof, tMt(lig, 1)
        End If
    Next lig
    tdk = dic.keys: ReDim t_l(1 To 4)   ' lettrage
    For lig = 1 To UBound(tdk)
        If dic(tdk(lig)) = 0 Then dic(tdk(lig)) = d_lettre(t_l)
    Next lig
    For lig = 1 To UBound(tOP)          ' affectation lettrage
        mof = tOP(lig, 1) & "|" & tFR(lig, 1): trs(lig) = dic(mof)
    Next lig
    .Cells(ldb, crs).Resize(UBound(trs), 1).Value = Application.Transpose(trs)
End With
End Sub
'-----------------------------------------------------------------------
Public Function d_lettre(tbl)   ' génération du lettrage
Dim idx As Integer, plu As Integer
    For idx = 1 To UBound(tbl): d_lettre = d_lettre & Chr(tbl(idx) + 65): Next
    plu = 1
    For idx = UBound(tbl) To 1 Step -1
        If tbl(idx) < 25 Then: tbl(idx) = tbl(idx) + plu: Exit For: Else: tbl(idx) = 0
    Next
End Function
'-----------------------------------------------------------------------

Tu peux lancer ton lettrage sur ton classeur joint avec le bouton "Lettrer"
Le module "Lettrage" peux être ramené dans ton classeur réel en adaptant éventuellement le paramétrage des lignes et colonnes.
Bons tests et bon dimanche.

13/11/2019, 00h20
FanSu

Bonsoir,

Tout d'abord, Je te remercie énormément.

Par rapport à l’intérêt de la série, elle nous permet de tracer les mêmes écritures lettrés, en cas de vérif.

Merciii.
13/11/2019, 07h55
anasecu

Bonjour et merci du retour.

Dois-je en conclure que tu as bien réussi à intégrer la macro dans ton classeur de travail ?
14/11/2019, 22h41
FanSu

Citation:

Envoyé par anasecu

Bonjour et merci du retour.

Dois-je en conclure que tu as bien réussi à intégrer la macro dans ton classeur de travail ?

Bonsoir,

Oui.

Merci.