Bonjour tout le monde,
voilà je voulais à l'occaz de la tour du monde faire un fichier excel de pronostics. Pr cela j'ai développé 3 fonctions basiques dont l'une d'elle doit colorier la case d'une couleur lorsque le résultat est correct.
Bref, mon soucis c'est qu'à travers la fenetre de développement lorsque je test ma fonction du module tout se passe bien et colore ma cellule. Par contre qd je suis directement sur Excel cela me bloque au niveau de l'instruction cellule.Interior.ColorIndex = couleur
De plus je ne saisi pas du tout pourquoi lorsque j'appelle la fonction ColoreCellule le deboggeur me donne comme valeur de la cellule le score du match plutot que l'identité de la cellule (à savoir E2).
Ci dessous mes codes et ci joint le fichier xlsm...
Merci d'avance de m'éclairer la dessus car je n'y comprends pas grand chose...
Ouaouane
-------------------------------------------------------------------------------
Function ColoreCellule(cellule As Range, couleur As Integer) As Integer
With cellule
cellule.Interior.ColorIndex = couleur
End With
MsgBox "ColoreCellule"
ColoreCellule = 1
End Function
--------------------------------------------------------------------------------
Function CalculePoint(colonne As String) As Integer
Dim i As Integer
Dim tempPoint As Integer
Dim resultatTour As Integer
Dim valtmp As Integer
tempPoint = 0
For i = 2 To 3
resultatTour = compareResultat(Sheets(1).Range(colonne & i).Value, Sheets(1).Range("H" & i).Value)
tempPoint = tempPoint + resultatTour
If resultatTour = 2 Then
valtmp = ColoreCellule(Sheets(1).Range("E2"), 4)
Else
If resultatTour = 1 Then
valtmp = ColoreCellule(Sheets(1).Range(colonne & i), 6)
End If
End If
Next i
CalculePoint = CInt(tempPoint)
End Function
voilà je voulais à l'occaz de la tour du monde faire un fichier excel de pronostics. Pr cela j'ai développé 3 fonctions basiques dont l'une d'elle doit colorier la case d'une couleur lorsque le résultat est correct.
Bref, mon soucis c'est qu'à travers la fenetre de développement lorsque je test ma fonction du module tout se passe bien et colore ma cellule. Par contre qd je suis directement sur Excel cela me bloque au niveau de l'instruction cellule.Interior.ColorIndex = couleur
De plus je ne saisi pas du tout pourquoi lorsque j'appelle la fonction ColoreCellule le deboggeur me donne comme valeur de la cellule le score du match plutot que l'identité de la cellule (à savoir E2).
Ci dessous mes codes et ci joint le fichier xlsm...
Merci d'avance de m'éclairer la dessus car je n'y comprends pas grand chose...
Ouaouane
-------------------------------------------------------------------------------
Function ColoreCellule(cellule As Range, couleur As Integer) As Integer
With cellule
cellule.Interior.ColorIndex = couleur
End With
MsgBox "ColoreCellule"
ColoreCellule = 1
End Function
--------------------------------------------------------------------------------
Function CalculePoint(colonne As String) As Integer
Dim i As Integer
Dim tempPoint As Integer
Dim resultatTour As Integer
Dim valtmp As Integer
tempPoint = 0
For i = 2 To 3
resultatTour = compareResultat(Sheets(1).Range(colonne & i).Value, Sheets(1).Range("H" & i).Value)
tempPoint = tempPoint + resultatTour
If resultatTour = 2 Then
valtmp = ColoreCellule(Sheets(1).Range("E2"), 4)
Else
If resultatTour = 1 Then
valtmp = ColoreCellule(Sheets(1).Range(colonne & i), 6)
End If
End If
Next i
CalculePoint = CInt(tempPoint)
End Function
Pièces jointes
Dernière édition: