XL 2010 CASE A COCHER

[FCMLE44]

Bonjour

J'ai le code ci-dessous

Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then 'Si case à cocher = true (donc est cochée)
[B12] = "B11+2" 'inscrire Date B11+ 2 mois en cellule B12
Else ' sinon
[B12] = "" ' ne rien inscrire (voir "effacer") en B12
End If
End Sub

Explication :
Losque je clique sur une CheckBox, j'obtiens en cellule B12 la somme de B11+2mois

Auriez vous une idée ?

Merci

 

[Staple1600]

Bonjour

Voici une idée possible

Private Sub CheckBox2_Click()
With [B12]
.Value = IIf(CheckBox2, .Offset(-1) + 2, " A effacer")
End With
End Sub

Et une autre puisqu'on parle de Date

Private Sub CheckBox2_Click()
With [B12]
.Value = IIf(CheckBox2, DateAdd("m", 2, .Offset(-1)), " A effacer")
End With
End Sub

 

[FCMLE44]

Bonjour

Voici une idée possible

Private Sub CheckBox2_Click()
With [B12]
.Value = IIf(CheckBox2, .Offset(-1) + 2, " A effacer")
End With
End Sub

Merci

Cependant, cela rajoute 2 jours.
Ce que je souhaite c'est B11 - 2 mois

 

[Staple1600]

Re

Voir la seconde macro dans l'édition de mon précédent message 😉

 

[FCMLE44]

Bonjour

Voici une idée possible

Private Sub CheckBox2_Click()
With [B12]
.Value = IIf(CheckBox2, .Offset(-1) + 2, " A effacer")
End With
End Sub

Et une autre puisqu'on parle de Date

Private Sub CheckBox2_Click()
With [B12]
.Value = IIf(CheckBox2, DateAdd("m", 2, .Offset(-1)), " A effacer")
End With
End Sub

Quand j'ai une date au 01/10/2000 cela devrait me donner 01/08/2000 et non 01/12/2000

 

[FCMLE44]

j'ai trouvé

Merci

 

[Staple1600]

Re,

Relis ton premier message
On pouvait y lire 😉
[B12] = "B11+2" 'inscrire Date B11+ 2 mois en cellule B12

Maintenant s'il s'agit de soustraire, c'est pas compliqué à adapter, non ? 😉

Private Sub CheckBox2_Click()
With [B12]
.Value = IIf(CheckBox2, DateAdd("m", -2, .Offset(-1)), " A effacer")
End With
End Sub

 

[FCMLE44]

Re,

Relis ton premier message
On pouvait y lire 😉
[B12] = "B11+2" 'inscrire Date B11+ 2 mois en cellule B12

Maintenant s'il s'agit de soustraire, c'est pas compliqué à adapter, non ? 😉

Private Sub CheckBox2_Click()
With [B12]
.Value = IIf(CheckBox2, DateAdd("m", -2, .Offset(-1)), " A effacer")
End With
End Sub

Oui j'avais trouvé et effectivement je m'étais planté dans mon premier message

désolé et merci

 

[FCMLE44]

Bonjour

Lorsque je n'ai rien en B11, je souhaiterais que cela ne me fasse pas pas un débogage
Comment faire ou que dois je rajouter

Merci

 

[job75]

Bonjour FCMLE44, JM,

Lorsque je n'ai rien en B11, je souhaiterais que cela ne me fasse pas pas un débogage

Le plus simple :

Private Sub CheckBox2_Click()
[B12] = ""
On Error Resume Next
If CheckBox2 Then [B12] = DateAdd("m", -2, [B11])
End Sub

A+

 

[FCMLE44]

Bonjour FCMLE44, JM,

Le plus simple :

Private Sub CheckBox2_Click()
[B12] = ""
On Error Resume Next
If CheckBox2 Then [B12] = DateAdd("m", -2, [B11])
End Sub

A+

Merci