Function Somme.SI vba Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
CORDIA5
Membre dévoué
Membre dévoué
Messages : 575
Appréciations reçues : 7
Inscrit le : 14 août 2016
Version d'Excel : 2016

Message par CORDIA5 » 11 juillet 2019, 21:33

Bonjour le forum

Je sollicite votre aide car je n'avance plus.
Je souhaite faire une fonction qui tiendrait compte de 2 critères.

Détails dans PJ, merci à vous. :playa:

Cordialement, Cordia5
Cordia5.xlsx
sans macro
(12.2 Kio) Téléchargé 4 fois
Cordia5.xlsm
Avec une première macro
(17.54 Kio) Téléchargé 3 fois
Avatar du membre
BrunoM45
Membre impliqué
Membre impliqué
Messages : 2'890
Appréciations reçues : 87
Inscrit le : 29 octobre 2011
Version d'Excel : 2016 FR, O365 FR
Contact :

Message par BrunoM45 » 12 juillet 2019, 00:11

Salut Cordia5

Voici la nouvelle fonction recherchée :wink:
Function Somme_CouleurVille(PlageAddition As Range, Cell_couleur As Range, PlageVille As Range, Ville As Range)
  'Définition des variables
  Dim Cell As Range, i As Integer, Lig As Long
  'Volatile permet de recalculer la fonction à chaque recalcul de la feuille.
  Application.Volatile
  ' Initialisation du compteur
  i = 0
  ' Pour chaque cellule de la plage à additionner
  For Each Cell In PlageAddition
    ' Récupérer la ligne
    Lig = Cell.Row
    ' Tester la couleur et la ville
    If Cell.Interior.ColorIndex = Cell_couleur.Interior.ColorIndex _
      And Cells(Lig, PlageVille.Column) = Ville Then
        ' Si ok pour les 2, ajouter 1
        i = i + 1
    End If
  Next
  ' Retourner la valeur
  Somme_CouleurVille = i
End Function
Et le fichier modifié
Cordia5.xlsm
(18.06 Kio) Téléchargé 1 fois
[F1] est une touche qui appelle l'aide : Essayez, c'est assez performant et on trouve plein de choses

Il n'y a ni bon ni mauvais usage de la liberté d'expression, il n'en existe qu'un usage insuffisant.
Avatar du membre
CORDIA5
Membre dévoué
Membre dévoué
Messages : 575
Appréciations reçues : 7
Inscrit le : 14 août 2016
Version d'Excel : 2016

Message par CORDIA5 » 12 juillet 2019, 06:09

Bonjour

Merci beaucoup BrunoM45.
Exactement ce que je cherchais et ne trouvais pas.

Bonne journée et merci encore.

Cordia5 :btres:
1 membre du forum aime ce message.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message