lettrage et analyse comptable

[malek-farid]

Pour mon analyse comptable une macro a etait réaliser que me fasse ressortir une analyse de compte entre la colonne DEBIT ET CREDIT qui ont un montant identique avec des critères E_ENR , CODE_CG, CODE_AT, DEBIT , CREDIT

ub test2()

selecvaleur2.Show

If CStr(donnee(LBound(donnee))) = "" Then Exit Sub ' si pas de donnée on sort
data1 = CStr(donnee(LBound(donnee)))
data2 = CStr(donnee(LBound(donnee) + 1))
With Sheets("Feuil1")
.Range("L2:L65536").ClearContents
.Range("A2:K65536").ClearContents
If .Range("A65536").End(xlUp).Row > 2 Then .Range("A2:K" & .Range("A65536").End(xlUp).Row).ClearContents
'ligne = 2
End With

tablo = Range("A2:K" & Range("A65536").End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1) - 1

For m = n + 1 To UBound(tablo, 1)

If tablo(n, 4) & tablo(n, 5) & tablo(n, 10) = tablo(m, 4) & tablo(m, 5) & tablo(m, 11) Then
If tablo(n, 10) <> 0 And tablo(m, 11) <> 0 Then
Range("L" & n + 1) = "X"
Range("L" & m + 1) = "X"
End If
End If
Next m

Next n

For n = 2 To Range("A65536").End(xlUp).Row
If Range("L" & n) = "" Then
Range("A" & n & ":K" & n).Copy Destination:=Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0)
End If
Next n
Sheets("Feuil1").Select
End Sub

la répond a ma demande est bonne mes la sélection du compte doit me donnée le résultat que les comptes qui me répond pas au critère

La macro test me donne les comptes qui ne sont pas lettrée
La macro test2 me donne le comptes sélectionner lettres

Je voudrais lors de l'exécution de la macro me donne le X devant chaque comptes lettrée et sur l'autre feuil me face resortire le compte selectioner qui n'est pas lettrée

merci de voutre aide

 

[Risleure]

Re : lettrage et analyse comptable

Bonjour malek-farid, le Forum

Un début de réponse Lien supprimé

A+

 

[malek-farid]

Re : lettrage et analyse comptable

Bonjour malek-farid, le Forum

Un début de réponse Lien supprimé

A+

ma demande et claire la macro qui ma etait proposer ne repond pas a ma demande

ma demande est une aide a sa modifiction pour obtenire un resultat

mercie