anthoYS
XLDnaute Barbatruc
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.
Merci par avance
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.
Code:
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 SubMerci par avance