Sujet Précédent Sujet Suivant

Conciliation bancaire - doublons améliorés

cs_seb_abellano Messages postés 2 Date d'inscription mardi 18 septembre 2007 Statut Membre Dernière intervention 28 mai 2008 - 27 mai 2008 à 00:27
cs_seb_abellano Messages postés 2 Date d'inscription mardi 18 septembre 2007 Statut Membre Dernière intervention 28 mai 2008 - 28 mai 2008 à 13:23
Bonjour tout le monde,

j'aimerai effectuer une macro sous excel pour effectuer une conciliation bancaire, en fait il s'agirait ni plus ni moins de trouver les doublons mais en l'amélirant un peu (et c'est la ou je coince).

Je m'explique:

j'ai 3 colonnes disons colonne E, F et J: la colonne E  est la liste de paiments effectués, la colonne F est celle des paiements reçus et la colonne J la colonne de comptabilité qui regroupe "normalement" les 2 premières colonnes.

Je vous copie la macro que j'ai effectuée:

Sub Essai()

Dim rngA As Range
Dim rngB As Range

  Set rngE = Range(Cells(3, "E"), Cells(Rows.Count, "E").End(xlUp))
  Set rngJ = Range(Cells(3, "J"), Cells(Rows.Count, "J").End(xlUp))
  Set rngF = Range(Cells(3, "F"), Cells(Rows.Count, "F").End(xlUp))

For Each cell In rngE
    If Not IsError(Application.Match(cell.Value, rngJ, 0)) Then
      Cells(cell.Row, "E").Interior.ColorIndex = 4
     
    End If
Next

For Each cell In rngJ
    If Not IsError(Application.Match(cell.Value, rngE, 0)) Then
      Cells(cell.Row, "J").Interior.ColorIndex = 4
   
    End If

Next

For Each cell In rngF
    If Not IsError(Application.Match(cell.Value, rngJ, 0)) Then
      Cells(cell.Row, "F").Interior.ColorIndex = 4
     
    End If
Next

For Each cell In rngJ
    If Not IsError(Application.Match(cell.Value, rngF, 0)) Then
      Cells(cell.Row, "J").Interior.ColorIndex = 4
     
    End If

Next

End Sub

Le problème avec cette macro c'est que je colorie tous les doublons. et mon but serait de trouver seulement les doublons uniques.

voilà ce que j'obtiens avec ma macro:

<col style =\"width: 102pt;\" width=\"136\" /><col style=\"width: 85pt;\" width=\"113\" /><col style=\"width: 65pt;\" width=\"86\" />----
Paiements
effectués, Paiements reçus, comptabilité, ----
100, 200, 200, ----
200, 400, 300, ----
300, 500, 400, ----
1000,  122, 1000, ----
 122,  , 600, ----
 ,  , 300

En fait j'aimerai avoir ceci:

<col style=\"width: 102pt;\" width=\"136\" /><col style=\"width: 85pt;\" width=\"113\" /><col style=\"width: 65pt;\" width=\"86\" />----
Paiements
effectués, Paiements reçus, comptabilité, ----
100, 200, 200, ----
200, 400, 300, ----
300, 500, 400, ----
1000,  122, 1000, ----
 122,  , 600, ----
 ,  , 300

Quand un même nombre est trouvé plus que 2 fois colorier la cellule en rouge (à vérifier conilier manuellement)
Quand un nombre est trouvé 1 seule fois entre la colonne 3 et 1 ou 3 et 2 colorier en vert (conciliation automatique)
Quand un nombre est trouvé 1 seule fois entre la colonne 1 et 2 (sans apparaitre dans colonne 3 sinon on se retrouve dans le premier cas ) colorier en bleu.

Je suis vraiment bloqué avce cette macro si quelqu'un pouvait me donner au moins une piste, je crois que je m'y prends mal... mais j'ai vraiment besoin de cette macro car j'ai des milliers de lignes a traiter chaque mois et cela prend un temps fou!!

j'espère avoir été assez clair

Merci par avance de votre aide !!!

seb

1 réponse

Réponse 1 / 1
cs_seb_abellano Messages postés 2 Date d'inscription mardi 18 septembre 2007 Statut Membre Dernière intervention 28 mai 2008
28 mai 2008 à 13:23
personne ne peux m'aider ??
0

Discussions similaires

Algorithme de vérification RIB (24 chiffres / maroc)
aedc -
ucfoutu -

5 réponses
Script php de vérification numéro carte bancaire
pihkawi -
elriri35 -

4 réponses
comment supprimer les doublons dans ma table
msi79 -
msi79 -

2 réponses
Suppression de doublon....
cs_Ry_Yo -
rvblog -

11 réponses
Supprimer un doublon dans une requetes avec une fonction
Zachs -
SQLpro -

2 réponses
Rejoignez-nous