rss
Ils ont besoin de votre aide Tous les messages sans réponse
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

[Excel] [VBA] Création d'une fonction

Posté par Fangio64, le vendredi 6 juillet 2007 à 11:56:55
Bonjour à tous.

Je cherche à créer une fonction sur VBA pour faire la somme d'une colonne d'une base de donnée en fonction de la visibilité ou non des cellules (suite à un trie).

Il s'agit d'une base de données où l'ajout de données se fait à la 7 ème ligne. Donc la fonction SOUS.TOTAL d'excel ne fonctionne pas.

J'ai essayé de faire ce code mais il ne marche pas. 

Public Function SOMME_VISIBLE(Numéro_colonne As Integer) As Single
Dim x as integer

x=0
   For Each Cell In Range(Cells(7,[Numéro_colonne]),Cells(6+[nb_enregistrement],­[Numéro_colonne]))
    If Cell.Rows.Hidden = False Then x=x+Cell
   End if
   Next
   SOMME_VISIBLE = x
End Function


Y a t il quelqu'un qui puisse m'aider.
Merci d'avance
Configuration: Windows XP
Internet Explorer 6.0
Répondre à Fangio64  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 Lupin.A, le vendredi 6 juillet 2007 à 13:39:23
Bonjour,

Suggestion : 

Option Explicit
'

Public Function SOMME_VISIBLE(Numéro_colonne As Integer) As Single

    Dim Plage As Range, Cellule As Range

    Application.Volatile
    'Set Plage = Range(Cells(7, [Numéro_colonne]), Cells(6 + [nb_enregistrement], [Numéro_colonne]))
    Set Plage = Range("A1:B2")
    SOMME_VISIBLE = 0
    For Each Cellule In Plage
        If Cellule.Rows.Hidden = False Then
            SOMME_VISIBLE = SOMME_VISIBLE + Cellule.Value
        End If
    Next
    
End Function
'

Lupin
   
Répondre à Lupin.A
Posez votre question Répondre
Logiciels pertinents trouvés dans les téléchargements
Télécharger GANTT Project 2.0.7GANTT Project - GanttProject est un outil de gestion de projet libre, permettant de réaliser des diagrammes de GANTT afin de planifier un...Catégorie: Gestion de projet
Licence: Open Source
Télécharger EasyFactures 1EasyFactures - Easyfactures est un logiciel capable de gérer les factures et les devis, il a été développé sur Excel. Easyfactures...Catégorie: Comptabilité/Paie
Licence: Freeware/gratuit
Télécharger Excel Viewer 2003Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même...Catégorie: Tableur
Licence: Freeware/gratuit
Télécharger AVS Disc Creator 2.1.5.100AVS Disc Creator - Avec AVS DiscCreator vous pouvez rapidement graver vos données sur CD/DVD et Blu-ray disc. <h2>Fonctionnalités</h2> ...Catégorie: Gravure
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « [Excel] [VBA] Création d'une fonction »