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.
Merci à tous ceux qui voudront m'aider
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
Partager