Somme de deux colonnes et égalité entre ellesRésolu/Fermé

Question

Bonjour,

Je souhaite créer un programme simple qui consiste à sommer deux colonnes (F et G) et afficher un message qui indique si les sommes des deux colonnes sont égales ou non

Petites précisions, le calcul de somme doit commencer à la ligne 2 et se terminer à la fin du tableau soit lorsque la ligne testée est vide. Il se peut que la différence entre les deux soit minime (au delà du 5ème chiffre après la virgule) et je souhaiterais que le programme ne la prenne pas en compte 

Pouvez-vous m'aider ?

Chris 94 · Answer

Bonjour,

Quelqu'un pourra peut-être t'aider si tu montres ce que tu as fait comme tentatives de résolution.

ccm81 · Answer

Bonjour

En supposant qu'en colonnes F et G il y a le même nombre de lignes à sommer

Option Explicit

Const lideb = 2

Sub Test()
Dim lifin As Long
Dim SomF As Double, somG As Double
With ActiveSheet
  lifin = .Range("F" & Rows.Count).End(xlUp).Row
  SomF = Application.WorksheetFunction.Sum(Range("F" & lideb & ":F" & lifin))
  somG = Application.WorksheetFunction.Sum(Range("G" & lideb & ":G" & lifin))
  If SomF = somG Then
      MsgBox ("Equilibre vérifié")
  Else
      MsgBox ("Equilibre non vérifié")
  End If
End With
End Sub
Cdlmnt

RQ. Utilises la coloration syntaxique pour montrer  tes programmes (l'icone flèche en bas en haut à droite de la fenêtre d'édition)

Cdlmnt

Somme de deux colonnes et égalité entre elles

2 réponses

Discussions similaires

Newsletters