Discussion :

[jane2776]

Bonjour,

je me permet ce post malgré le fait que je sois plus que novice... En effet j'ai un document dont la macro a été accidentellement supprimée et qui avait été créée bénévolement par quelqu'un qui n'est plus là aujourd'hui.

J'ai essayé pendant 2h de trouver des solutions via votre forum mais en vain Je fais donc appel à votre génie et votre bonté pour m'aider

Je dois créer une macro qui :

- copie la ligne sur laquelle l'utilisateur a sélectionné une cellule
- colle cette ligne dans une autre feuille (nom de la feuille d'origine : jan / nom de la feuille d'arrivée : ESSAI)
- imprime la feuille nommée "Impression"
- sélectionne automatiquement la ligne ou cellule de la ligne en dessous celle de départ

J'espère que tout est bien clair, n'hésitez pas à me demander plus d'infos ...
Je vous remercie d'avance pour vos réponses

si on post dérange je le supprimerais sans problème

Bonne journée
Jeanne P.

[Mobydick_62]

Bonjour,

En pièce jointe un fichier exemple.
Pour ce qui est de l'impression il faudra tester, car actuellement mon imprimante est hors service.

A l'avenir ne pas hésiter à joindre ton fichier d’origine que tu auras préalablement anonymisé. Cela permettra à ceux qui t'aideront d'y insérer les macros sans avoir à devoir recréer un nouveau fichier.

Cordialement

COPIER-COLLER.ods

[jane2776]

Bonjour,
merci beaucoup !
Ne pouvant pas mettre sur le net le fichier original j'ai créer un fichier avec les 3 feuilles qui nous intéresse afin que ce soit plus clair

Pour ce qui est de la macro :
La ligne de départ est bien copiée dans la feuille "ESSAI" mais elles se copient les unes après les autres. Or je cherche à copier la ligne de "jan" toujours dans la 1ère ligne de la feuille "ESSAI"

Pour l'impression, comme je veux imprimer la zone A2 à B31 j'ai modifié dans la macro. Est-ce que c'est bon comme ça ?
J'ai essayé avec mon imprimante mais rien ne se lance, il y a peut-être des manip à faire ?

Encore merci beaucoup !!

[Mobydick_62]

Bonjour,

Corrections effectuées.

J'ai aussi modifié le code de l'impression et là çà fonctionne.

Cordialement

Fichier test macro.ods

[jane2776]

Bonjour,
super merci beaucoup ! Il y avait juste la ligne CurrentController.ActiveSheet = oFeuilleImpression sur laquelle le programme me disait "objet non défini" mais en rajoutant ThisComponent. avant ça a fonctionné

Toute l'équipe ayant besoin de ce document vous remercie énormément !!
Bien à vous
Bonne journée
Jeanne