Macro

Bonjour à toutes et à tous.

Voici mon soucis.

dans un classeur j'ai FEUILLE1 et FEUILLE2

Je souhaiterais faire une macro avec un raccourci clavier CTRL+R pour que :

les cellules D17, F4, H35, D38 de la FEUILLE1 se copie sur FEUILLE2

D17 doit etre copié sur A124 de la FEUILLE2

F4 doit etre copié sur B124 de la FEUILLE2

H35 doit etre copié sur D124 de la FEUILLE2

D38 doit etre copié sur E124 de la FEUILLE2

Il faudrais qu'à chaque fois que je fasse CTRL+R que ces cellules soit copiés sur la prochaine ligne vide de la FEUILLE2

S'il vous plait ca fait des mois que j'essai des codes en pagailles, mais rien trouver.

Quelqu'un pourrait m'aider?

Bonjour et bienvenu(e)

A tester

Merci de la réponse aussi rapide, par contre j'ai télécharger le classeur, j'ai fait CTRL+ R ca ne recopie rien en ligne 124

je ne vois aucune macro dans ce classeur

Bonjour,

CTRL + SHIFT+ R

Tu peux aussi mettre un bouton ( Ici une étoile) pour activer cette macro

Magnifique merciiiiiiiii c'est ce que je cherche, tu es trop fort, merciiiiiiiiii

je vais surement avoir besoin de ton aide par la suite, merci encore

Bonjour

pouns94 a écrit :

j'ai fait CTRL+ R ca ne recopie rien en ligne 124

As tu fais Ctrl + Shift (Majuscule) + R

Tu as bien demandé avec R en majuscule ?

si ma feuille 2 s'appelle SITUATION FACTURATION

comment dois-je l'ecrire dans la macro? avec un espace ou attaché?

J'ai fait une erreur

F11 doit etre copier en B124 de la feuille 2

F4 doit etre copier en C124 de la feuille 2

r minuscule serait parfait

Bonjour

A tester

MERVEILLEUX !!!!! bravo banzai.

Derniere question :

Je souhaite prendre la macro que tu as fait sur ce classeur et la mettre dans le classeur en question

Comment m'y prendre?

Bonjour

Simplement

Pour aller dans l'éditeur VBA : Alt + F11

Tu insères un module dans le nouveau classeur

Tu copie la macro du module de l'ancien classeur

Tu colles cette macro dans le module du nouveau classeur

Dans le ruban : Onglet "Développeur" -->Macros --> Tu sélectionnes dans la liste la macro "Recopie"-->Options --> tapes la lettre r --> Ok--> Annuler

C'est fini

HONNETEMENT?? tu es au top !!

merciiiii bcp

merciiii

Derniere question, comment puis mettre un bouton au lieu de faire ctrl r

merci d'avance

Bonsoir

Je crois que bernard22 l'avait fait

Voir son fichier

Effectivement, j'ai reussi à mettre un jolie bouton. merci bernard

J'ai une macro qui s'active en ctrl d

je vient de rajouter un bouton en faisant developpeur, puis inserer, puis bouton de commande (contrôle activeX)

il faut que je fasse quoi pour inserer ma macro existante en ctrl d à ce nouveau bouton de commande?

Je n'arrive pas a comprendre une chose, j'ai copier coller le bouton de bernard dans mon classeur, et a chaque fois que je clique sur le bouton, ca m'ouvre son classeur aussi. si j'efface son classeur de mon pc , j'ai une erreur lorsque je demarre le miens.

Bonjour

Le Ctrl + r ne te plait plus ?

Un petit peu plus compliqué

Une fois le bouton créé

Clic droit dessus --> Visualiser le code

Tu vas arriver dans une fenêtre le code d'appel du bouton

entre les 2 lignes tu écris "recopie" sans les guillemets

Tu effaces Private

Tu vas obtenir

Sub CommandButton1_Click()
  Recopie
End Sub

Dans le ruban : Onglet "Développeur" -->Macros --> Tu sélectionnes dans la liste la macro "......CommandButton1_Click"-->Options --> tapes la lettre d --> Ok--> Annuler

pouns94 a écrit :

chaque fois que je clique sur le bouton, ca m'ouvre son classeur

Tu as copier aussi le lien avec la macro du classeur

Clic droit sur le bouton ---> Affecter une macro -->Dans la liste déroulante (en bas) choisis "Ce classeur" --> Dans la liste choisis "Recopie"

Tu es trop fort, merciiiiiii !! j'ai reussi enfin !!

Par contre pour le bouton, j'ai créer mon bouton

ou dois je mettre cette macro pour qu'elle fonctionne avec mon nouveau bouton (elle me permet de detacher seulement la feuille qui est ouverte dans un nouveau classeur,

Sub facture()

'

' facture Macro

'

' Touche de raccourci du clavier: Ctrl+f

'

Sheets("FACTURE").Select

Sheets("FACTURE").Copy

Windows("Devis et Facture.xlsm").Activate

End Sub

Bonjour

A placer dans un module

La même en s'affranchissant du nom du fichier

Sub facture()
'
' facture Macro
'
' Touche de raccourci du clavier: Ctrl+f
'
  Sheets("FACTURE").Copy
  ThisWorkbook.Activate
End Sub

Je ne sais pas comment faire, je clique droit sur le bouton et je clique sur visualiser le code?