Problème zone d'impression

[fenec]

Bonjour le forum

Bonne et heureuse année à tous et toutes

Je rencontre un problème avec ma zone d’impression.
Je m’explique, dans mon code si j’écris:

.PrintArea = "B4:P19,R4:AF10"

Ma zone est bien définie mais le problème est que si je rajoute des lignes ma zone ne se mets pas automatiquement à jour en fonction du nombre de lignes insérées sachant que seule la première zone varie

"B4:P19"

Cordialement

Fenec

 

[Compte Supprimé 979]

Re : Problème zone d'impression

Salut Fenec

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

A+

 

[fenec]

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

 

[fenec]

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

 

[Compte Supprimé 979]

Re : Problème zone d'impression

Bonjour Fenec,

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

Pour la 1ère partie de

With ActiveSheet

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

A+

 

[fenec]

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

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

Et

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

 

[Compte Supprimé 979]

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

    ' 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+

 

[fenec]

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+