Getcolorindex

Bonsoir je cherche à utiliser cette fonction pour connaitre l'index ce la
couleur de fond d'une cellule?

Est ce que quelqu'un connait ça ou a une autre solution?

Bonsoir,

Connais pas, mais ce qui suit à adapter ...

Sub zaza()
a = ActiveCell.Interior.ColorIndex
MsgBox a
End Sub


--
François L

Bonjour,

c'est une fonction du C++ ou J# ... autre
sinon aussi setcolorindex
voir ici: http://support.microsoft.com/kb/179706/fr

Connais pas en VBA

MAIS

tu peux en faire une fonction mais dans le contexte c'est pas bien
utile , les couleurs ne déclanchent pas un recalcul et plusieurs
éléments d'une cellule font appel à colorindex.

Imaginons donc :
1 pour intérior
2 pour font et
3 pour borders (et je ne rentre pas dans le détail)
donc on utiliserait pour exemple GetColorindex(a1;1)


Function GetColorindex(plg As Range, numType As Integer)
'renvoie l'index couleur de la cellule de référence
Application.Volatile 'NE SERT A RIEN AVEC LES COULEURS
'Donc l'ennui c'est devoir refaire F9 à chaque chgt

Select Case numType
Case 2
GetColorindex = plg.Font.ColorIndex
Case 3
GetColorindex = plg.Borders.ColorIndex
Case Else
GetColorindex = plg.Interior.ColorIndex
End Select

End Function

'Cdlt

'lSteph

Bonsoir je cherche à utiliser cette fonction pour connaitre l'index ce la
couleur de fond d'une cellule?

Est ce que quelqu'un connait ça ou a une autre solution?

Merci d'avance de votre aide

MF

--
- -

Je me rends compte maintenant que je me suis mal exprimé
Dans une cellule X je veux écrire le code couleur de l'intérieur d'une autre
cellule Y.
Car bien évidemment je connais les codes couleur
Mais j'ai adapté cette clé et avec message ça fonctionne

Merci MF


"Francois L" <francois@noadress.fr.invalid> a écrit dans le message de news:
%23WDz46zCHHA.3604@TK2MSFTNGP03.phx.gbl...

Bonsoir je cherche à utiliser cette fonction pour connaitre l'index ce la
couleur de fond d'une cellule?

Est ce que quelqu'un connait ça ou a une autre solution?

Bonsoir,

Connais pas, mais ce qui suit à adapter ...

Sub zaza()
a = ActiveCell.Interior.ColorIndex
MsgBox a
End Sub


--
François L