Discussion :

[stef94]

Bonsoir,

j'ai inséré une fonction d'une macro dans une cellule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Public Function cumul_couleur(plage As Range, col As Range) 
    Dim elm As Object 
    Application.Volatile 
    cumul_couleur = 0 
    For Each elm In plage 
        If elm.Font.ColorIndex = col.Font.ColorIndex Then 
            cumul_couleur = cumul_couleur + elm.Value 
        End If 
    Next elm 
End Function

Après avoir sélectionné ma plage et ma cellule de couleur, la fenêtre vba affiche

End IF sans bloc IF
Merci d'avance

[geogeo70]

hello,

Je viens de regarder et faire fonctionner la "fonction" , çà "marche"!??

Je mettrais plutôt eml as range à la place d'object...

Pour moi le calcul se fait...


bonsoir

geogeo70

[stef94]

bonjour,

merci de votre réponse, écouter cela ne marche qu'une seule fois.Le but étant de faire la somme que des cellules dont le texte est noir.
Votre exemple sur la gauche et le mien à droite..

Je vous envoie le fichier ...

Merci d'avance

[deedolith]

Je ne voit pas de faute dans ta fonction, par contre ton module VBA commence par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sub Somme_sans_JdB()

Il manque le End Sub correspondant, ou alors mettre cette ligne en commentaire, ou la supprimer.

[stef94]

Désolé, le End Sub n'est pas admis en ajout, et si je mets le texte "sub..." en commentaire , mon problème n'est pas résolu.

[Invité]

Bravo stef94; effectivement Somme_sans_JdB n'a pas de End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Somme_sans_JdB()

' Somme_sans_JdB Macro

Public Function cumul_couleur(plage As Range, col As Range)
    Dim elm As Range
    Application.Volatile
    cumul_couleur = 0
    For Each elm In plage
        If elm.Font.ColorIndex = col.Font.ColorIndex Then
            cumul_couleur = cumul_couleur + elm.Value
        End If
    Next elm
End Function

[stef94]

merci, mais encore ??

Pas de solution

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'Sub Somme_sans_JdB()

[stef94]

Non désolé, passer la ligne sub... en commentaire ne fait rien de mieux.

Restez zen

[geogeo70]

hello,

Chez moi ça marche avec les mêmes couleurs !!! de police...
geogeo70