Somme.si en VBA

Version imprimable

Somme.si en VBA

Bonjour à tous!

J'ai une fonction Somme.si et je compte la transformer en code VBA
La fonction est la suivante I2=SOMME.SI('Rbt CCP'!E:E;'List Al Ech'!A2;'Rbt CCP'!C:C)

Je veux calculer la somme des remboursements CCP (à partir de la feuille Rbt CCP) pour chaque client, la liste des CIN des clients ce trouve dans la feuille List Al Ech dans la case A, et je veux copier le résultat dans la colonne I de List Al Ech

J'ai trouvé la fonction SUMIF mais j'ai pas su comment l'utiliser donc j'ai écris ce code avec FIND :

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
Sub Macro3()
 
0
 
    Dim CIN As Long
    Dim TotalRbtCcp As Double
    Dim nb_lignes As Long
    Dim numero_ligne As Long
 
    Sheets("List Al Ech").Select
 
    nb_lignes = WorksheetFunction.CountA(Range("A:A"))
 
 
    For i = 2 To nb_lignes
        numero_ligne = i
 
        If numero_ligne >= 2 And numero_ligne <= nb_lignes Then
            CIN = Cells(numero_ligne, 1)
            TotalRbtCcp = 0
 
            Dim Found As Range
            Dim Indice As Long
            MsgBox TotalRbtCcp
 
            With Worksheets("Rbt CCP")
                 Set Found = .Range("F2:F12000").Find(CIN, LookIn:=xlValues, LookAt:=xlWhole)
                    If Not Found Is Nothing Then
                        Indice = Found.Row
                        TotalRbtCcp = TotalRbtCcp + Cells(Indice, 2)
                        MsgBox TotalRbtCcp
                    End If
 
            End With
            Cells(numero_ligne, 9) = TotalRbtCcp
        End If
    Next
 
End Sub

Bon ça n'a pas marché bien évidemment :oops:

HELP!!

01/07/2015, 16h18
PierrotMfff

Bonjour

Bonjour, attention à ne pas réinventer la roue!

Les fonctions Excel ont leur équivalent en VBA:
Ecris Worksheet.function. dans ton éditeur VBA, et tu as accès à ces fonctions.
Dans ton cas c'est SUMIF.

Bonne journée ;)

EDIT: En plus je viens de voir que tu utilisais déjà worksheetfunction dans ta procédure... :roll:
01/07/2015, 16h20
antonysansh

Bonjour roscos,

J'ai moi aussi parfois l'envie de mettre une formule dans une cellule en VB.
Comme je ne connais pas les fonctions en VB et que je n'ai pas envie de les apprendre, j'utilise l'enregistreur de macro.

Je me place sur ma cellule -> je lance l'enregistreur de macro -> touche F2 -> Entrer -> je coupe l'enregistrement de la macro.
Dans la macro qui vient d'être créée, Magie j'ai la syntaxe ! ;)

Je te conseil de lire ce Tuto. Il est vraiment top !!!

Bon j'ai essayé avec SUMIF :
Code:

1 2 3 With Worksheets("Rbt CCP") TotalRbtCcp = WorksheetFunction.SumIf(Range("E2:E"), "=CIN", Range("C2:C")) End With
Je reçois l'erreur 1004 : la méthode "Range" de l'objet "_global" a échoué

02/07/2015, 13h31
antonysansh

Dans Range("E2:E"), il manque un bout.
C’est "E:E" pour toute la colonne E et "E2:E10" pour par exemple avoir de la ligne 2 à 10 sur la colonne E.

Ah oui vous avez raison! Merci

Maintenant j'ai modifié le code y a pas d'erreurs mais ça donne pas de resultat! TotalRbtCcp reçoit 0

Voici le code en entier

Code:

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
28
29
30
31
32
33
34
Sub Macro3()
 
    Dim CIN As Long
    Dim TotalRbtCcp As Double
    Dim nb_lignes As Long
    Dim numero_ligne As Long
 
    Sheets("List Al Ech").Select
 
    nb_lignes = WorksheetFunction.CountA(Range("A:A"))
    'MsgBox nb_lignes
 
    For i = 2 To 20 'nb_lignes
        numero_ligne = i
        'MsgBox numero_ligne
        If numero_ligne >= 2 And numero_ligne <= nb_lignes Then
            CIN = Cells(numero_ligne, 1)
            TotalRbtCcp = 0
            'MsgBox CIN
            Dim Found As Range
            Dim Indice As Long
 
 
 
            With Worksheets("Rbt CCP")
                'MsgBox CIN
                TotalRbtCcp = WorksheetFunction.SumIf(Range("E2:E12000"), "= CIN", Range("C2:C12000"))
                MsgBox TotalRbtCcp
                Cells(numero_ligne, 9) = TotalRbtCcp
            End With
        End If
    Next
 
End Sub