Function Somme.SI VBA

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.

Cordialement, Cordia5

5cordia5.xlsm (17.54 Ko)
5cordia5.xlsx (12.20 Ko)

Salut Cordia5

Voici la nouvelle fonction recherchée

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é

7cordia5.xlsm (18.06 Ko)

Bonjour

Merci beaucoup BrunoM45.

Exactement ce que je cherchais et ne trouvais pas.

Bonne journée et merci encore.

Cordia5

Rechercher des sujets similaires à "function somme vba"