Discussion :

[rgmd31]

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 :

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

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

[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

[Philippe Tulliez]

Bonjour,

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 :

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

=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

[rgmd31]

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

[eriiic]

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 :

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

Function SommeVisible(ParamArray plage()) As Double

eric