Programme sous visual basic

Fermé
Messages postés
2
Date d'inscription
mardi 19 août 2008
Statut
Membre
Dernière intervention
20 août 2008
-
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
-
Bonjour,

Bonjour,

j'ai ecris un programme sous visual basic pour additionner des donnees suivant la couleur et il me semble que cela devrai marcher mais en faite pas du tout.
Je suis pas du tout specialiser sur visual basic et j'aimerais savoir si quelqu'un pouvait m'aider sur le programme ci dessous
Merci
duga


Function SUMCOLOR(ZONE As Range, Couleur As String) As Integer
Dim sumvalue As Integer
sumvalue = 0
ZONE.Select
If cell.Font.ColorIndex = 3 Then
Couleur = "red"
End If
For Each cell In ZONE
If cell.Font.ColorIndex = 3 Then
sumvalue = cell.Value + sumvalue
End If
Next cell
SUMCOLOR = sumvalue
End Function

2 réponses

Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 190
Bonjour,

Peux-tu nous dire ce qui ne fonctionne pas ? Y a t'il un message d'erreur ?

merci
Messages postés
2
Date d'inscription
mardi 19 août 2008
Statut
Membre
Dernière intervention
20 août 2008

Bonjour nicolas,

quand je passe le programme au deboggeur, il ne detecte pas d'erreurs.
Par contre quand j'essaie dans mon fichier excel,il ne reconnait pas la deuxieme partie de la fonction(Couleur) et m'affiche une erreur.

Merci de ton aide

duga
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 190
Bonjour,

C'est quoi ta fonction (Couleur) ? Quelle est la ligne qui contient l'erreur et quel est le message d'erreur ?

PS: Je ne suis pas Nicolas oÔ