Problème .Interior.ColorIndex

Bonjour,

Je rencontre un problème avec cette fonction :

Function Endless()

    Application.Volatile

    couleur = 5296274 'Vert

    Dim varTexte As String
    Dim x As Integer
    Dim a As Integer

    varTexte = "Terminée"
    a = 0
    x = 1

    For x = 1 To 500
        If Cells(x, 1) = varTexte Then
            Cells(x, 1).Interior.ColorIndex = 8
            a = 1
        End If

    Next
    Endless = a
End Function

La ligne Cells(x,1).Interior.ColorIndex semble incorrecte, pourtant je pense pas avoir fait une erreur de syntaxe...

Lorsque j’exécute la fonction, j'obtiens seulement #VALEUR!

Avez-vous une idée du problème que je rencontre ?

Merci d'avance

Bonjour,

A peu d'exception près, une fonction n'exécute pas d'action, elle retourne une valeur ou un tableau de valeurs.

Il te faut en faire une Sub() que tu peux exécuter par un raccourci clavier si ça t'arrange :

Sub Endless()

    Dim varTexte As String
    Dim x As Integer
    Dim a As Integer

    varTexte = "Terminée"
    'a = 0 '<--- valeur par défaut donc, ne sert à rien
    x = 1

    For x = 1 To 500
        If Cells(x, 1) = varTexte Then
            Cells(x, 1).Interior.ColorIndex = 8
            a = 1 '<--- quelle utilité ?
        End If

    Next

End Sub

Je pensais qu'un Sub s’exécutait tout seul en boucle, c'est pourquoi je n'avais pas réussi avec et je mettais tourner vers une fonction.

Merci des précisions