aide petite macro sous excel. Résolu/Fermé

Question

Bonjour,

Je me tourne vers vous car vous êtes mon dernier espoir.

je cherche à créer une macro sur excel mais cela est bien trop compliqué pour moi. 

vous trouverez mon fichier exemple ici : https://www.cjoint.com/?BHEpdw6v3Yf


Ce que je cherche à faire, c'est que la ligne allant de T8 à AF28 dans l'onglet "recherche" soit collé dans l'onglet devis de la ligne A4 à M4. je veux affecter cette macro au bouton "sauvegarde des données vers devis". 

pour faire simple, je veux qu'en appuyant sur le bouton "sauvegarde des données vers devis" la ligne allant de T8 à AF28 de "l'onglet recherche" soit copié puis collé dans l'onglet "devis" de la ligne A4 à M4. puis lorsque que l'on appuie de nouveau sur le bouton "sauvegarde des données vers devis", la ligne de l'onglet "recherche" soit de  nouveau collé dans l'onglet devis mais en dessous de la première soit de A5 à M5, ainsi de suite...

Merci d'avance pour votre précieuse aide.

Dans l'attente de vous lire.

Cordialement.

zarmaaaaaaa

f894009 · Answer

Bonjour,

Votre fichier macro copier_coller modifiee:

https://www.cjoint.com/?BHEqLDdDdO3

Bonne suite

Morgothal · Answer

Bonjour, 
Votre fichier modifié également : 
https://www.cjoint.com/?BHEqPFHHRaN 

Ceci dit la solution de f894009 est plus complète ;)
  
------------------- 
Cordialement, 
Clément

Mytå · Answer

Salut le forum

Essaye avec ceci

Sub CopieDevis()

Dim WsSrc As Worksheet
Dim WsDst As Worksheet

    Set WsSrc = Sheets("recherche")
    Set WsDst = Sheets("devis")

    WsSrc.Range("T8:AF8").Copy
    WsDst.Range("A20").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False
Set WsSrc = Nothing
Set WsDst = Nothing

End Sub

Mytå

Aide petite macro sous excel.

3 réponses

Discussions similaires