Les fonctions personnalisées

Page mise à jour le : 28/03/2001

Insérer le chemin du classeur dans une feuille de calcul.
Somme des cellules avec un motif rouge par exemple.
 


Insérer le chemin d'un classeur dans une feuille de calcul.Retour au début

        Cette fonction insère le chemin du classeur dans la feuille de calcul.

        Le code

        Code de la fonction InsereCheminClasseur

 
Function InsereCheminClasseur() As String
        Application.Volatile
        InsereCheminClasseur = Application.Caller.Parent.Parent.FullName
End Function

Somme des cellules avec un motif rouge.Retour au début

        Cette fonction

download film. board games. online casinos. casino games. online casinos. online casinos
calcule la somme d'une plage en fonction de la
        couleur du motif des cellules.

        Le code

        Code de la fonction SumByColor

 
Function SumByColor(PlageEntree As Range, CouleurPlage As Range) As Double
Dim Cell As Range, TempSum As Double, ColorIndex As Integer
      ColorIndex = CouleurPlage.Cells(1, 1).Interior.ColorIndex
      TempSum = 0
      On Error Resume Next
      For Each Cell In PlageEntree.Cells
            If Cell.Formula < > "" Then
                  If Cell.Interior.ColorIndex = ColorIndex Then TempSum = TempSum + _
                    Cell.Value
            End If
      Next Cell
      On Error GoTo 0
      Set Cell = Nothing
      SumByColor = TempSum
End Function

        Les paramètres de la fonction

  PlageEntree : Permet de sélectionner la plage à calculer.
  CouleurEntree : Sélectionne la cellule servant de référence pour la couleur du motif.

Retour au début de document

Retour au début du document

Free counter and web stats