Somme d'une cellule sur deux dans une plage ?

**[ZiP]** · 26/02/2010, 15h41

Bonjour,

J'ai une colonne qui contient deux types d'information, une fois sur deux.

Je voudrais pouvoir faire la somme de chaque type de cellule, donc faire une somme d'une cellule sur deux dans ma colonne.

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
AC6 = 3
AC7 = 5
AC8 = 4
AC9 = 1
AC10 = 9
AC11 = 0
 
SOMME1 = AC6 + AC8 + AC10
SOMME2 = AC7 + AC9 + AC11

Actuellement, j'ai une formule comme ça :

=SOMME(AC6+AC8+AC10+AC12+AC14+AC16+AC18+AC20+AC22+AC24+AC26+AC28+
AC30+AC32+AC34+AC36+AC38+AC40+AC42+AC44+AC46+AC48+AC50+AC52+
AC56+AC58+AC60+AC62+AC64+AC66+AC68+AC70+AC72+AC74+AC86+AC89+
AC91+AC93+AC95+AC97+AC99+AC101+AC103+AC105+AC107+AC109+AC112+
AC114+AC116+AC118+AC120+AC122+AC124+AC128+AC130+AC132+AC134+
AC136+AC143+AC149+AC161+AC163+AC165+AC167+AC169+AC171+AC173+
AC177+AC179+AC181+AC183+AC185+AC187+AC189+AC195+AC199+AC201+
AC203+AC205+AC207+AC209+AC211+AC213+AC215+AC217)

Que je dois mettre à jour lorsque j'ajoute des lignes dans mon tableau...

C'est pourquoi je voudrais pouvoir utiliser des plages et compter une cellule sur deux dans cette plage.

Savez-vous comment faire ?

Merci,
ZiP

**rvtoulon** · 26/02/2010, 16h42

Bjr,
Pour m'exercer, j'ai essayé de faire une fonction qui permet ce type de calcul pour la colonne AC, à partir de la ligne 6 jusque la dernière ligne utilisée de la colonne. donc tu peux rajouter autant de ligne que tu veux la fonction va les prendre en compte.
Dans l'éditeur VBA (ALT+F11) tu copie dans un module cette fonction:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function calc1sur2() As Long
Dim i As Long, vval As Long
 
Application.Volatile
 
calc1sur2 = 0
 
For i = 6 To Sheets(1).Range("AC65000").End(xlUp).Row Step 2
  vval = Range("AC" & i).Value
  calc1sur2 = calc1sur2 + vval
Next i
 
End Function

Et dans la cellule qui reçoit le resultat tu met :

Code :

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

=calc1sur2()

et tu valides par Entrée.
normalement elle affiche le résultat et si tu insere d'autre chiffre elle recalcule.
Attention elle va toujours calculer à partir de la cellule AC6. je vais essayer d'adapter ( mais je promet rien)
@+

**rvtoulon** · 26/02/2010, 16h52

re,
bon ben j'ai adapter

voila le nouveau code:

Code :

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

1
2
3
4
5
6
7
8
9
Function calc1sur2(ligndeb As Long) As Long
Dim i As Long, vval As Long
Application.Volatile
calc1sur2 = 0
For i = ligndeb To Activesheet.Range("AC65000").End(xlUp).Row Step 2
  vval = ActiveSheet.Range("AC" & i).Value
  calc1sur2 = calc1sur2 + vval
Next i
End Function

C parreil que tout à l'heure sauf qu'il faut mettre dans la parenthèse le numéro de la ligne d'ou on veut commencer le calcul. Par exemple pour commencer le calcul à partir de la ligne 10 :

Code :

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

=calc1sur2(10)

@+

**[ZiP]** · 26/02/2010, 17h45

Bonjour,

Je ne savais pas que l'on pouvait utiliser des fonctions VBA comme formule dans une cellule Excel !

Par contre, je ne veux pas aller jusqu'à la dernière lignes car, j'ai d'autres informations sous mon tableau, je souhaiterai utiliser une plage.

Mais sachant que l'on peut utiliser des fonctions VBA comme formule, je vais pouvoir m'en sortir facilement

Merci,
ZiP

**rvtoulon** · 26/02/2010, 17h48

Re,
bon voila la dernière version

Code :

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

1
2
3
4
5
6
7
8
9
10
Function calc1sur2(ligndeb As Long, numcol As Long, saut As Byte) As Long
Dim i As Long, vval As Long
 
Application.Volatile
calc1sur2 = 0
For i = ligndeb To ActiveSheet.Cells(65000, numcol).End(xlUp).Row Step saut
  vval = ActiveSheet.Cells(i, numcol).Value
  calc1sur2 = calc1sur2 + vval
Next i
End Function

donc il suffit de lui dire dans l'ordre :
1) la ligne de départ
2) le numéro de la colonne où on veut faire le calcul
3) combien de cellule on saute.
Donc pour toi on commence le calcul en AC6 et on saute 2 lignes, tu dois mettre dans la cellule qui attends le résultat :

Code :

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

=calc1sur2 (6;29;2)

pour commencer en AC7

Code :

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

=calc1sur2 (7;29;2)

etc...

Voila c une idée il y a certainement mieux mais c'était un bel exercice pour une première fonction faite maison

@+

EDIT: j'avais pas vu ta réponses, ben de rien

**[ZiP]** · 26/02/2010, 17h54

Serait-il possible de passer que deux paramètres : plage et saut.

Comme par exemple : =calc(AC6:AC217,2)

Je ne sais pas trop comment utiliser des plages sous cette forme en VBA.

Merci,
ZiP

**rvtoulon** · 26/02/2010, 18h03

C'est peux-être possible, mais là je ne sais pas faire, mais tu peux rajouter un critère (peux-etre sa fait beaucoup, mais soyons fou

)
critere 1 = ligne de début
critere 2 = ligne de fin
critere 3 = numéro de la colonne
critere 4 = saut de ligne

donc le code serait celui-ci

Code :

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

1
2
3
4
5
6
7
8
9
10
Function calc1sur2(ligndeb As Long, lignfin As Long, numcol As Long, saut As Byte) As Long
Dim i As Long, vval As Long
 
Application.Volatile
calc1sur2 = 0
For i = ligndeb To lignfin Step saut
  vval = ActiveSheet.Cells(i, numcol).Value
  calc1sur2 = calc1sur2 + vval
Next i
End Function

et dans la cellule

Code :

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

=calc1sur2 (6;217;29;2)

c toujours çà

**[ZiP]** · 26/02/2010, 22h26

Oui, on peut dépanner comme ça mais quand tu arrives à des cellules comme FH125

Quelqu'un a-t-il une idée pour utiliser des plages de cellules en VBA ?

Merci,
ZiP

**cb_60** · 27/02/2010, 08h33

Bonjour
cela doit fonctionner! ( sans VBA)
cellule paires

Code :

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

=SOMMEPROD((MOD(LIGNE(A1:A200);2)=0)*A1:A200)

cellules impaires

Code :

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

=SOMMEPROD((MOD(LIGNE(A1:A200);2)<>0)*A1:A200)

**[ZiP]** · 27/02/2010, 10h20

Bonjour,

Je viens de tester, ça marche bien et c'est plus simple d'utilisation que la formule via VBA !

Je ne savais pas qu'on pouvait procéder ainsi, merci rvtoulon !

ZiP

**rvtoulon** · 27/02/2010, 10h52

Bjr, je pense avoir une solution avec ma fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function calc1sur2(Celdeb As Range, celfin As Range, saut As Byte) As Long
Dim i As Long, vval As Long, numcol As Long
 
Application.Volatile
calc1sur2 = 0
numcol = Celdeb.Column
For i = Celdeb.Row To celfin.Row Step saut
 
  vval = ActiveSheet.Cells(i, numcol).Value
  calc1sur2 = calc1sur2 + vval
Next i
End Function

dans la cellule qui attends le résultat :

Code :

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

calc1sur2(AC6;AC217;2)

Tu remarques le ";" et non pas le ":" pour définir la plage.

La formule de cb60 est superbe, mais comme je maitrise un peu mieux vba et que je connais moins sommprod, je pense que je vais me pencher un peu plus sur cette fonction.

@+

**[ZiP]** · 27/02/2010, 12h39

Bonjour rvtoulon,

On y est presque pour le VBA, je suis presque sûr que tu vas nous donner une prochaine version avec une plage en ":" !

Merci,
ZiP

**rvtoulon** · 27/02/2010, 20h20

Re,
bon ben çà y est c un peu tirer par les cheveux mais çà fonctionne.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function calc1sur2(plage As Range, saut As Byte) As Long
Dim i As Long, vval As Long, numcol As Long, derlign As Long
 
Application.Volatile
calc1sur2 = 0
numcol = plage.Column
derlign = plage.Row + plage.Rows.Count - 1
For i = plage.Row To derlign Step saut
   vval = ActiveSheet.Cells(i, numcol).Value
  calc1sur2 = calc1sur2 + vval
Next i
End Function