Discussion :

[soul330]

Je voudrais créer un code VBA qui puisse parcourir ma colonne excel "Libellé" pour relever tous les "a" et me donner l'effectif total de "a" dans la colonne "Effectif" c'est à dire Effectif des "a" = 2+1+7=10

Merci d'avance.

Libellé Effectif
a 2
b 5
a 1
c 5
a 7

[mercatog]

regarde du côte de

Code :

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

Application.worksheetfunction.sumif(arg1,arg2,arg3)

[Gorfael]

Salut soul330 et le forum
Un exemple

Code :

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

1
2
3
4
Dim Cel as range, Tot as long
for each cel in columns(1)
    if cel = "a" then tot=tot+cel.offset(0,1)
next cel

A+