somme de cellules sauf pour les colonnes cachées VBA

Bonjour,

je recherche à faire la somme de plusieurs cellules sauf pour les cellules qui sont dans des colonnes cachées

ne trouvant pas cela au travers de formule Excel, j'ai codé en VBA une fonction personnalisée :

Code:

---

1 2 3 4 5 6 7 8 9 10

Function SommeVisible(plage As Range) Application.Volatile Dim Wcel For Each Wcel In plage.Cells If IsNumeric(Wcel) And Wcel.EntireColumn.Hidden = False Then SommeVisible = SommeVisible + Wcel.Value End If Next End Function

---

cette fonction donne le bon résultat pour des cellules contigus, exemple :

=SommeVisible(A1:F1)

si B1 est dans une colonne cachée, sa valeur n'est pas prise en compte dans le total

par contre, je souhaiterai faire la somme de cellules non-contigus comme la fonction SOMME() d'Excel, exemple :

=SommeVisible(A1;D1;F1)

sous cette forme j'ai une erreur #VALEUR! car je pense que le fonction n'accepte qu'un seul argument

que faut-il changer dans la fonction pour que cela fonctionne ?
merci de votre aide

Bonjour,

ta fonction n'accepte qu'un seul argument.
Met tes cellules entre parenthèse lors de l'appel, ou bien ajoute des arguments optionnels à ta fonction.
eric

Bonjour,

Citation:

---

ne trouvant pas cela au travers de formule Excel, j'ai codé en VBA une fonction personnalisée

---

Ah bon ?
Si on parle bien de faire la somme d'une colonne de lignes filtrées, tu as la fonction SOUS.TOTAL
Exemple avec le Total de la cellule B2:B100

Code:

---

=SOUS.TOTAL(109;Feuil1!$B$2:$B$100)

---

[EDIT]
Désolé, je n'avais vu que c'était la somme de la ligne avec colonnes masquées

Citation:

---

Envoyé par eriiic

Bonjour,

ta fonction n'accepte qu'un seul argument.
Met tes cellules entre parenthèse lors de l'appel, ou bien ajoute des arguments optionnels à ta fonction.
eric

---

merci bien cela fonctionne en rajoutant la parenthèse

pour la seconde solution, quelle serait la syntaxe de la fonction pour rajouter des arguments optionnels ?

est-ce que ce serait comme la fonction SOMME standard d'Excel ?
c-à-d =SOMME(A1;C1;G1;...autant de cellules que l'on veut)

merci de ton aide

Function SommeVisible(plage As Range, optional pl2 as range, optional pl3 as range, etc...)
ou bien avec un tableau de paramètres plus adapté à ton cas :

Code:

---

Function SommeVisible(ParamArray plage()) As Double

---

eric