Re : Coller par simple click
Re,
Autant pour moi, j'avais mal lu l'énoncé, il faut enlever une ligne :
Private Sub CommandButton1_Click()
CommandButton1.Caption = IIf(CommandButton1.Caption = "Arrêter", "Démarrer", "Arrêter")
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And CommandButton1.Caption = "Arrêter" Then
Target.Value = Range("C1").Value
End If
End Sub
Voir le fichier joint