repeter cette macro

[zesuila]

ANNULÉ cause doublon - repeter cette macro

le bon post est un peu plus haut et j'ai eu la réponse ! par Pierrejean - merci toutefois à Michel


hello
comment faire pour éviter d'appuyer à chaque fois sur le bouton pour que cette macro s'effectue en boucle ! (quel fainéant je fais !)

Option Explicit

Private Sub Btn_Transfert_Click()
'Range("A1", Range("A" & Rows.Count).End(xlUp)).Copy
'With ThisWorkbook.Sheets("Feuil2")
' .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues, , , True
'End With
'Application.CutCopyMode = False

Range("A1:A4").Copy
With ThisWorkbook.Sheets("Feuil2")
.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues, , , True
End With
Application.CutCopyMode = False
With ThisWorkbook.Sheets("Feuil1")

Range("A1:A5").Delete
End With

End Sub

merci

 

[MJ13]

Re : repeter cette macro

Bonjour

Essaye

goto

 

[zesuila]

Re : repeter cette macro

bonjour Michel
goto ?

 

[MJ13]

Re : repeter cette macro

Re

Tu peux essayer de mettre goto suite à la fin de ta macro . Normalement cela boucle.

Sinon comme tu as doublonné, tu peux éditer ton premier message, supprimer ton texte mettre "excusez Doublon voir" et le lien vers cette discussion.