XL 2019 désélectionner un graph

Hasco

XLDnaute Barbatruc

Repose en paix

• 23 Août 2022

• #2

bonjour,

Oublié le . devant Range("A1").Select ?
si la macro est lancée alors qu'une autre feuille est active, c'est le A1 de l'autre feuille qui est sélectionné.
La ligne .PageSetup.PrintArea = "" est inutile, le printArea étant écrasé à la ligne suivante.

Cordialement

 

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 23 Août 2022

• #3

Bonjour Hasco et le forum
Merci pour la réponse même comme cela la macro ne fonctionne pas :erreur 104
Sub ImpJanvier()
With Sheets("Mensuel")
.Range("A1").Select ici : erreur 1004 la méthode select de la classe range à échoué
.PageSetup.PrintArea = .Range("B4:M42").Address
.PageSetup.Orientation = xlLandscape
.PrintPreview
End With
End Sub

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 23 Août 2022

• #4

Re,

Bon on va pas tourner autour du pot bien longtemps. Joignez un fichier !

Si la feuille "Mensuel" Existe et qu'elle est la feuille active il n'y a pas de raison que ça ne fonctionne pas.

Sans fichier, ce sera mon dernier mot !

 

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 23 Août 2022

• #5

Voici le fichier

 

Pièces jointes

• Poids-test.xlsm

  114.9 KB · Affichages: 4

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 23 Août 2022

• #6

Re,

Bon, ben c'est bien ce que je vous disais, il faut activer la feuille !
Pour pouvoir sélectionner quelque chose dans une feuille, il faut que celle-ci soit la feuille active.

La macro ci-dessous fonctionne :

VB:

Sub ImpJanvier()
    With Sheets("Mensuel")
        .Activate
        .Range("A1").Select
        .PageSetup.PrintArea = .Range("B4:M42").Address
        .PageSetup.Orientation = xlLandscape
        .PrintPreview
    End With
 End Sub

Cordialement

 

Vote positif 0 Vote négatif

B

Bruce68

XLDnaute Impliqué

• 23 Août 2022

• #7

Merci Hasco pour la macro ça marche comme je voulais.
Bonne soirée à tous

 

Vote positif 0 Vote négatif