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)
Sub Imprime() Range([A65536].End(xlUp).Offset(0, 2), "H9").PrintOut End Sub
Cordialement JB
LSteph
Bonjour , alors la même avec 3 au lieu de 1 ici Range(Cells(r, 3), donc:
Sub CFbyAprint() Dim r As Long For r = [a65536].End(xlUp).Row To 1 Step -1 If Cells(r, 1).Text <> "" Then Range(Cells(r, 3), [h9]).Select Exit For End If Next Selection.PrintOut End Sub
"JACK 43" (sansspam)> a écrit dans le message de news:
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+
Bonjour ,
alors la même avec 3 au lieu de 1 ici Range(Cells(r, 3),
donc:
Sub CFbyAprint()
Dim r As Long
For r = [a65536].End(xlUp).Row To 1 Step -1
If Cells(r, 1).Text <> "" Then
Range(Cells(r, 3), [h9]).Select
Exit For
End If
Next
Selection.PrintOut
End Sub
"JACK 43" <jacques.deberle@wanadoo.fr.(sansspam)> a écrit dans le message de
news: CC6AE2B6-C9C9-4F8E-9FD5-A6BFB9CE1DEA@microsoft.com...
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)
Bonjour , alors la même avec 3 au lieu de 1 ici Range(Cells(r, 3), donc:
Sub CFbyAprint() Dim r As Long For r = [a65536].End(xlUp).Row To 1 Step -1 If Cells(r, 1).Text <> "" Then Range(Cells(r, 3), [h9]).Select Exit For End If Next Selection.PrintOut End Sub
"JACK 43" (sansspam)> a écrit dans le message de news:
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+
LSteph
Bonjour, relis le fil depuis le tout début, contrairement à d'autres ficelles ici il s'agissait de faire un peu plus compliqué. Pour en arriver toutefois au point où ce que tu viens de réécrire beaucoup plus simplement fonctionne à merveille. ;o)))) a+
lSteph
"JB" a écrit dans le message de news:
Bonjour,
Sub Imprime() Range([A65536].End(xlUp).Offset(0, 2), "H9").PrintOut End Sub
Cordialement JB
Bonjour,
relis le fil depuis le tout début,
contrairement à d'autres ficelles ici il s'agissait de faire un peu plus
compliqué.
Pour en arriver toutefois au point où ce que tu viens de réécrire beaucoup
plus
simplement fonctionne à merveille.
;o))))
a+
lSteph
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1134806479.412005.294130@f14g2000cwb.googlegroups.com...
Bonjour,
Sub Imprime()
Range([A65536].End(xlUp).Offset(0, 2), "H9").PrintOut
End Sub
Bonjour, relis le fil depuis le tout début, contrairement à d'autres ficelles ici il s'agissait de faire un peu plus compliqué. Pour en arriver toutefois au point où ce que tu viens de réécrire beaucoup plus simplement fonctionne à merveille. ;o)))) a+
lSteph
"JB" a écrit dans le message de news:
Bonjour,
Sub Imprime() Range([A65536].End(xlUp).Offset(0, 2), "H9").PrintOut End Sub
Cordialement JB
JB
Bonjour,
Le pb était simple. Mal expliqué, il a été compliqué. Sur un autre fil (mise en forme), même complication d'un pb simple. D'où l'utilité des PJ pour expliquer les pb.
Cordialement JB
Bonjour,
Le pb était simple. Mal expliqué, il a été compliqué.
Sur un autre fil (mise en forme), même complication d'un pb simple.
D'où l'utilité des PJ pour expliquer les pb.
Le pb était simple. Mal expliqué, il a été compliqué. Sur un autre fil (mise en forme), même complication d'un pb simple. D'où l'utilité des PJ pour expliquer les pb.
Cordialement JB
LSteph
Re,
Le pb était simple Sur un autre fil... C'est bien ce qui m'a semblé..(va voir sur encadrement)
et c'est bien pour cela j'en ris . Sinon les PJ ne sont (heureusement pour le volume entre autre) pas admises mais http://cjoint.com est bien pratique en effet (avec modération) Tu peux lire le HS lancé précisément sur ce sujet par Michel Gaboly.
Excellente journée.
lSteph
"JB" a écrit dans le message de news:
Bonjour,
Le pb était simple. Mal expliqué, il a été compliqué. Sur un autre fil (mise en forme), même complication d'un pb simple. D'où l'utilité des PJ pour expliquer les pb.
Cordialement JB
Re,
Le pb était simple
Sur un autre fil...
C'est bien ce qui m'a semblé..(va voir sur encadrement)
et c'est bien pour cela j'en ris .
Sinon les PJ ne sont (heureusement pour le volume entre autre) pas admises
mais
http://cjoint.com est bien pratique en effet (avec modération)
Tu peux lire le HS lancé précisément sur ce sujet par Michel Gaboly.
Excellente journée.
lSteph
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1134815555.397648.77690@f14g2000cwb.googlegroups.com...
Bonjour,
Le pb était simple. Mal expliqué, il a été compliqué.
Sur un autre fil (mise en forme), même complication d'un pb simple.
D'où l'utilité des PJ pour expliquer les pb.
Le pb était simple Sur un autre fil... C'est bien ce qui m'a semblé..(va voir sur encadrement)
et c'est bien pour cela j'en ris . Sinon les PJ ne sont (heureusement pour le volume entre autre) pas admises mais http://cjoint.com est bien pratique en effet (avec modération) Tu peux lire le HS lancé précisément sur ce sujet par Michel Gaboly.
Excellente journée.
lSteph
"JB" a écrit dans le message de news:
Bonjour,
Le pb était simple. Mal expliqué, il a été compliqué. Sur un autre fil (mise en forme), même complication d'un pb simple. D'où l'utilité des PJ pour expliquer les pb.
