Creer Macro pour comparer les montants

Bonjour,

Je souhaiterai creer un controle quotidien dans un nouvel classeur pour comparer les montants sur 3 comptes issus de 2 sources de donnees (donc de 2 autres classeurs).

Je debute sur VBA, j’ai un peu du mal a concevoir la macro. Si quelqu’un peut me donner des pistes, merci 😊

1. Fichier X-1ere source de donnee

Dans ce fichier, j'ai des onglets classes par date (dans l’ordre croissant) .

Ex : onglet 27/11

compte LO montant1

compte CG montant2

compte GY montant3

2. Fichier Y-2eme source de donnee

Dans ce fichier, j'ai juste un onglet sheet1.

Pb1 : les comptes LO, CG, GY ecrits precedemment avec des abrevations ne le sont plus ici.

LO =LO..

CG=CG..

GY=GY..

Pb2: dans ce fichier, les mouvements de cash sur ces comptes sont indiqués. Du coup, j'aimerai juste recuperer les derniers montants indiques en fin de page.

3. Classeur Controle

J'aimerai qu'a l’aide d'un bouton, je lance le contrôle :

OK si la difference est nulle entre montant source1 et source2 pour chaque compte

KO si la difference est non nulle entre montant source1 et source2 our chaque compte

Merci,

Bonjour,

Je suis sure que t'aurais déjà eu une réponse si tu avais joint ton fichier.

Si tu peux pas (question de confidentialité) fais un fichier "exemple".

C'est toujours utile pour mieux comprendre les choses.

Bonne journée.

Mus.

voici

Bonjour,

Cela correspond à ta demande ?

Sub crtl()
Set wb1 = Workbooks("Test 1.xlsm").Sheets(1)
Set wb2 = Workbooks("Test 2.xlsm").Sheets(1)

last_col = wb1.Cells(2, Columns.Count).End(xlToLeft).Column

lo1 = wb1.Cells(3, last_col)
cg1 = wb1.Cells(4, last_col)
gy1 = wb1.Cells(5, last_col)

lo2 = wb2.Cells(23, "b")
cg2 = wb2.Cells(24, "b")
gy2 = wb2.Cells(25, "b")

If lo1 = lo2 And cg1 = cg2 And gy1 = gy2 Then
    MsgBox ("Contrôle OK")
Else
    MsgBox ("Contrôle KO")
End If

End Sub

bonjour,

Merci beaucoup ! Ca marche.

Lorsque le controle est Ok ou KO, est-ce qu'on peu afficher dans la feuille pour chaque compte la difference entre test1 et test2

LO = difference ( test1-test2)

CG = difference ( test1-test2)

GY = difference ( test1-test2)

Merci encore pour ton aide

Voici

merci beaucoup !