End If sans bloc if

Version imprimable

End If sans bloc if

Bonsoir,

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

Code:

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

22/01/2015, 00h20
geogeo70

1 pièce(s) jointe(s)

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...
Pièce jointe 166931

bonsoir

geogeo70
22/01/2015, 11h55
stef94

1 pièce(s) jointe(s)

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
22/01/2015, 13h03
deedolith

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

Code:

Sub Somme_sans_JdB()

Il manque le End Sub correspondant, ou alors mettre cette ligne en commentaire, ou la supprimer.
22/01/2015, 13h45
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.

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

Code:

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

22/01/2015, 15h10
stef94

merci, mais encore ??

Pas de solution
22/01/2015, 15h12
Invité

:furieux:

Code:

'Sub Somme_sans_JdB()
22/01/2015, 15h58
stef94

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

Restez zen :ptdr:
23/01/2015, 16h39
geogeo70

1 pièce(s) jointe(s)

hello,

Chez moi ça marche avec les mêmes couleurs !!! de police...:lol:Pièce jointe 167102
geogeo70