OVH Cloud OVH Cloud

sélection impression

15 réponses
Avatar
JACK 43
Bonjour,

Voilà je souhaite associer à une macro un bouton. Ce bouton déclencherai
l'impression de la sélection.

Voilà mon problème la plage à imprimer sera toujours de la même largeur
(cellule A à F mais pour la longueur on débute en 1 mais on devrait finir sur
la dernière ligne où l'on trouve une valeur en A (absolument en A car de B à
F j'ai des totaux sur la ligne 300)

MERCI A+

10 réponses

1 2
Avatar
JB
Bonjour

Range([A1], [A1].End(xlDown).End(xlToRight)).PrintOut

Cordialement JB
Avatar
LSteph
Bonjour Jack43,
(un petit retour sur les fils pour savoir si la réponse convient est
généralement apprécié)
Ton titre est Sélection Impression mais on pourrait me semble-t-il se passer
du select
toutefois je le laisse pour plus de clarté et si j'ai bien compris ton
souhait:

Sub AFbyAprint()
Range([a65536].End(xlUp), [f1]).Select
Selection.PrintOut
End Sub

'lSteph

"JACK 43" (sansspam)> a écrit dans le message de
news:
Bonjour,

Voilà je souhaite associer à une macro un bouton. Ce bouton déclencherai
l'impression de la sélection.

Voilà mon problème la plage à imprimer sera toujours de la même largeur
(cellule A à F mais pour la longueur on débute en 1 mais on devrait finir
sur
la dernière ligne où l'on trouve une valeur en A (absolument en A car de B
à
F j'ai des totaux sur la ligne 300)

MERCI A+


Avatar
JACK 43
Bonjour,

La macro fonctionne, malheureusement elle imprime jusqu'à la ligne 300. En
effet, la macro je pense ne trouve pas les cellules vides car il y a des
formules.

Visuellement elles sont vides mais elles ont toutes une formule. Donc est-il
possible d'imprimer en sélectionnant la plage d'impression contenant la
dernière valeur en A.

Par ailleurs j'ai le même problème pour un encadrement de cellules. Je
souhaitais effectuer un encadrement jusqu'à la dernière ligne où il y a une
valeur avec la mise en forme conditionnelle et la formule suivante :
=NBVAL($A30:$D30)>0 puis format bordure. Mais toute la plage est encadrée
même où il n'y a pas de valeurs apparentes car il y a des formules dans
chaque cellules.

MERCI ET A+





**************************************
"LSteph" wrote:

Bonjour Jack43,
(un petit retour sur les fils pour savoir si la réponse convient est
généralement apprécié)
Ton titre est Sélection Impression mais on pourrait me semble-t-il se passer
du select
toutefois je le laisse pour plus de clarté et si j'ai bien compris ton
souhait:

Sub AFbyAprint()
Range([a65536].End(xlUp), [f1]).Select
Selection.PrintOut
End Sub

'lSteph

"JACK 43" (sansspam)> a écrit dans le message de
news:
Bonjour,

Voilà je souhaite associer à une macro un bouton. Ce bouton déclencherai
l'impression de la sélection.

Voilà mon problème la plage à imprimer sera toujours de la même largeur
(cellule A à F mais pour la longueur on débute en 1 mais on devrait finir
sur
la dernière ligne où l'on trouve une valeur en A (absolument en A car de B
à
F j'ai des totaux sur la ligne 300)

MERCI A+







Avatar
LSteph
Bonjour,
si elles sont vides , elles ne contiennent pas de valeur,
si elles contiennent une formule elles ne sont pas vides,
le xlup s'arrête où il doit!
Si on imprime seulement les cellules où apparaît quelquechose,
on saute ce où il n' ya rien à imprimer, et si on l'imprimait qd même il
n'y paraîtrait rien.
Donc si tu mets un exemple sur http://cjoint.com
je comprendrais mieux ce que tu veux.

A+

lSteph
"JACK 43" (sansspam)> a écrit dans le message de
news:
Bonjour,

La macro fonctionne, malheureusement elle imprime jusqu'à la ligne 300. En
effet, la macro je pense ne trouve pas les cellules vides car il y a des
formules.

Visuellement elles sont vides mais elles ont toutes une formule. Donc
est-il
possible d'imprimer en sélectionnant la plage d'impression contenant la
dernière valeur en A.

Par ailleurs j'ai le même problème pour un encadrement de cellules. Je
souhaitais effectuer un encadrement jusqu'à la dernière ligne où il y a
une
valeur avec la mise en forme conditionnelle et la formule suivante :
=NBVAL($A30:$D30)>0 puis format bordure. Mais toute la plage est
encadrée
même où il n'y a pas de valeurs apparentes car il y a des formules dans
chaque cellules.

MERCI ET A+





**************************************
"LSteph" wrote:

Bonjour Jack43,
(un petit retour sur les fils pour savoir si la réponse convient est
généralement apprécié)
Ton titre est Sélection Impression mais on pourrait me semble-t-il se
passer
du select
toutefois je le laisse pour plus de clarté et si j'ai bien compris ton
souhait:

Sub AFbyAprint()
Range([a65536].End(xlUp), [f1]).Select
Selection.PrintOut
End Sub

'lSteph

"JACK 43" (sansspam)> a écrit dans le message
de
news:
Bonjour,

Voilà je souhaite associer à une macro un bouton. Ce bouton
déclencherai
l'impression de la sélection.

Voilà mon problème la plage à imprimer sera toujours de la même
largeur
(cellule A à F mais pour la longueur on débute en 1 mais on devrait
finir
sur
la dernière ligne où l'on trouve une valeur en A (absolument en A car
de B
à
F j'ai des totaux sur la ligne 300)

MERCI A+









Avatar
JACK 43
vec le lien celà est mieux, mes excuses !!!!!!!

http://cjoint.com/?mqs1REVxBv


Bonsoir LSteph

Effectivement un exemple vaut mieux que toutes les explications du monde (en
espérant bien utiliser cijoint.com

Donc dans l'exemple, qui est en réalité les 6 premières colonnes de mon
tableau, je souhaite que l'impression s'arrête à la ligne 32. donc mon
souhait est impression
de la plage C9 : Hn (n : étant dans mon exemple 32 ) pour un soucis de
simplificassion j'ai arrêté mes formules à la ligne 44 mais en rélité elle
vont jusqu'à 300 d'oùl'intérêt de la macro pour n'imprimer que "ce que l'on
voit".
Avatar
JACK 43
Bonsoir LSteph

Effectivement un exemple vaut mieux que toutes les explications du monde (en
espérant bien utiliser cijoint.com

Donc dans l'exemple, qui est en réalité les 6 premières colonnes de mon
tableau, je souhaite que l'impression s'arrête à la ligne 32. donc mon
souhait est impression
de la plage C9 : Hn (n : étant dans mon exemple 32 ) pour un soucis de
simplificassion j'ai arrêté mes formules à la ligne 44 mais en rélité elle
vont jusqu'à 300 d'oùl'intérêt de la macro pour n'imprimer que "ce que l'on
voit".





*****************************************


Bonjour,
si elles sont vides , elles ne contiennent pas de valeur,
si elles contiennent une formule elles ne sont pas vides,
le xlup s'arrête où il doit!
Si on imprime seulement les cellules où apparaît quelquechose,
on saute ce où il n' ya rien à imprimer, et si on l'imprimait qd même il
n'y paraîtrait rien.
Donc si tu mets un exemple sur http://cjoint.com
je comprendrais mieux ce que tu veux.

A+

lSteph
"JACK 43" (sansspam)> a écrit dans le message de
news:
Bonjour,

La macro fonctionne, malheureusement elle imprime jusqu'à la ligne 300. En
effet, la macro je pense ne trouve pas les cellules vides car il y a des
formules.

Visuellement elles sont vides mais elles ont toutes une formule. Donc
est-il
possible d'imprimer en sélectionnant la plage d'impression contenant la
dernière valeur en A.

Par ailleurs j'ai le même problème pour un encadrement de cellules. Je
souhaitais effectuer un encadrement jusqu'à la dernière ligne où il y a
une
valeur avec la mise en forme conditionnelle et la formule suivante :
=NBVAL($A30:$D30)>0 puis format bordure. Mais toute la plage est
encadrée
même où il n'y a pas de valeurs apparentes car il y a des formules dans
chaque cellules.

MERCI ET A+





**************************************
"LSteph" wrote:

Bonjour Jack43,
(un petit retour sur les fils pour savoir si la réponse convient est
généralement apprécié)
Ton titre est Sélection Impression mais on pourrait me semble-t-il se
passer
du select
toutefois je le laisse pour plus de clarté et si j'ai bien compris ton
souhait:

Sub AFbyAprint()
Range([a65536].End(xlUp), [f1]).Select
Selection.PrintOut
End Sub

'lSteph

"JACK 43" (sansspam)> a écrit dans le message
de
news:
Bonjour,

Voilà je souhaite associer à une macro un bouton. Ce bouton
déclencherai
l'impression de la sélection.

Voilà mon problème la plage à imprimer sera toujours de la même
largeur
(cellule A à F mais pour la longueur on débute en 1 mais on devrait
finir
sur
la dernière ligne où l'on trouve une valeur en A (absolument en A car
de B
à
F j'ai des totaux sur la ligne 300)

MERCI A+














Avatar
LSteph
Bonsoir à tous,
Ok Jack j'ai enfin compris! C'est moi qui m'excuse...
..là je dois laisser un peu l'ordi pour d'autres questions, mais qd je
reviens je cherche ta solution...

a+

lSteph
"JACK 43" (sansspam)> a écrit dans le message de
news:
vec le lien celà est mieux, mes excuses !!!!!!!

http://cjoint.com/?mqs1REVxBv


Bonsoir LSteph

Effectivement un exemple vaut mieux que toutes les explications du monde
(en
espérant bien utiliser cijoint.com

Donc dans l'exemple, qui est en réalité les 6 premières colonnes de mon
tableau, je souhaite que l'impression s'arrête à la ligne 32. donc mon
souhait est impression
de la plage C9 : Hn (n : étant dans mon exemple 32 ) pour un soucis de
simplificassion j'ai arrêté mes formules à la ligne 44 mais en rélité elle
vont jusqu'à 300 d'oùl'intérêt de la macro pour n'imprimer que "ce que
l'on
voit".




Avatar
LSteph
...Re,
est-ce bien ainsi:

Sub AFbyAprint()
Dim r As Long
For r = [a65536].End(xlUp).Row To 1 Step -1
If Cells(r, 1).Text <> "" Then
Range(Cells(r, 1), [h9]).Select
Exit For
End If
Next
''Selection.PrintOut
End Sub


'lSteph


"JACK 43" (sansspam)> a écrit dans le message de
news:
vec le lien celà est mieux, mes excuses !!!!!!!

http://cjoint.com/?mqs1REVxBv


Bonsoir LSteph

Effectivement un exemple vaut mieux que toutes les explications du monde
(en
espérant bien utiliser cijoint.com

Donc dans l'exemple, qui est en réalité les 6 premières colonnes de mon
tableau, je souhaite que l'impression s'arrête à la ligne 32. donc mon
souhait est impression
de la plage C9 : Hn (n : étant dans mon exemple 32 ) pour un soucis de
simplificassion j'ai arrêté mes formules à la ligne 44 mais en rélité elle
vont jusqu'à 300 d'oùl'intérêt de la macro pour n'imprimer que "ce que
l'on
voit".




Avatar
JACK 43
Bonjour LSteph

Déjà je tiens à te remercier pour ta patience et ton dévoument.

Cette macro on la tiens ............ presque.

En effet, sur la hauteur (nombre de lignes en fonction de si elles ont des
données mais pas formule) ça, c'est OK.

En revanche, maintenant la macro sélectionne colonne A et B qui sont là pour
mon exemple pour avoir des données proches pour faire des formules dans mon
tableau.

la borne en haut à gauche : C9
la borne en haut à droite : H9
la borne en bas à gauche : Cx
la borne en bas à droite : Hx

x étant le N° de la dernière ligne avec une valeur (mais pas la dernière
ligne non vide)

Je te met le fichier à l'ouverture tu verras la sélection que souhaite en
"fond noir".


http://cjoint.com/?mrie1ukADU

Je te remerci encore mille fois LSteph et par avance, car je pense que
cette fois tu l'as tiens cette macro, je te souhaite de bonnes fêtes de fins
d'année.


******************************************


Bonjour,

Voilà je souhaite associer à une macro un bouton. Ce bouton déclencherai
l'impression de la sélection.

Voilà mon problème la plage à imprimer sera toujours de la même largeur
(cellule A à F mais pour la longueur on débute en 1 mais on devrait finir sur
la dernière ligne où l'on trouve une valeur en A (absolument en A car de B à
F j'ai des totaux sur la ligne 300)

MERCI A+


Avatar
JB
Bonjour,

Sub Imprime()
Range([A65536].End(xlUp).Offset(0, 2), [H9]).PrintOut
End Sub

Cordialement JB
1 2