J
justine
Guest
Salut à tous!
voici le code que Hérvé m'adonné sur le forum:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("a1")) Is Nothing Then
With Sheets("feuil2")
.Range("a" & .Range("a65000").End(xlUp).Row + 1) = Target.Value
End With
End If
End Sub
Ce code marche parfaitement bien, c'est parfait! Cependant, j'aimerais que l'action se réalise, non pas après avoir appuyer sur entrée lorsque on a entré la valeur dans la cellule, mais après avoir clické sur un bouton.
Que dois-je modifier dans le code?
Merci à tous
Justine
voici le code que Hérvé m'adonné sur le forum:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("a1")) Is Nothing Then
With Sheets("feuil2")
.Range("a" & .Range("a65000").End(xlUp).Row + 1) = Target.Value
End With
End If
End Sub
Ce code marche parfaitement bien, c'est parfait! Cependant, j'aimerais que l'action se réalise, non pas après avoir appuyer sur entrée lorsque on a entré la valeur dans la cellule, mais après avoir clické sur un bouton.
Que dois-je modifier dans le code?
Merci à tous
Justine