Aide petite macro sous excel.

Résolu
zarmaaaaaaa Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -  
zarmaaaaaaa Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

3 réponses

Réponse 1 / 3
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
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å
1
Réponse 2 / 3
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Votre fichier macro copier_coller modifiee:

https://www.cjoint.com/?BHEqLDdDdO3

Bonne suite
0
Réponse 3 / 3
Morgothal Messages postés 1236 Date d'inscription   Statut Membre Dernière intervention   183
 
Bonjour,
Votre fichier modifié également :
https://www.cjoint.com/?BHEqPFHHRaN

Ceci dit la solution de f894009 est plus complète ;)

-------------------
Cordialement,
Clément
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Vous avez oublie quelque chose devant Range("A" & ligne & ":M" & ligne).Select
Ce qui fait le coller sur Sheets("recherche") puisque c'est l'onglet actif

Sorry
0
Morgothal Messages postés 1236 Date d'inscription   Statut Membre Dernière intervention   183
 
Exact, comme j'ai testé sur la page devis ça marchait quand même ^^
Fichier corrigé
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,
Sorry,Sorry mais ca ne marche pas. Excel n'est pas d'accord.
0
Morgothal Messages postés 1236 Date d'inscription   Statut Membre Dernière intervention   183
 
Rolala que je suis mauvais
Mais un .Select sur un Range n'est plus possible ?

Si quelqu'un a la réponse à mon problème je suis preneur... (désolé zarmaaaaa, Mytå a la réponse et moi j'ai un souci ^^)
0
zarmaaaaaaa Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
bonjour messieurs (enfin je suppose),

je ne comprend pas... j'ai pris ta macro (morgothal) et il n'y a pas de soucis... quel problème devrait apparaître ??
0

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses