Détecter une cellule colorée
Bonjour, je travail sur une fonction que je dois adapter, je désire qu'elle détecte une cellule colorée, pour ensuite prendre la valeur dans cette case colorée.
Je ne suis pas sûr de ma fonction de détection de couleur. Voici ma fonction au complet.
Vous voyez, ligne 14, ma tentative.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Public Function Cherche_valeur(ByVal Table As Range, ByVal Valeur As Range, Decal As Long)
Dim Rng1 As Range
Dim i As Integer
Set Rng1 = Table.Find(Valeur.Value, , xlValues, xlWhole, xlByRows, xlNext, False, False)
i = 1
If Rng1 Is Nothing Then
Cherche_valeur = "0"
Exit Function
End If
While Rng1.Offset(i, Decal) <> Cells(i, 1).Font.ColorIndex = 4
i = i + 1
Wend
Cherche_valeur = Rng1.Offset(i, Decal).Value
End Function |
Merci à tous ceux qui voudront m'aider :)