Rapport de message :*
 

Re: Formule case à cocher

Titre du sujet : Re: Formule case à cocher
par Skoobi le 17/12/2008 20:42:36

Dans ce cas, il faut appliquer le format avant d'écrire dans la cellule comme ceci:

If IsDate(DateDécision.Value) Then
  Range("M" & Derlig).NumberFormat = "# ###"
  If opt24.Value Then
    Range("M" & Derlig).Value = DateAdd("m", 24, DateDécision.Value)
  ElseIf opt36.Value Then
    Range("M" & Derlig).Value = DateAdd("m", 36, DateDécision.Value)
  ElseIf opt48.Value Then
    Range("M" & Derlig).Value = DateAdd("m", 48, DateDécision.Value)
  End If
End If