Discussion :

[SHERPAE]

Bonjour,
Je souhaiterai créer une fonction permettant de compter les cellules qui sont à la fois :
de couleur verte (Code 4) et dont le texte est "Tests"

Voici un bout de mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Function Parcourir(LegendeRGB As Integer, LegendeTXT As String)
 
Dim i As Integer
' Variable définissant le tableau UTILISATION PLANIFIEE
Dim Calcul As Double
' Variable définissant le calcul
 
Calcul = 0
 
For i = 13 To 380
' On parcourt le tableau entre les lignes 13 et 380
 
If Worksheets("PLANNING").Cells(i, 6).Interior.ColorIndex = LegendeRGB And StrComp(Worksheets("PLANNING").Cells(i, 6).Value, LegendeTXT) = 0 Then
Calcul = Calcul + 0.5
End If
 
Next i
 
Parcourir = Calcul
' Permet d'afficher le résultat du comptage
 
End Function

Malheureusement, ça ne fonctionne pas !
Quelqu'un pourrait-il m'aider
Merci !

[Fvandermeulen]

Bonjour,
Dans le bout de code que tu as indiqué on ne retrouve pas les valeurs de tes variables LegendeRGB et LegendeTXT, sont elle dans un autre bout de ton code ?
Si non, c'est la source de ton problème...

[SHERPAE]

Je renseigne mes valeurs directement dans la cellule, c'est à dire que j'appelle ma fonction Parcourir()
Par exemple
=Parcourir(4, "Tests")

[Invité]

Bonjour

Malheureusement, ça ne fonctionne pas !

Qu'est-ce qui ne fonctionne pas ?

Message d'erreur ?
Ce n'est pas le résultat escompté ?
Où est crée ta fonction ? Dans un module ?

Plus vous donnerez d'informations, plus vous aurez une réponse efficace et rapide.

Philippe

[fred65200]

bonjour,

il me semble qu'il manque un argument à StrComp

Code :

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

1
2
3
4
If Worksheets("PLANNING").Cells(i, 6).Interior.ColorIndex = LegendeRGB And _
     StrComp(Worksheets("PLANNING").Cells(i, 6).Value, LegendeTXT,1) = 0 Then
Calcul = Calcul + 0.5
End If

@+