Bonjour à tous !
J'ai un petit problème de comptabilité pour un code vba entre excel 2002 (version sur laquelle j'ai rentré le code) et excel 2007.
Etant donné que je ne connais pas ce language, je poste mon code ici pour demander la traduction sur excel 2007 😀
Merci infinimment !
Bonne journée
J'ai un petit problème de comptabilité pour un code vba entre excel 2002 (version sur laquelle j'ai rentré le code) et excel 2007.
Etant donné que je ne connais pas ce language, je poste mon code ici pour demander la traduction sur excel 2007 😀
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, [D12:D65536]) Is Nothing Then
Cancel = True
If Target.Offset(, 3) < Target.Offset(, 4) Then MsgBox "Stock insuffisant..."
Target = Target.Offset(, 3)
Target.Offset(, 1).Resize(, 2) = ""
End If
End Sub
Bonne journée