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 : Sélectionner tout - Visualiser dans une fenêtre à part
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