Sujet Précédent Sujet Suivant

Programme sous visual basic

Fermé
dugamico Messages postés 2 Date d'inscription mardi 19 août 2008 Statut Membre Dernière intervention 20 août 2008 - 19 août 2008 à 12:30
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 20 août 2008 à 10:45
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

Réponse 1 / 2
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 199
19 août 2008 à 12:52
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 mardi 19 août 2008 Statut Membre Dernière intervention 20 août 2008
20 août 2008 à 10:42
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
Réponse 2 / 2
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 199
20 août 2008 à 10:45
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