Insérer un bouton dans le code

[justine]

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

 

[petchy]

bonjour Justine

voila le code pour un bouton "CommandButton1"bien sur si il se nome comme ça,sinon change l'apelation.
Private Sub CommandButton1_Click()
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

@ plus
petchy

 

[Hervé]

re

Public Sub justine()
With Sheets("feuil2")
.Range("a" & .Range("a65000").End(xlUp).Row + 1) = Range("a1").Value
End With
End Sub

a collé dans l'objet feuille (clic gauche sur l'onglet, puis visualiser le code)

lui affecté un bouton (boite à outil formulaire).

Salut
Hervé

 

[justine]

Hervé,

ca marche! merci beaucoup!

Justine