Rajouter une condition à un code (double clic)

[anthoYS]

Bonsoir,

Comment faire pour rajouter à ce code la condition suivante :
Après un double clic en F (6 -en langage VB-) ; il faut que la valeur en F soit égale à se valeur diminué d'une unité. soit : double clic par exemple en F7 ou il y avait (avant se double clic) 13 de valeur, suite au double clic (en F7) on doit retomber sur 12.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Application.Intersect(Target, Range("D:D")) Is Nothing Then Reapprovisionnement.Show
If Not Application.Intersect(Target, Range("j:j")) Is Nothing Then Destockage.Show
If Target.Column = 3 Then
Cells(Target.Row, 3) = Date
End If
End Sub

Merci par avance

 

[CBernardT]

Re : Rajouter une condition à un code (double clic)

Bonsoir anthoYS et le forum,

Le code VBA peut-être celui-ci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Application.Intersect(Target, Range("D😀")) Is Nothing Then
Reapprovisionnement.Show
ElseIf Not Application.Intersect(Target, Range("j:j")) Is Nothing Then
Destockage.Show
ElseIf Not Application.Intersect(Target, Range("F:j")) Is Nothing Then
ActiveCell.Value = ActiveCell.Value - 1
End If
If Target.Column = 3 Then
Cells(Target.Row, 3) = Date
End If
End Sub

Cordialement

Bernard

 

[anthoYS]

Re : Rajouter une condition à un code (double clic)

Merci beaucoup à toi.