Discussion :

[Sop-débutant]

Bonjour à tous,

Tout d'abord, je m'excuse d'ouvrir un nouveau sujet sur ce thème qui est récurrent. J'ai bien essayé de récupérer des informations dans les post des différentes personnes qui ont bloqué dessus, malheureusement j'ai des erreurs dans l'application à mon cas de figure.

Je souhaiterais définir une zone d'impression en fonction du contenu d'une cellule.

Plus précisement :
1. définir une zone d'impression dans ma Feuil2 de la cellule A1 à une cellule colonne J, ligne 245 + 120 * la valeur de la cellule Feuil1 - F2 ;
2. Lancer l'impression sur l'imprimante par défaut.

Ca ne doit pas être compliqué mais ma tentative se solde par un échec.

Merci d'avance pour votre aide !

[thekat]

code brut d'une sélection dans une feuille :

Code :

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

1
2
3
4
5
6
7
sub imprimRange
 
 Range("A1:J50").Select
 
    ActiveSheet.PageSetup.PrintArea = "$A$1:$J$50"
 
end sub[/COLOR]

après on peut broder sur le range et le printarea (attention aux dollars) du code Range("A1:J50").Select pour lier

la zone d'impression à la relation : ligne 245 + 120 * la valeur de la cellule Feuil1 - F2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub SelectZoneAJ()
 
'composition du range de sélection
 
'fin colonne J
addrJ = 245 + 120 * Range("F2")
 
'assemblage dans variable R
R = "A" & 1 & ":J" & addrJ
 
'selection du range calculé
Range(R).Select
 
 End Sub