Changer couleur de ligne en fonction du nombre de caractères d'une cellule

Bonjour à tous,

Je cherche comme le titre l'indique à changer la couleur d'une ligne en fonction du nombre de caractère présent dans une de ses cellules.

Si le nombre de caractère dans la cellule Ki est inférieur à 10, alors la ligne i change de couleur.

J'ai écrit (entre autre)

For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1

If Len(Cells(i, 11)) < 10 Then

Rows(i).Interior.Color = RGB(126, 216, 196)

End If

Next

Et évidemment cela ne fonctionne pas...

Des suggestions?

Merci par avance!

Bonjour Scarwild, bonjour le forum,

Peut-être comme ça :

For I = 1 To ActiveSheet.UsedRange.Rows.Count
    ActiveSheet.Rows(I).Interior.Color = IIf(ActiveSheet.Cells(I, 11) < 10, RGB(126, 216, 196), xlNone)
Next

Bonjour,

Une piste :

Sub Test()

    Dim I As Long

    For I = 1 To ActiveSheet.UsedRange.Rows.Count

        If Len(Cells(I, 11).Value) < 10 Then Rows(I).Interior.ColorIndex = 3 'pour toute la ligne

    Next I

End Sub

Bonjour à tous les deux!

Merci tout d'abord pour le temps que vous avez consacré à mon problème.

Alors en fait mon code fonctionnait très très bien, mais je ne le voyais pas car aucun élément ne remplissait la condition... Perdu une journée la dessus... C'est pas dommage...

Le code au cas où pour ceux que ça pourrait intéresser plus tard :

Private Sub CommandButton5_Click() 'parce que j'aime bien les boutons
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
    If Len(Cells(i, 11)) < 10 Then Rows(i).Interior.Color = RGB(126, 216, 196)
Next
End Sub

Merci encore et bel été!

Bonjour tout le monde,

pourquoi ne pas le faire comme ceci (MFC)