Fonction somme si en fonction du nom d'onglet [Résolu]

Question

Posez votre question Signaler

Fonction somme si en fonction du nom d'onglet [Résolu]

Lameche15

Messages postés: 116
Date d'inscription: mardi 9 septembre 2008
Statut: Membre
Dernière intervention: 26 mars 2019

- 22 janv. 2019 à 15:37 - Dernière réponse : Patrice33740

Messages postés: 7719
Date d'inscription: dimanche 13 juin 2010
Statut: Membre
Dernière intervention: 19 avril 2019

- 20 févr. 2019 à 17:53

VBA Office (Excel, Word ...) Posez votre question Signaler

Bonjour,

Je butte depuis plusieurs jours sur une macro simple de calcul de somme si en fonction de la couleur de fond et du nom d'un onglet.

J'ai un onglet "Récapitulatif" ou je souhaite utiliser mes fonctions.
De la cellule B7 à la cellule AI7, figurent mes numéros de semaine.

De la cellule B22 à la cellule AI22, j'y appelle ma fonction:

B22=RecupNbHeuresInsertionArg(B$7) C22= RecupNbHeuresInsertionArg(C$7)....

Ma fonction qui pose problème est la suivante:

Function RecupNbHeuresInsertionArg(ByRef Cellule As Range) As Long
Dim numcol As Integer
Dim cell As Range
Application.Volatile True
numcol = Cellule.Value
Dim som As Long
som = 0


Sheets("Sem " & numcol).Range("B25:F44").Select

For Each cell In Selection

If cell.Interior.ColorIndex = 6 Then
som = som + cell.Value

End If

Next cell

RecupNbHeuresInsertionArg = som



End Function

Je souhaite que cette fonction calcule la somme par couleur (ColorIndex = 6 est jaune) de l'onglet sélectionné par la variable d'entrée de ma fonction (cellule) sur une plage précise (ici B25:F44) de cet onglet.

Peut-être quelque chose d'évident m'échappe? Cette fonction me retourne une erreur #Valeur
J'espère être clair, merci d'avance pour votre aide précieuse

Alain

Afficher la suite

A voir également:

Votre réponse

Répondre au sujet

2 réponses

Signaler Commenter la réponse de Lameche15

Lameche15

Messages postés: 116
Date d'inscription: mardi 9 septembre 2008
Statut: Membre
Dernière intervention: 26 mars 2019

19 févr. 2019 à 09:34

0

Merci

Merci pour ton aide, je ne vois pas bien comment je peux faire autrement qu'utiliser la méthode Select.
Peut-etre une idée?

--

Signaler Commenter la réponse de Lameche15

Lameche15

Messages postés: 116
Date d'inscription: mardi 9 septembre 2008
Statut: Membre
Dernière intervention: 26 mars 2019

- 19 févr. 2019 à 16:50

Autant pour moi, avec un algo un peu différent cela fonctionne très bien.
Merci infiniment pour ton aide

@ Bientôt

Signaler Commenter la réponse de Patrice33740

Patrice33740

Messages postés: 7719
Date d'inscription: dimanche 13 juin 2010
Statut: Membre
Dernière intervention: 19 avril 2019

16 - 20 févr. 2019 à 17:53

Pour l'exemple :

Sub Test()
  MsgBox RecupNbHeuresInsertionArg(Worksheets("Sem 1").Range("B25:F44"))
End Sub

Function RecupNbHeuresInsertionArg(ByRef Plage As Range) As Long
Dim cel As Range
Dim som As Long
  Application.Volatile True
  For Each cel In Plage.Cells
    If cel.Interior.ColorIndex = 6 Then som = som + Val(cel.Value)
  Next cel
  RecupNbHeuresInsertionArg = som
End Function

Votre réponse

Répondre au sujet

Posez votre question

Autant pour moi, avec un algo un peu différent cela fonctionne très bien.
Merci infiniment pour ton aide

@ Bientôt
Pour l'exemple :
Sub Test() MsgBox RecupNbHeuresInsertionArg(Worksheets("Sem 1").Range("B25:F44")) End Sub Function RecupNbHeuresInsertionArg(ByRef Plage As Range) As Long Dim cel As Range Dim som As Long Application.Volatile True For Each cel In Plage.Cells If cel.Interior.ColorIndex = 6 Then som = som + Val(cel.Value) Next cel RecupNbHeuresInsertionArg = som End Function

Patrice33740 · Accepted Answer · 2019-01-23T09:55:58+0100

Meilleure réponse

Signaler Commenter la réponse de Patrice33740

Patrice33740

Messages postés: 7719
Date d'inscription: dimanche 13 juin 2010
Statut: Membre
Dernière intervention: 19 avril 2019

16 23 janv. 2019 à 09:55

1

Merci

Bonjour,

1) Il ne faut pas utiliser Select dans une fonction !!!!
2) numcol n'est pas défini

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CodeS-SourceS

Codes Sources 115 internautes nous ont dit merci ce mois-ci

Fonction somme si en fonction du nom d'onglet [Résolu]

Votre réponse

Votre réponse

Votre réponse

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !