Discussion :

[demongin]

Bonjour,

Grâce à la fonction Concatener, j'ai défini dans ma feuille les plages de cellules concernées par la zone d'impression en fonction des choix fait par l'utilisateur.
J'ai également ajouté une partie du code que je pense utile à l'exécution de la macro.
Ainsi, la cellule GQ10 affiche le résultat suivant :

Code :

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

ActiveSheet.Range(A79:CR140,A203:CR342).Address

Le code VBA donne quant à lui :

Code :

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

1
2
3
Dim Plages as String
Plages = Range ("GQ10").Value
ActiveSheet.PageSetup.PrintArea = "Plages"

Cela me donne une erreur 1004, impossible de définir la propriété PrintArea de la classe PageSetup.
J'ai essayé d'autres formulations, mais sans succès.
La finalité est que le code doit lire la plage obtenue dans ma feuille.

Je pense que je fais sans doute une erreur basique de débutant, mais si vous pouvez me donner un petit coup de main, je vous en serais gré.

[zyhack]

Bonjour

pour l'écriture dans la cellule modifie par avec des " " entre les parentheses

Code :

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

ActiveSheet.Range("A79:CR140,A203:CR342").Address

et pour la lecture -> Plages sans " "

Code :

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

1
2
3
Dim Plages As String
Plages = Range("GQ10").Value
ActiveSheet.PageSetup.PrintArea = Plages

[demongin]

Merci pour votre réponse, mais entre temps, je viens d'essayer cette seule ligne de code et cela semble marcher, même si cela à l'air tordu ! :

Code :

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

ActiveSheet.PageSetup.PrintArea = ActiveSheet.Range(Range("GQ10").Value).Address

Qu'en pensez-vous ? une meilleur idée ?

[zyhack]

re

Si la valeur dans la cellule est bonne

Code :

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

ActiveSheet.PageSetup.PrintArea = ActiveSheet.Range("GQ10").Value

suffit non ?

[demongin]

C'était ma première idée, mais cela ne marche pas !
Cela déclenche un message d'alerte : "la zone d'impression que vous avez définie ne comporte qu'une seule cellule. ...."
Donc le contenu de la cellule n'est pas lu, c'est la référence de cellule qui est pris en compte.

[zyhack]

re

pour mettre l'adresse dans la cellule GQ10 tu utilse bien

Code :

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

1
2
Range("GQ10") = Range("A79:CR140,A203:CR342").Address

ce qui doit t'écrire $A$79:$CR$140,$A$203:$CR$342 dans la cellule GQ10


Sinon pourquoi ne pas utiliser directement

Code :

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

1
2
 
ActiveSheet.PageSetup.PrintArea = "A79:CR140,A203:CR342"