Discussion :

[nawake]

Bonjour,

Ma macro doit déclarer "la zone d'impression" de plusieurs feuilles.

Mais quand j'essaye de déclarer la zone ca me donne une erreur, voici un morceau du code (Onglet est un objet Worksheet) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Onglet.Name = "AMT" Or Onglet.Name = "Suivi global" Then
      Onglet.PageSetup.PrintArea = "$A$1:$S$31;$A$33:$S$83;$A$85:$S$126;$A$128:$S$147;$A$149:$S$171;$A$173:$S$223;$A$225:$S$267;$A$269:$S$288" & _
       ";$A$290:$S$" & (Numéro_Ligne + Plage.Row - 1) 
End If

La valeur que je veut mettre est celle ci (copié à partir de l'espion) :
"$A$1:$S$31;$A$33:$S$83;$A$85:$S$126;$A$128:$S$147;$A$149:$S$171;$A$173:$S$223;$A$225:$S$267;$A$269:$S$288;$A$290:$S$307"


Est ce que quelqu'un sait comment définir plusieurs zones?
Merci

[Gorfael]

Salut nawake et le forum
Essaies ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If Onglet.Name = "AMT" Or Onglet.Name = "Suivi global" Then
      Onglet.PageSetup.PrintArea = "$A$1:$S$31,$A$33:$S$83,$A$85:$S$126,$A$128:$S$147,$A$149:$S$171,$A$173:$S$223;$A$225:$S$267;$A$269:$S$288" & _
       ",$A$290:$S$" & (Numéro_Ligne + Plage.Row - 1) 
End If

A+

[nawake]

Salut

Avec les virgules ca ne marche pas non plus

Je n'ai toujours pas trouver de solution pour mon problème, pour le moment, j'écrit dans une cellule vers le haut de page et la personne qui crée le rapport (avec la macro) copie le contenu de cette cellule pour le coller dans la mise en page de chaque onglet du rapport. Le problème c'est qu'il y a plein d'onglets et que j'aimerais bien le faire par la macro.

Si vous savez comment faire, faite le moi savoir svp

++

[nawake]

RE re

J'ai trouvé

explication:

ceci bug avec ou sans les "$" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.PageSetup.PrintArea = "A1:A2;B2:C8"

ceci bug avec ou sans les "$" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.PageSetup.PrintArea = "A1:A2,B2:C8"

ceci bug avec ou sans les "$" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.PageSetup.PrintArea = ActiveSheet.Range("A1:A2;B2:C8").Address

et ceci fonctionne avec ou sans les "$" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.PageSetup.PrintArea = ActiveSheet.Range("A1:A2,B2:C8").Address

voila ++