Private Sub CommandButton1_Click()
[MODELE].Copy 'copie la plage
Range("A8").Insert Shift:=xlDown 'l'insère en ligne 8 en décalant vers le bas
Range("E8:F8").ClearContents 'efface les données en "E8:F8"
Application.CutCopyMode = False 'désactive le copier/coller
End Sub
'intervient lors d'un double-click sur une cellule
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 8 And Target.Row > 7 Then 'si colonne = 8 et ligne > 7
Cancel = True 'inhibe le curseur
Target = IIf(Target = "", "X", "") 'si cellule vide --> "X" et inversement
End If
End Sub
'intervient lors du changement de la valeur d'une ou plusieurs cellules
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 And Target.Row > 7 And IsNumeric(Target) Then 'dito précédemment
If Target > 0 Then
Application.EnableEvents = False 'désactive les événements
Target = Target * -1 'multiplie la cellule par -1
Application.EnableEvents = True 'résactive les événements
End If
End If
End Sub