VBA et matrice

[Bruno87]

Bonjour,

Je suis en train d'écrire une macro et je tourne en rond depuis plus de 3h. Quelqu'un pour m'aider s'il vous plait?

Public Function couleur(sel As Range)
Application.Volatile
If sel.Interior.ColorIndex > 0 Then
couleur = 1

Else
couleur = 0

End If

End Function

Cette fonction a pour but de renvoyer des "0" et des "1" selon le remplissage de la cellule. Cette fonction fonctionne très bien, mais une fois placé dans la formule suivante, c'est le drame:

=SOMMEPROD(couleur(IF5:IF72);$C$5:$C$72;$IL$5:$IL$72)

Je pense que la fonction "couleur" doit renvoyer à une matrice pour que la formule précédent puisse fonctionner. Mais je n'arrive pas à comprendre comment faire.

J'ai donc essayé ce code, mais rien à faire:

Function couleur(sel As Object) As Variant
Application.Volatile

Dim temp As Variant
Dim i As Integer, j As Integer

temp = sel.Interior.ColorIndex

If IsArray(sel) Then

    For i = 1 To UBound(temp, 1)
        For j = 1 To UBound(temp, 2)
        
            If temp(i, j) > 0 Then
            temp(i, j) = 1
            Else
            temp(i, j) = 0
            End If
        Next j
    Next i

Else
    If temp.Interior.ColorIndex > 0 Then
    temp = 1
    Else
    temp = 0
    End If
    
End If

couleur = temp

End Function

Pouvez-vous m'aider?

 

[Efgé]

Re : VBA et matrice

Bonjour Bruno87_ Pas certain d'avoir compris _ Une proposition _ Cordialement

 

[Compte Supprimé 979]

Re : VBA et matrice

Salut Bruno87, Efgé

Pourquoi ce cassé la tête, fait carrément une fonction qui fait la somme de cellules selon les couleurs
Pour pouvoir t'aider il me faudrait un fichier exemple

A+

 

[Bruno87]

Re : VBA et matrice

Merci de vos réponses. Je joins un fichier avec un exemple

 

[Efgé]

Re : VBA et matrice

Re Bruno87, Bonjour BrunoM45 _ une autre proposition _ Cordialement

 

[Compte Supprimé 979]

Re : VBA et matrice

Salut Efgé, Bruno87

Une méthode similaire à celle d'Efgé

A+

 

[Bruno87]

Re : VBA et matrice

Merci beaucoup à tous, les fonctions que vous m'avez donné fonctionnent parfaitement


Merci encore