Coloriage intérieur et police de cellules

[dmoluc]

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

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

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

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

 

[Thibault LB]

Re : Coloriage intérieur et police de cellules

Pourquoi as-tu besoin de le faire en une seule action ? Le temps de traitement est trop long ?

 

[dmoluc]

Re : Coloriage intérieur et police de cellules

se serait quand même plus simple sinon tant vaux selectionner les cellules à la sourie et colorier l'intérieur avec les outils windows ; je cherche l'automatisme au maximum

 

[dmoluc]

Re : Coloriage intérieur et police de cellules

Bon si c'est impossible ou alors que personne ne sais faire je vais me contenter du coloriage en 2 fois
merci quand même