Bonjour Le forum,
A l'aide d'un commandButton, je dois réinitialiser une cellule ainsi : 0 ans
Je pensais utiliser la formule Range("L8").FormulaR1C1 = "=0" mais je n'arrive pas à ajouter le mot ans au résultat qui est : 0
Je précise qu'avant d'utiliser cette macro je lance celle ci "reset" : Range("L8").ClearFormats, et qui effacera chaque fois le mot ans
Pour info, j'utilise cette macro en L7, peût être que l'on peut s'en servir aussi en changeant le 'Selection.NumberFormat = "# ##0 €" ' format en €
Range("L7").Select
With Selection.Font ' imposer format et taille de la police
.Name = "Roboto Medium"
.Size = 8
.Underline = False 'souligné oui ou non
.FontStyle = "Roboto Medium"
.Color = RGB(13, 39, 167)
End With
'Selection.NumberFormat = "# ##0 €" ' format en €
'Selection.HorizontalAlignment = xlCenter
'Selection.VerticalAlignment = xlCenter
merci pour votre aide
Belle journée à tous
Patrick
A l'aide d'un commandButton, je dois réinitialiser une cellule ainsi : 0 ans
Je pensais utiliser la formule Range("L8").FormulaR1C1 = "=0" mais je n'arrive pas à ajouter le mot ans au résultat qui est : 0
Je précise qu'avant d'utiliser cette macro je lance celle ci "reset" : Range("L8").ClearFormats, et qui effacera chaque fois le mot ans
Pour info, j'utilise cette macro en L7, peût être que l'on peut s'en servir aussi en changeant le 'Selection.NumberFormat = "# ##0 €" ' format en €
Range("L7").Select
With Selection.Font ' imposer format et taille de la police
.Name = "Roboto Medium"
.Size = 8
.Underline = False 'souligné oui ou non
.FontStyle = "Roboto Medium"
.Color = RGB(13, 39, 167)
End With
'Selection.NumberFormat = "# ##0 €" ' format en €
'Selection.HorizontalAlignment = xlCenter
'Selection.VerticalAlignment = xlCenter
merci pour votre aide
Belle journée à tous
Patrick