Discussion :

[antoinepoirier]

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

[keygen08]

Bonjour

me parait bizarre ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

While Rng1.Offset(i, Decal) <> Cells(i, 1).Font.ColorIndex = 4

Je l'aurais plutôt ecris comme ça sans prejuger du resultat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

While Rng1.Offset(i, Decal).font.color <> Cells(i, 1).Font.Color

[antoinepoirier]

Merci Keygen,

En fait, ce que je comprends de ta ligne, c'est que tu compares avec une cellule, au lieu de comparer avec une couleur de fond, non ?

Je vais faire des tests avec ta ligne voir si ça change quelque chose que je n'ai pas remarqué !

[parmi]

Bonjour,

Si c'est la couleur du fond, essayer avec Interior

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

While Rng1.Offset(i, Decal).interior.color <> Cells(i, 1).interior.Color

[keygen08]

oui bien vu, moi, pas fais attention, moi pas concentrer
+ 1 pour parmi

[antoinepoirier]

@Parmi

Si je comprends ta fonction, elle prend la couleur de fond de la cellule de départ, cherche la cellule qui a la meme couleur de fond (boucle) et ensuite elle sélectionne l'info dans cette cellule ?

Je ne comprends pas lors pour cela ne fonctionne pas, je n'ai pas d'erreur mais ma fonction ne prend pas la bonne valeur avec ta ligne de commande !!