Problème zone d'impression

C

Compte Supprimé 979

Guest

• 12 Janvier 2013

• #2

Re : Problème zone d'impression

Salut Fenec

C'est à ça que servent les variables dans VBA 😉

A+

 

Pièces jointes

• Fenec_exemple forum.xls

  49 KB · Affichages: 51
• Fenec_exemple forum.xls

  49 KB · Affichages: 57
• Fenec_exemple forum.xls

  49 KB · Affichages: 56

Dernière modification par un modérateur: 12 Janvier 2013

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 14 Janvier 2013

• #3

Re : Problème zone d'impression

Bonjour le forum, BrunoM45

Merci pour ta variable et désoler pour ma réponse tardive

Viens de tester c’est nickel sauf que maintenant j’enregistre également les boutons et les macros ce que je ne souhaite pas

J’essaie en vain de mettre ta variable dans mon code de départ mais si n’y parviens pas

Un petit coup de main serait gentil sans vouloir abuser

Cordialement

Fenec

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 15 Janvier 2013

• #4

Re : Problème zone d'impression

Bonjour le forum

N'ayant toujours pas résolu mon problème je remonte donc mon poste

Cordialement

Fenec

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 15 Janvier 2013

• #5

Re : Problème zone d'impression

Bonjour Fenec,

Essaye comme ça, le code est mis dans un module

Pour la 1ère partie de

Code:

With ActiveSheet

ça fonctionne
pour la 2ème, je ne sais pas ce que tu veux faire exactement

A+

 

Pièces jointes

• Fenec_exemple forum.xls

  55 KB · Affichages: 54
• Fenec_exemple forum.xls

  55 KB · Affichages: 47
• Fenec_exemple forum.xls

  55 KB · Affichages: 54

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 16 Janvier 2013

• #6

Re : Problème zone d'impression

Bonjour le forum, BrunoM45

Viens de tester c’est nickel mais aurais encore besoin de vos lumières

J’ai rajouté deux lignes pour supprimer le reste du fond vert
Je pense que tu aurais fait autrement mais je n’ai pas trouvé mieux

Code:

Range("A4:A65536,R11:AE65536,Q4:Q65536,AF4:IV65536").Interior.ColorIndex = xlNone

Et

Code:

Range("A4:A65536,R11:AE65536,Q4:Q65536,AF4:IV65536").Interior.ColorIndex = 10

Je rencontre néanmoins encore deux problèmes

Le 1er : quand j’archive je rencontre une erreur « d’excécution’13’ incompatibilité de type » avec le dernier code dans ma feuille

La 2ème : si je rajoute un graphique ca ne l’archive pas

Je me rends compte que je n’aurais pas du simplifié mon fichier exemple autant

Cordialement

Fenec

 

Pièces jointes

• Fenec_exemple forum 2.xls

  57.5 KB · Affichages: 49

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 16 Janvier 2013

• #7

Re : Problème zone d'impression

Bonsoir Fenec

Pour ton 1er problème, je t'ai dis que je ne savais pas ce que tu souhaitais faire après l'archivage
Si tu veux que l'on t'aide, il faut nous expliquer ....

Pour ton 2ème problème, un graphique est un objet et j'ai mis une petite boucle pour supprimer tous les objets de la feuille
il faut donc le modifier comme suit

Code:

    ' Supprimer uniquement les Formes automatiques "AutoShape" de la feuille (boutons)
    For Each Shp In .Shapes
      If Left(Shp.Name, 9) = "AutoShape" Then Shp.Delete
    Next Shp

A+

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 16 Janvier 2013

• #8

Re : Problème zone d'impression

Bonsoir BrunoM45

En fait je désire archiver mes données et le graphique afin de pouvoir l’envoyer par mail et que la personne qui le reçoit puisse l’imprimer donc inutile d’avoir les boutons ni les macros

Venant de modifier le code pour le graphique il est bien archivé mais n’est pas imprimable

A+

 

Vote positif 0 Vote négatif