Sujet Précédent Sujet Suivant

Aide petite macro sous excel.

Résolu/Fermé
zarmaaaaaaa Messages postés 6 Date d'inscription jeudi 30 août 2012 Statut Membre Dernière intervention 6 septembre 2012 - 30 août 2012 à 15:11
zarmaaaaaaa Messages postés 6 Date d'inscription jeudi 30 août 2012 Statut Membre Dernière intervention 6 septembre 2012 - 3 sept. 2012 à 15:13
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 mardi 20 janvier 2009 Statut Contributeur Dernière intervention 20 décembre 2016 942
30 août 2012 à 17:32
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
30 août 2012 à 16:38
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 jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 183
Modifié par Morgothal le 30/08/2012 à 16:43
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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
Modifié par f894009 le 30/08/2012 à 16:59
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 jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 183
30 août 2012 à 17:02
Exact, comme j'ai testé sur la page devis ça marchait quand même ^^
Fichier corrigé
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
Modifié par f894009 le 30/08/2012 à 17:06
Re,
Sorry,Sorry mais ca ne marche pas. Excel n'est pas d'accord.
0
Morgothal Messages postés 1236 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 19 mai 2015 183
30 août 2012 à 17:52
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 jeudi 30 août 2012 Statut Membre Dernière intervention 6 septembre 2012
31 août 2012 à 10:00
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

A quoi correspond cette croix sur snapchat
Sbnet -
Lili -

6 réponses
Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses