Division en VBA

Sub diff()

a = Worbooks("test.xlsx").worksheets("Feuil1).Range("E3").Value
b = Worbooks("test2.xlsx").worksheets("Feuil1).Range("E2").value

If ((a - b) / 1000000) = ThisWorkbook.Worksheets("Feuil1").Range.Value Then

ThisWorkbook.Worksheets("Feuil1").Range("F2").Value = "OK" Then
Else
ThisWorkbook.Worksheets("Feuil1").Range("F2").Value ="KO"   Then

End Sub

Bonjour ,

Je souhaite effectuer une division de 2 valeurs de cellules ((a-b)/(10^6) ,je divise par 10^6 pour obtenir un resultat par million

par exemple si mon résultat (a-b) etait 250000000 cela fait 250 par million donc je veux qu'il s'affiche 250,00 dans la cellule et ensuite faire une comparaison avec la valeur obtenu dans une autre cellule .

J'ai donc poser cette macro .

Mais je n'obtiens pas le resultat obtenu j'ai un message d'erreur dépassement de capacité .

J'ai vraiment besoin d'aide

Cordialement ,

Bonjour,

Votre code est incomplet on y comprend pas bien grand chose, je suppose que la macro s'éxecute à partir du classeur 3. Par contre vous dites de renseigner 250, mais vous lui dites d'afficher OK ou KO ... Je ne comprends pas désolé. Cependant un test à adapter où je n'ai pas de message d'erreur avec les données à dispo :

Sub DIFFERENCE()
Dim a As Double, b As Double
a = Workbooks("test.xlsx").Worksheets("Feuil1").Range("E3").Value
b = Workbooks("test2.xlsx").Worksheets("Feuil1").Range("E2").Value
If ((a - b) / 1000000) = ThisWorkbook.Worksheets("Feuil1").Range("E3").Value Then
    MsgBox ((a - b) / 1000000)
    ThisWorkbook.Worksheets("Feuil1").Range("F2").Value = "OK"
    Else
    MsgBox ((a - b) / 1000000)
    ThisWorkbook.Worksheets("Feuil1").Range("F2").Value = "KO"
End If
End Sub

Cdlt,

Merci pour ton retour,

toujours efficace !Problème résolu !

Cordialement