Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 désélectionner un graph

Bruce68

XLDnaute Impliqué
bonjour à tous
J'ai cette macro pour visualiser mes 12 graphiques, il m'arrive de sélectionner un grap pour faire une modif, mais quand je sélectionne un graph par macro
c'est celui sélectionné que je vois, j'ai rajouté la ligne: Range("A1").Select mais cela ne fonctionne pas.
Que faut il faire pour déselectionner le graph avant visualisation.
Je vous remercie de votre aide

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

Hasco

XLDnaute Barbatruc
Repose en paix
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
 

Bruce68

XLDnaute Impliqué
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
 

Hasco

XLDnaute Barbatruc
Repose en paix
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 !
 

Hasco

XLDnaute Barbatruc
Repose en paix
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…