Bonjour à tous,
Je ne sais pas si vous allez pouvoir m'aider car j'utilise une application trouver sur le net qui me permet via une palette de couleur de colorier l'intérieur des cellules sélectionnées voici son code
elles est compléter par cette routine qui permet de choisir la couleur
Tout fonctionne très bien mais je voudrais aussi colorier la police des cellules de la même couleur que le remplissage donc en même temps et je n'y arrive pas
ce petit code me permet de colorer l'intérieur, puis la police mais en 2 actions
Quelqu'un saurait-il comment faire pour réunir les 2 actions en une seule ?
Merci pour votre aide toujours précieuse
Je ne sais pas si vous allez pouvoir m'aider car j'utilise une application trouver sur le net qui me permet via une palette de couleur de colorier l'intérieur des cellules sélectionnées voici son code
Code:
Private Function showcolor() As Long
Dim ChooseColorStructure As ChooseColor
Dim Custcolor(16) As Long
Dim lReturn As Long
ChooseColorStructure.lStructSize = Len(ChooseColorStructure)
ChooseColorStructure.hwndOwner = FindWindow("XLMAIN", _
Application.Caption)
ChooseColorStructure.hInstance = 0
ChooseColorStructure.lpCustColors = StrConv(CustomColors, _
vbUnicode)
ChooseColorStructure.flags = 0
If ChooseColor(ChooseColorStructure) <> 0 Then
showcolor = ChooseColorStructure.rgbResult
CustomColors = StrConv(ChooseColorStructure.lpCustColors, _
vbFromUnicode)
Else
showcolor = -1
End If
End Function
elles est compléter par cette routine qui permet de choisir la couleur
Code:
Private Declare Function ChooseColor Lib "comdlg32.dll" Alias _
"ChooseColorA" (pChoosecolor As ChooseColor) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Type ChooseColor
lStructSize As Long
hwndOwner As Long
hInstance As Long
rgbResult As Long
lpCustColors As String
flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Tout fonctionne très bien mais je voudrais aussi colorier la police des cellules de la même couleur que le remplissage donc en même temps et je n'y arrive pas
ce petit code me permet de colorer l'intérieur, puis la police mais en 2 actions
Code:
Dim rng As Range: Set rng = Selection
With rng
.Interior.Color = showcolor
.Font.Color = showcolor
End With
Quelqu'un saurait-il comment faire pour réunir les 2 actions en une seule ?
Merci pour votre aide toujours précieuse