Déplacement simple d'un tableau avec un bouton

Bonjour à tous,

Mes connaissances macro et VBA étant limitées, je fais appel à vos services.

Quel est la macro à créer en rapport à :

Pouvoir déplacer le tableau C7/H22 vers J13/O28 avec un bouton ceci permettant d'avoir une automatisation.

En vous remerciant par avance.

Bonjour alg,

Vous avez la possibilité d'enregistrer une macro normalement

Vous avez juste à effectuer l'action après avoir lancer l'enregistrement, puis vous le stoppez

Et vous avez ainsi le code

Sinon comme ça à la louche

Range("C7:H22").Copy Destination:=Range("J13")
Range("C7:H22").ClearContents

Edit : correction faite "Destination" et non "Desination"

Cordialement

bonjour le fil

     Range("C7:H22").Cut
     ActiveSheet.Paste Range("J13")

@BsAlv

Toujours aussi expressif

Perso je préfère un copier/coller, effacer contenu. Je garde ainsi la mise en forme des cellules d'origines

Merci pour vos propositions, en l’occurrence j'ai affecté le bouton par exemple :

Range("C7:H22").Copy Desination:=Range("J13")
Range("C7:H22").ClearContents

j'ai ajouté un t à destination, ça bloquait

Sub Bouton1()
Range("C7:H22").Copy Destination:=Range("J13")
Range("C7:H22").ClearContents
End Sub

J'ai enregistré, ça fonctionne quand je suis le classeur.

Mais ensuite si je ferme le classeur et que je le relance, l'affectation lié au bouton

a disparu, même problème avec :

Range("C7:H22").Cut
     ActiveSheet.Paste Range("J13")

?? Est-ce dû au fait qu'il n'y ait pas de macro ? ou comment faire ?

Re,

Bien entendu, un fichier contenant du code VBA doit être enregistré au format ".XLSM" et pas autre chose

Super merci à tous pour vos solutions, pigé !