Discussion :

[Eccle]

Bonjour,

Je souhaite trouver une solution VBA pour résoudre mon problème : Additionner des données chiffrés si la première colonne contient la même information. C'est pas très clair je sais alors ... petit exemple :

Colonne A Colonne B Colonne C
JOJO 4 7
DAMIEN 2 1
LUC 6 4
JOJO 3 2
ROUDOUDOU 1 7

Je souhaite que lorsque la colonne A contienne le nom "JOJO", les données de la colonne B et de la colonne C s'additionnent soit : 4 + 7 + 3 + 2. Tout ça en valeur absolu.

Le must serait que les donnés puissent ressortir sur une autre feuille Excel avec une seule ligne JOJO et une seule colonne avec les chiffrés additionnés, ici : 16.

J'ai cherché sur le net et sur ce forum, mais je n'ai pas trouvé, et évidemment je suis novice en VBA. J'ai déjà bien galérer aujourd'hui, là ça me dépasse complètement.

Merci d'avance pour ceux qui m'aideront.

[jfontaine]

Bonjour,

Une solution en utilisant la formule Somme.Si en VBA

Ici on retourne dans un msgbox la somme des colonnes B et C si dans A on trouve TOTO

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MsgBox Application.WorksheetFunction.SumIf(Range("A:A"), "TOTO", Range("B:B")) _
    + Application.WorksheetFunction.SumIf(Range("A:A"), "TOTO", Range("C:C"))

[Eccle]

Yeah merci ! Mais comment faire pour que le résultat s'affiche sur une nouvelle feuille et non une MsgBox ?

[jfontaine]

Comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
sub CalculSomme()
Dim strNom as String
 
strNom = "TOTO"
 
Sheets("Feuil3").Range("A1").value = strNom
Sheets("Feuil3").Range("B1").value = Application.WorksheetFunction.SumIf(Range("A:A"), strNom, Range("B:B")) _
    + Application.WorksheetFunction.SumIf(Range("A:A"), strNom, Range("C:C"))
End Sub

[Eccle]

Grand merci.

Bonjour,

J'ai essayé de remettre la formule à ma convenance sans venir vous dérangez, mais malheureusement je n'y arrive pas

Est-il possible d'utiliser cette formule VBA pour toutes les cellules en ("A:A") ? Pas juste pour "TOTO" mai pour tous : "TOTO", "JOJO", "DAMIEN" etc

Et donc que cela ressorte en :

"TOTO" --> Total
"JOJO" --> Total

[hunteshiva]

une petite boucle For devrait suffir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub CalculSomme()
 
    ' Déclaration des variables
    Dim strNom(2) As String
    Dim i As Integer
 
    ' Ajout de tous les noms
    strNom(0) = "TOTO"
    strNom(1) = "JOJO"
    strNom(2) = "DAMIEN"
    'etc.
 
    'Calcul de la somme pour chaque client
    For i = 0 To 2
        ' par contre ici ça ne marche pas, tu remplie toujours les cases A1 et B1 de la feuille 3
        Sheets("Feuil3").Range("A1").Value = strNom(i)
        Sheets("Feuil3").Range("B1").Value = Application.WorksheetFunction.SumIf(Range("A:A"), strNom(i), Range("B:B")) _
                                           + Application.WorksheetFunction.SumIf(Range("A:A"), strNom(i), Range("C:C"))
    Next
 
End Sub

essaye de corriger l'erreur que je t'ai laissé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'idée mais pas sur, a toi de tester
Sheets("Feuil3").Range("A" & i)

Bonne continuation

[jfontaine]

j'ai adapté mon précédent code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub CalculSomme()
Dim strNom As String
Dim iSource As Long
Dim iDest As Long
Dim Rg As Range
Dim shDest As Worksheet
 
Set shDest = Sheets("Feuil3")
iDest = 1
 
For iSource = 1 To Range("A65356").End(xlUp).Row
    strNom = Range("A" & iSource).Value
 
    'recherche si nom deja dans la liste destinataire
    Set Rg = shDest.Range("A:A").Find(strNom)
 
    If Rg Is Nothing Then
        shDest.Range("A" & iDest).Value = strNom
        shDest.Range("B" & iDest).Value = Application.WorksheetFunction.SumIf(Range("A:A"), strNom, Range("B:B")) _
            + Application.WorksheetFunction.SumIf(Range("A:A"), strNom, Range("C:C"))
 
        iDest = iDest + 1
    End If
 
Next iSource
 
End Sub