macro imprimer

[gui59300]

Bonjour

j'ai un classeur dans lequel je dois imprimer des données filtrées.

Pour ne pas avoir de problème avec les filtres je souhaite creer une macro que fasse un copier de la feuille servant de base et ensuite coller dans une autre feuille.

J'ai deux soucis avec ma macro :

La cellule C2 se vide tout le temps dans la feuille de données.
Je voudrais que les boutons ne se copie pas.

 

[Caillou]

Re : macro imprimer

Bonjour,

1) Dans la macro associé au bouton imprimer (Macro1), supprimes l'avatn dernière ligne
ActiveCell.FormulaR1C1 = ""
c'est elle qui efface C2

2) Pour ne pas copier un bouton :
Clic droit/Format de contrôle/onglet Propriétés/choisir "Na pas déplacer ou dimensionner avec les cellules

Caillou

 

[gui59300]

Re : macro imprimer

merci il fonctionne parfaitement

 

[gui59300]

Re : macro imprimer

J'ai un dernier soucis avec le fichier

Lorsque je clique sur imprimer la macro se lance, mais une fois la macro lancé le menu déroulant à droite devient très grand. 😕 je ne comprend pas pourquoi et sur cela alourdit bcp lz fichier. Il passe de 150KILO à 5000KILO

 

[Caillou]

Re : macro imprimer

Re,

Désolé, je n'ai pas ce problème lorque je lance la macro!

Caillou

 

[gui59300]

Re : macro imprimer

J'ai ce problème quand je clique sur le bouton fiche a remplir par le contrôle puis ensuite cliquer sur le bouton imprimer

 

[gui59300]

Re : macro imprimer

personne ne voit à quoi est du l'erreur

 

[gui59300]

Re : macro imprimer

J'ai beau chercher je ne vois pas l'erreur quelqu'un a une idée ?

 

[gui59300]

Re : macro imprimer

Personne n'a d'idée ?

 

[Caillou]

Re : macro imprimer

Re,

Je n'ai aucun problème avec un menu qui deviendrait grand !!!!!!

Par contre, pour la taille du fichier, c'est la copie qui l'alourdit. Donc dans la macro, au lieu de copier toute la feuille, tu peux par exemple, ne copier qu'un nombre convenu de lignes.

Exemple la macro ci-dessous copie 500 lignes :

Sub Macro1()
    Sheets("autocontrôle mf2000").Select
    Rows("1:500").Select
    Selection.Copy
    Sheets("imprimer").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("autocontrôle mf2000").Select
    Range("A1").Select
    Application.CutCopyMode = False
End Sub

Caillou

 

[gui59300]

Re : macro imprimer

Re,

Je n'ai aucun problème avec un menu qui deviendrait grand !!!!!!

Par contre, pour la taille du fichier, c'est la copie qui l'alourdit. Donc dans la macro, au lieu de copier toute la feuille, tu peux par exemple, ne copier qu'un nombre convenu de lignes.

Exemple la macro ci-dessous copie 500 lignes :

Sub Macro1()
    Sheets("autocontrôle mf2000").Select
    Rows("1:500").Select
    Selection.Copy
    Sheets("imprimer").Select
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("autocontrôle mf2000").Select
    Range("A1").Select
    Application.CutCopyMode = False
End Sub

Caillou

merci le problème devait venir de la quantité de cellule