Copier/coller automatique code Macro

Bonjour à tous,

Je suis novice dans l'utilisation des Marcos et j'aurais besoin de votre aide pour effectuer une manœuvre dans le code.

J'ai programmé la Macro ci-dessous et j'aimerais encore y ajouter en action suivante un copier coller de la cellule "date" et "vendeur" sur l'ensemble des cellules vide de la colonne B et C. J'ai du mal à expliqué mais je vous mets mon file en pièce jointe pour être plus claire.

Sub Test ()

' Test Macro

Range("V9:X23").Select

Selection.Copy

Range("D8").Select

Selection.End(xlDown).Select

Range("D" & Rows.Count).End(xlUp).Offset(1).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Dim nom As String

Dim periode As String

Dim vendeur As String

periode = InputBox("Entrez la date", "NomDeLafenêtre")

vendeur = InputBox("Entrez le nom du vendeur", "NomDeLafenêtre")

Range("B" & Rows.Count).End(xlUp).Offset(1).Value = Date

Range("C" & Rows.Count).End(xlUp).Offset(1).Value = vendeur

End Sub

Bonjour aurelam,

je te retourne ton fichier modifié :

* clique sur le 1er bouton "Appart" ; saisis 15/1 ; clic sur OK (ou Entrée) ; saisis Julien ; Entrée

* clique sur le 2ème bouton "Home" ; saisis 16/1 ; clic sur OK (ou Entrée) ; saisis Marc ; Entrée

* tes 3 autres boutons fonctionnent de la même façon.


Alt F11 pour voir le code VBA, puis revenir sur Excel

si besoin, tu peux demander une adaptation.

merci de me dire si ça te convient.

dhany

Bonjour aurelam,

une semaine est passée, et toujours pas de retour !

je crois que le fichier de mon post précédent devrait aller ; si tu repasses par ici et que ton problème est réglé, merci de passer le sujet en résolu : clique sur à droite de (coin haut droit du post); ça permet aussi de clôturer le fil de la discussion (toi seule peut le faire, car c'est toi qui a créé ce sujet).

dhany

Rechercher des sujets similaires à "copier coller automatique code macro"