Discussion :

[garheb]

Bonjour à tous,

J'ai un souci que je n'arrive pas à régler. La cellule dans laquelle je tape:

Code :

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

=ColorCell(C5:C40)

Affiche "#VALEUR". Voici le code de ColorCell:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Function ColorCell(Cible As Range) As Long
    cpt = 0
    For Each c In Cible
        If (c.Interior.ColorIndex <> -4142) Then
            cpt = cpt + 1
        End If
        Debug.Print c.Interior.ColorIndex
    Next c
    Debug.Print c & " " & cpt
    ColorCell = cpt
End Function

Donc la fonction est sensée compter les cases qui ont une couleur dans une range.

C'est très difficile à débugger étant donné qu'on ne peut à priori pas afficher les étapes intermédiaires en Debug.Print (en tous cas moi ça ne m'affiche rien puisque je ne le lance pas depuis le vba editor mais depuis excel), j'ai aussi testé MsgBox sans succès.

Bref je pense qu'il y a un problème avec Cible mais je ne sais pas quoi.

J'ai aussi essayé à la fin de mettre ColorCell = 1, mais ça affiche toujours #VALEUR, bref je ne comprends vraiment pas ce qui cloche ici.

Merci d'avance pour votre aide

[jfontaine]

Bonjour,

Pas de problème chez moi, la fonction retourne bien le nombre de cellule

[garheb]

Merci de ta réponse.

Je ne comprends pas ce qui peut se passer alors. :/ Je vais continuer à chercher

[garheb]

J'ai finalement trouvé, il n'aimait à priori pas le code "inutile", et donc les Debug.Print.

Bref ça fonctionne.

Par contre j'ai un nouveau souci, j'ai donc pu générer le nombre de personnes présentes chaque jour, mais je dois en faire un graphique; J'y suis depuis plus d'une heure sans succès, le tableau est (à mon avis) très mal construit pour la réutilisation des données, mais je vous laisse en juger (j'ai coupé les noms des personnes)



Ce n'est qu'une copie d'écran du départ du tableau, ça continue sur... 200 colonnes (une colonne par jour). Donc les couleurs représentent des causes diverses d'absence. Le résultat de ma fonction pour le moment je l'ai mis sur la dernière ligne du tableau.

Je reprends donc les données de cette ligne, et tente de prendre les dates auxquelles elles correspondent mais les graphiques ont des formes bizarres. J'ai aussi essayé de prendre seulement les valeurs de la ligne générée par la fonction, puis d'y ajouter un ordre chronologique.


(Ne vous arrêtez pas aux "-1" dans le graphique, c'est seulement les jours non ouvrés, que je m'occuperais de virer par la suite)

Ca fonctionne, sauf que le départ est au 01/01/1900, quoiqu'il arrive, alors que je change les dates ici:



Mais sur le graphique ça n'est pas pris en compte; L'échelle reste en 1900, et si je retourne dans les paramètres de l'axe les dates sont de nouveau en 1900.

(Je suis bien conscient que ce problème n'a "plus rien" à voir avec le souci du départ, j'ai pensé que ça serait plus simple de l'ajouter sur ce post pour ne pas flooder le forum, si je dois le poster dans la partie Excel générale dites le moi pas de souci)

[garheb]

Quelqu'un aurait-il une idée de comment m'y prendre pour que l'échelle fonctionne? Merci!