Dans un User-Form, j'ai install=E9 une puce permettant de chang=E9 la
mise en forme de la cellule A2 (Fond rouge =3D Suppression des droits).
Mes lignes de commandes sont les suivantes :
Private Sub OptSuppL_Click()
Dim i As Long
i =3D ActiveCell.Row
Cells(i, 2).Font.ColorIndex =3D 1
Cells(i, 2).Interior.Color =3D 3
RemplirForm
Me.OptSuppL =3D False
End Sub
Quelque soit le num=E9ro de la couleur de ma ligne Interior.color =3D 3,
j'obtiens un fond noir et non rouge ???
Ma mémoire me joue souvent des tours , mais là....je me souviens. ;o))) cadeau : http://www.excelabo.net/exemples/gd-calendrieravent Te souviens-tu, .....une date non remise à jour après avoir consulté ton calendrier http://www.archivum.info/microsoft.public.fr.excel/2007-11/03877/Re:_Calendrier_de_l'Avent -- Salutations JJ
"Modeste" a écrit dans le message de news:
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Ou encore en gardant "Color" Cells(i, 2).Interior.Color = RGB(255, 0, 0)
encore plus simplement !!! Cells(i, 2).Interior.Color = 255
Ma mémoire me joue souvent des tours , mais là....je me souviens.
;o))) cadeau :
http://www.excelabo.net/exemples/gd-calendrieravent
Te souviens-tu, .....une date non remise à jour après avoir consulté ton
calendrier
http://www.archivum.info/microsoft.public.fr.excel/2007-11/03877/Re:_Calendrier_de_l'Avent
--
Salutations
JJ
"Modeste" <gd@libre.fr> a écrit dans le message de news:
ec90uESeKHA.4636@TK2MSFTNGP04.phx.gbl...
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Ou encore en gardant "Color"
Cells(i, 2).Interior.Color = RGB(255, 0, 0)
encore plus simplement !!!
Cells(i, 2).Interior.Color = 255
Ma mémoire me joue souvent des tours , mais là....je me souviens. ;o))) cadeau : http://www.excelabo.net/exemples/gd-calendrieravent Te souviens-tu, .....une date non remise à jour après avoir consulté ton calendrier http://www.archivum.info/microsoft.public.fr.excel/2007-11/03877/Re:_Calendrier_de_l'Avent -- Salutations JJ
"Modeste" a écrit dans le message de news:
Bonsour® Jacky avec ferveur ;o))) vous nous disiez :
Ou encore en gardant "Color" Cells(i, 2).Interior.Color = RGB(255, 0, 0)
encore plus simplement !!! Cells(i, 2).Interior.Color = 255