Somme de deux colonnes et égalité entre elles

Résolu
lili4915 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   -  
lili4915 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention   -
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 ?
A voir également:

2 réponses

Réponse 1 / 2
Chris 94 Messages postés 54087 Date d'inscription   Statut Modérateur Dernière intervention   7 345
 
Bonjour,

Quelqu'un pourra peut-être t'aider si tu montres ce que tu as fait comme tentatives de résolution.
0
lili4915 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
Voici ce que j'ai fait en recherchant des informations sur le forum, mais cela ne marche pas : 

Const lideb = 2

Sub Test()
Dim li As Long
li = lideb
With ActiveSheet
    While .Range("F" & li).Value <> ""
        If Application.Sum(Range("F" & li).EntireColumn = Application.Sum(Range("G" & li).EntireColumn) Then msgbox ("Equilibre vérifié")
    li = li + 1
    Wend
End With
MsgBox ("Equilibre non vérifié")
End Sub
0
Réponse 2 / 2
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
0
lili4915 Messages postés 13 Date d'inscription   Statut Membre Dernière intervention  
 
Merci beaucoup !
J'y penserai la prochaine fois

Bonne fin d'après-midi
0

Discussions similaires

somme.si.ens critere entre deux dates
texas4229 -
Ariel7 -

11 réponses