Bonjour à tous.
J'ai une macro qui me colorise mes cellules via le code du Colorindex :
Sub p_f()
Dim plage As Range
Set plage = Intersect(Selection, Range("C8:AK44"))
If Not Intersect(ActiveCell, Range("C8:AK44")) Is Nothing Then
ActiveSheet.Unprotect "w*w*w*"
With plage.Interior
.ColorIndex = Range("OPTIONS!D42").Value
.Pattern = xlSolid
End With
plage.Font.ColorIndex = 0
plage.Font.Bold = True
plage.FormulaR1C1 = Range("OPTIONS!C42").Value
ActiveSheet.Protect "w*w*w*", UserInterfaceOnly:=True
Else
MsgBox "Mauvaise plage de selection"
End If
End Sub
Ce que j'aimerais, c'est remplacer la valeur de la cellule D42 par une valeur Hex du type "#FFFFFF".
J'ai essayé de modifier des bouts de code mais sans succès ...
Merci de votre aide
J'ai une macro qui me colorise mes cellules via le code du Colorindex :
Sub p_f()
Dim plage As Range
Set plage = Intersect(Selection, Range("C8:AK44"))
If Not Intersect(ActiveCell, Range("C8:AK44")) Is Nothing Then
ActiveSheet.Unprotect "w*w*w*"
With plage.Interior
.ColorIndex = Range("OPTIONS!D42").Value
.Pattern = xlSolid
End With
plage.Font.ColorIndex = 0
plage.Font.Bold = True
plage.FormulaR1C1 = Range("OPTIONS!C42").Value
ActiveSheet.Protect "w*w*w*", UserInterfaceOnly:=True
Else
MsgBox "Mauvaise plage de selection"
End If
End Sub
Ce que j'aimerais, c'est remplacer la valeur de la cellule D42 par une valeur Hex du type "#FFFFFF".
J'ai essayé de modifier des bouts de code mais sans succès ...
Merci de votre aide