Rapport de message :*
 

Re: Formule case à cocher

Titre du sujet : Re: Formule case à cocher
par Skoobi le 17/12/2008 17:50:35

Bonjour kelly,

comme tu as maintenant 3 conditions, il faut passer par une condition If.... Then ....ElseIf .... End If:

If IsDate(DateDécision.Value) Then
  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