Merci, j'ai r=E9ussi =E0 m'en sortir avec la formule sur les
couleurs.
Le seul souci est que je n'arrive pas =E0 la mettre en
fonction dans une cellule.
Voil=E0 ma fonction :
-----------------------------------------
Function getColor(j As Variant) As Long
Dim c As Long
'j correspond =E0 la ligne courante
k =3D ActiveCell.Column
ActiveCell.Select
col =3D k + 1
c =3D Cells(j, k).Interior.Color
For i =3D 2 To 0 Step -1
Cells(j, i + col) =3D c \ 256 ^ i
c =3D c Mod 256 ^ i
Next i
MsgBox (i)
getColor =3D Cells(j, i + col).Value
End Function=20
------------------------------------------
Je sais pas ce qu'il faut retourner mais j'ai un pbe avant
=E7a; il y a un pbe de type =E0 la ligne :=20
Cells(j, i + col) =3D c \ 256 ^ i
Je ne vois pas comment pallier =E0 ce pbe car d=E8s que je mets
la fonction dans une cellule=20
(ex en A1 : "=3DgetColor(LIGNE(A1))" )
elle me retourne toujours : "#VALEUR!"
Je sais pas si tu vois mon pbe mais ce serait cool si tu
pouvais me d=E9panner comme tu l'as d=E9j=E0 fait.
Merci
RV
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Nicolas B.
Salut,
Voici une fonction qui renvoit le couple (R;V;B) de la couleur d'un cellule :
Function ObtColor(Tg As Range) As String Dim c As Long c = Tg.Interior.Color ObtColor = ")" For i = 2 To 0 Step -1 ObtColor = c 256 ^ i & ObtColor If i Then ObtColor = ";" & ObtColor c = c Mod 256 ^ i Next ObtColor = "(" & ObtColor End Function
Et la syntaxe à utiliser dans Excel pour tester la couleur de la cellule A1: =obtcolor(A1)
A+ Nicolas B.
RV wrote:
Salut !!
Merci, j'ai réussi à m'en sortir avec la formule sur les couleurs. Le seul souci est que je n'arrive pas à la mettre en fonction dans une cellule.
Voilà ma fonction : ----------------------------------------- Function getColor(j As Variant) As Long Dim c As Long 'j correspond à la ligne courante k = ActiveCell.Column ActiveCell.Select col = k + 1 c = Cells(j, k).Interior.Color For i = 2 To 0 Step -1 Cells(j, i + col) = c 256 ^ i c = c Mod 256 ^ i Next i
MsgBox (i) getColor = Cells(j, i + col).Value End Function ------------------------------------------ Je sais pas ce qu'il faut retourner mais j'ai un pbe avant ça; il y a un pbe de type à la ligne : Cells(j, i + col) = c 256 ^ i Je ne vois pas comment pallier à ce pbe car dès que je mets la fonction dans une cellule (ex en A1 : "=getColor(LIGNE(A1))" ) elle me retourne toujours : "#VALEUR!"
Je sais pas si tu vois mon pbe mais ce serait cool si tu pouvais me dépanner comme tu l'as déjà fait. Merci RV
Salut,
Voici une fonction qui renvoit le couple (R;V;B) de la couleur d'un
cellule :
Function ObtColor(Tg As Range) As String
Dim c As Long
c = Tg.Interior.Color
ObtColor = ")"
For i = 2 To 0 Step -1
ObtColor = c 256 ^ i & ObtColor
If i Then ObtColor = ";" & ObtColor
c = c Mod 256 ^ i
Next
ObtColor = "(" & ObtColor
End Function
Et la syntaxe à utiliser dans Excel pour tester la couleur de la cellule A1:
=obtcolor(A1)
A+
Nicolas B.
RV wrote:
Salut !!
Merci, j'ai réussi à m'en sortir avec la formule sur les
couleurs.
Le seul souci est que je n'arrive pas à la mettre en
fonction dans une cellule.
Voilà ma fonction :
-----------------------------------------
Function getColor(j As Variant) As Long
Dim c As Long
'j correspond à la ligne courante
k = ActiveCell.Column
ActiveCell.Select
col = k + 1
c = Cells(j, k).Interior.Color
For i = 2 To 0 Step -1
Cells(j, i + col) = c 256 ^ i
c = c Mod 256 ^ i
Next i
MsgBox (i)
getColor = Cells(j, i + col).Value
End Function
------------------------------------------
Je sais pas ce qu'il faut retourner mais j'ai un pbe avant
ça; il y a un pbe de type à la ligne :
Cells(j, i + col) = c 256 ^ i
Je ne vois pas comment pallier à ce pbe car dès que je mets
la fonction dans une cellule
(ex en A1 : "=getColor(LIGNE(A1))" )
elle me retourne toujours : "#VALEUR!"
Je sais pas si tu vois mon pbe mais ce serait cool si tu
pouvais me dépanner comme tu l'as déjà fait.
Merci
RV
Voici une fonction qui renvoit le couple (R;V;B) de la couleur d'un cellule :
Function ObtColor(Tg As Range) As String Dim c As Long c = Tg.Interior.Color ObtColor = ")" For i = 2 To 0 Step -1 ObtColor = c 256 ^ i & ObtColor If i Then ObtColor = ";" & ObtColor c = c Mod 256 ^ i Next ObtColor = "(" & ObtColor End Function
Et la syntaxe à utiliser dans Excel pour tester la couleur de la cellule A1: =obtcolor(A1)
A+ Nicolas B.
RV wrote:
Salut !!
Merci, j'ai réussi à m'en sortir avec la formule sur les couleurs. Le seul souci est que je n'arrive pas à la mettre en fonction dans une cellule.
Voilà ma fonction : ----------------------------------------- Function getColor(j As Variant) As Long Dim c As Long 'j correspond à la ligne courante k = ActiveCell.Column ActiveCell.Select col = k + 1 c = Cells(j, k).Interior.Color For i = 2 To 0 Step -1 Cells(j, i + col) = c 256 ^ i c = c Mod 256 ^ i Next i
MsgBox (i) getColor = Cells(j, i + col).Value End Function ------------------------------------------ Je sais pas ce qu'il faut retourner mais j'ai un pbe avant ça; il y a un pbe de type à la ligne : Cells(j, i + col) = c 256 ^ i Je ne vois pas comment pallier à ce pbe car dès que je mets la fonction dans une cellule (ex en A1 : "=getColor(LIGNE(A1))" ) elle me retourne toujours : "#VALEUR!"
Je sais pas si tu vois mon pbe mais ce serait cool si tu pouvais me dépanner comme tu l'as déjà fait. Merci RV
AV
Voici une fonction qui renvoit le couple (R;V;B)
Vous avez dit le "couple" ? Moi je dirais que c'est plus proche de la partouze !
AV
Voici une fonction qui renvoit le couple (R;V;B)
Vous avez dit le "couple" ?
Moi je dirais que c'est plus proche de la partouze !
