Programme sous visual basic

dugamico Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

2 réponses

Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Bonjour,

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

merci
0
dugamico Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
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Ô
0