Somme de deux colonnes et égalité entre elles
Résolu
lili4915
Messages postés
13
Statut
Membre
-
lili4915 Messages postés 13 Statut Membre -
lili4915 Messages postés 13 Statut Membre -
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 ?
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:
- Somme de deux colonnes et égalité entre elles
- Comment faire deux colonnes sur word - Guide
- Nombre de jours entre deux dates excel - Guide
- Formule somme excel colonne - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Inverser deux colonnes excel - Guide
2 réponses
Bonjour,
Quelqu'un pourra peut-être t'aider si tu montres ce que tu as fait comme tentatives de résolution.
Quelqu'un pourra peut-être t'aider si tu montres ce que tu as fait comme tentatives de résolution.
Bonjour
En supposant qu'en colonnes F et G il y a le même nombre de lignes à sommer
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
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
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