Bonsoir Banzai,
regarde la macro que je viens de réaliser avec ta solution.
Sub Coche()
' insère un V de validation dans une cellule active
With Selection.Font
.Name = "Wingdings 2" 'Police de caractères
.Size = 16
.ThemeColor = xlThemeColorLight1
End With
ActiveCell.Range("A1").Select
ActiveCell.FormulaR1C1 = "'P" ' correspond au V dans le Wingdings
Selection.Font.Bold = True ' Gras
With Selection.Font
.Color = -16751104 ' couleur verte
End With
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic ' Couleur intérieur = Jaune
.Color = 65535
End With
Range("A1").Select
End Sub
Comme cette macro est classée dans mon classeur de macros personnelles, elle reste accessible de n'importe quel autre classeur.
Le V est afficher en vert sur fond jaune.
A tester.
Encore merci et à bientôt
Papy Pierrot