800vfr76
XLDnaute Occasionnel
Bonjour a tous,
Je deplace des valeurs avec cette formule
Mais je voudrais une condition, que la valeur se déplace seulement si elle est dans colonne D.
Comment peut-on écrire cela?
Merci a vous pour votre aide.
Je deplace des valeurs avec cette formule
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With ActiveCell
ActiveCell.Select
If ActiveCell = "" Then
Exit Sub
End If
Selection.Cut
ActiveCell = .Offset(0, 1).Select
ActiveSheet.Paste
End With
End sub
Mais je voudrais une condition, que la valeur se déplace seulement si elle est dans colonne D.
Comment peut-on écrire cela?
Merci a vous pour votre aide.