Problème formule VBA Fermé

Question

Hello à tous !

Je viens de reprendre une macro que j'ai réalisée grâce à votre aide il y a un moment.

Je souhaite la faire évoluer, mais le code n'a pas l'air de fonctionner. (J'ai "quelques" notions en VBA...)

Voici la fonction de départ :

Function somfeuille(nom As Range)
' SOMME SI des notes en col H si nom en D
' Boucle sur les feuilles jusqu'à l'avant dernière
For n = 1 To Sheets.Count - 1
a = Application.WorksheetFunction.SumIfs(Sheets(n).Range("H:H"), Sheets(n).Range("D:D"), nom)
' NB SI du nom
b = Application.WorksheetFunction.CountIf(Sheets(n).Range("D:D"), nom)
' incrementation Total
Total = Total + a
Next
' Valeur calculée à retourner
somfeuille = Total
End Function


Je souhaite garder les mêmes caractéristiques de calculs, mais aujourd'hui je ne veux pas que la macro cherche sur toutes les feuilles, je veux juste qu'elle cherche les valeurs sur la feuille de base et qu'elle effectue les calculs.

Auriez-vous une idée ? :)

Merci par avance pour vos réponses

f894009 · Answer

Bonjour,

Function somfeuille(nom As Range)
    ' SOMME SI des notes en col H si nom en D
    a = Application.WorksheetFunction.SumIfs(Sheets("nom de la feuille").Range("H:H"), Sheets(n).Range("D:D"), nom)
    ' NB SI du nom ?????????????????????????? sert a quoi ????????????
    b = Application.WorksheetFunction.CountIf(Sheets("nom de la feuille").Range("D:D"), nom)
    ' Valeur calculée à retourner
    somfeuille = a
End Function

le b est inutile ????

Problème formule VBA

1 réponse

Discussions similaires