Modifier une macro

[klorane]

Bonjour à tout le forum

Voilà, j'utilise cette macro (implantée dans la feuil1):

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("J1")) Is Nothing Then
Range("M65536").End(xlUp).Offset(1, 0).Value = Target.Value
End If

End Sub

Cette macro me recopie dans la colonne M les valeurs de J1 les unes sous les autres.

il faudrait que j'insère une macro casiment identique dans une macro lancée par un bouton.

En plus simple, il faudrait que quand:
->je clique un 1ere fois sur un bouton que la valeur J1 soit copiée en N10.
->je clique un 2eme fois sur un bouton que la valeur J1 soit copiée sous la valeur N10 en N11 etc...

Merci pour votre coup de main

Laurent.

 

[wilfried_42]

Re : Modifier une macro

bonjour klorane

dans un module

public drapeau as boolean

sub bouton1()
if drapeau = true then
range("N11") = J1
drapeau = false
else
range("N10") = J1
drapeau = true
end if

tu crees ton bouton, et tu y associes la macro bouton1

 

[Catrice]

Re : Modifier une macro

Bonjour,

Par exemple :
Sub test()
[N65536].End(xlUp).Offset(1, 0) = [J1]
End Sub


Voir fichier joint.

 

[klorane]

Re : Modifier une macro

Merci à vous deux.

C'est tout à fait se qu'il me fallait.

Bonne journée.

Laurent