ventesprivee
XLDnaute Nouveau
bonjour
j'ai actuellement un code qui me permet de mettre des temps sur une plage de données.
code : Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("F5:F100,G5:G100,J5:J100,K5:K100,N5:N100,O5:O100,R5:R100,S5:S100,V5:V100,W5:W100,Z5:Z100,AA5:AA100,AD5:AD100,AE5:AE100,AH5:AH100,AI5:AI100,AL5:AL100,AM5:AM100,AP5:AP100,AQ5:AQ100,AT5:AT100,AU5:AU100,AX5:AX100,AY5:AY100")) Is Nothing Then ActiveCell.Value = Now()
End Sub
cependant j'ai fait un bouton macro pour effacer d'un coup ces données, comment faire ? merci
j'ai actuellement un code qui me permet de mettre des temps sur une plage de données.
code : Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("F5:F100,G5:G100,J5:J100,K5:K100,N5:N100,O5:O100,R5:R100,S5:S100,V5:V100,W5:W100,Z5:Z100,AA5:AA100,AD5:AD100,AE5:AE100,AH5:AH100,AI5:AI100,AL5:AL100,AM5:AM100,AP5:AP100,AQ5:AQ100,AT5:AT100,AU5:AU100,AX5:AX100,AY5:AY100")) Is Nothing Then ActiveCell.Value = Now()
End Sub
cependant j'ai fait un bouton macro pour effacer d'un coup ces données, comment faire ? merci