Faire du lettrage de mes comptes

Bonjour

J'ai des écritures sur mes comptes que j'ai extrais sous excel ensuite j'ai utilisé la fct recherchev pour faire le lettrage mais je souhaiterais savoir s'il possible d'utiliser une autre solution qui m'aiderais à détecter les ecritures sans contrepartie.

Merci

Bonsoir et bonne année !

Avec un petit fichier joint... Ne serait-ce pas mieux ou plus clair ? Merci

@ bientôt

LouReeD

je joins juste un fichier afin que vous puissiez m'aider

puybareau a écrit :

je joins juste un fichier afin que vous puissiez m'aider

Bonjour,

Pour passer de l'intention ... à la réalisation

Pour joindre un fichier ... la video youtube ...

EbNYLzTz5wM

Bonjour

Bonjour,

Voici une solution (mettre les 2 macro dans le même module puis lancer la macro "rapprochement".

En colonne G un lettrage permet le rapprochement et en colonne F est indiquée la ligne rapprochée.

les lignes qui n'ont aucune indication sont celles qui n'ont aucune contrepartie.

Nota : Seuls les montants identiques sont rapprochés... Les regroupements ne sont pas gérés.

Option Explicit
Sub rapprochement()
Dim i%, k%, kk%, X%, Srap$, ideb#, icre#, tablo
i = Cells(Rows.Count, 1).End(xlUp)(2).Row
tablo = Range("A1:H" & i)
X = 0
For k = 2 To i - 1
   ideb = IIf(tablo(k, 3) <> "", tablo(k, 3), 0)
   If ideb > 0 Then
   For kk = 2 To i
      If tablo(kk, 7) = "" Then
         If tablo(kk, 4) = ideb Then
               X = X + 1
               Srap = RAPX(X + 1)
               Cells(k, 7) = Srap: Cells(k, 8) = kk: tablo(k, 7) = Srap
               Cells(kk, 7) = Srap: Cells(kk, 8) = k: tablo(kk, 7) = Srap
               Exit For
         End If
      End If
   Next
   End If
Next
For k = 2 To i - 1
If tablo(k, 7) = "" Then
   icre = IIf(tablo(k, 4) <> "", tablo(k, 4), 0)
   If icre > 0 Then
   For kk = 2 To i
      If tablo(kk, 7) = "" Then
         If tablo(kk, 3) = icre Then
               X = X + 1
               Srap = RAPX(X + 1)
               Cells(k, 7) = Srap: Cells(k, 8) = kk: tablo(k, 7) = Srap
               Cells(kk, 7) = Srap: Cells(kk, 8) = k: tablo(kk, 7) = Srap
               Exit For
         End If
      End If
   Next
   End If
End If
Next
End Sub
Function RAPX(ByVal X&) As String
Dim i&, j&, k&, N&, l&
X = X - 1
N = Int(X / 17576)
l = N * 17576
i = Int((X - l) / 676)
j = i * 676
k = Int((X - j - l) / 26)
RAPX = Chr$(65 + N) & Chr$(65 + i) & Chr$(65 + k) & Chr$(65 + X - l - j - k * 26)
End Function

A+

Merci galopin01

je suis vraiment content mais sauf mauvaise manip de ma part mais une erreure dans l'execution de la macro au niveau

If tablo(kk, 7) = "" Then

Pouvez vous executer le code dans un fichier excel et me le transmettre svp

compte beaucoup sur vous

Voir fichier joint.

Nota : C'est du code sous 2010, si encore erreur préciser le message d'erreur exact.

A+

effectivement car moi j'utilise la version 2007

serait il applicable?

YAKA essayer : Tu risques rien ! ça mord pas.

C'est vrai ca ne mort pas mais ca ne coute rien aussi de demander oubienn?

je click sur le boutton mais pas de resultat.

Sans oublié que j'ai activé le contenu des macros

que dois je faire now merci pour tout Galopin01

Tu l'as mis dans ton répertoire Excel habituel ?

j'ai juste telechargé ton fichier CPT_VG

que j ai juste ouvert avec ensuite aller executer la macro qui est derrière le boutton ?

j ai pas de changement dans le fichier sauf erreur de ma part

Cordialement

Il faut mettre le fichier dans ton dossier Excel habituel. avant de le lancer.

Si tu es dans ton répertoire de travail Excel habituel, va voir dans VBA.

Dans le menu VBA Outils > Référence regarde voir ce qui est coché et ce qui est déclaré manquant (dans les premières lignes). Il se peut que tu aies peut-être :

MANQUANT : Microsoft Office 14.0 Object Library

Dans ce cas tu cherches dans la liste ce que tu as de plus voisin et tu le coches.

par exemple :

Microsoft Office 12 Object Library

En vérifiant bien que ça reste coché (des fois c'est difficile de le cocher...

A+

Tu peux aussi chercher à exécuter la macro via l'onglet Développeur > Macro exécuter "rapprochement"

Il y a aussi la possibilité que tu sois victime du bug des mise à jour Microsoft de décembre...

voir ce fil

cherche et supprime les fichier*.exd

Normalement il n'y a pas de raison que cette macro ne fonctionne pas au quart de tour...

A+

Bonjour à tous,

Techniquement, le lettrage, à la différence d'une simple réconciliation, doit permettre le regroupement de n écritures pour reconstituer un montant donné ...

Je ne sais si tu te trouves dans cette configuration ...

Si, c'est le cas, tu peux parcourir les multiples fils à ce sujet dans le Forum ...

A titre d'exemple: https://forum.excel-pratique.com/excel/lettrage-automatique-dans-excel-t56946.html

Bon Courage pour la suite ...

Bonsoir,

Revoir mes 2 dernières réponses pour les problèmes de non exécution de macro...

A+

Bonjour

Effectivement JAMES,GALOPIN01 c'est le soucis que j'ai actuellment je dois faire correspondre le montant du debit au celui du credit.

En clair Il faudrait lettrer les débits et les crédits dès lors que les montants sont identiques.

mais il y'a souvent des sommes qui correspodent a une seule operation au credit ou soit au debit.

Apres extraction des mouvements passés sur ce comptes a partir de ma database j'aimerais appliquer le code ou la formule pour aller plus rapidement .

si possible impoter le fichier excel en sortie dans une petite application si possible.

merci d'avance pour vos efforts

bonjour

Suite a vos explications et modèles, j'ai pu avoir finaliser cette taches.

Merci beaucoup

je voudrais demander s'il y avait un logiciel qui fais cette taches?

A+

Comment marquer ce sur sujet comme RESOLU?