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.

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

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

Somme des cellules avec un motif rouge.

        Cette fonction calcule la somme d'une plage en fonction de la
        couleur du motif des cellules.

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