impression dernière ligne tableau

[VINCEGR]

bonjour le forum,

voici mon souci je recherche un code qui pourrait sélectionner ma "zone d'impression" suivant les données colonne i de mon tableau.

la zone à imprimer est "a1 - m ? " (dernière ligne de "i" avec formule)

merci d'avance pour votre aide

 

[VINCEGR]

Re : impression dernière ligne tableau

re,

c'est parfait merci

si je peux me permettre encore une aide.😕

pour obtenir un fichier plus cohérent, éviter l'utilisation vba et formule cellule, je souhaite compléter les cellules avec les calcul suivant lors de la l'import du fichier soit en colonne :

e =+SI(L2<>0;L2;"")
f =SI(D2>0;SOMME(D2:E2);"")
g=SI(C2<>"";+C2-F2;"")
h =+SI(C2<>"";0;"")
i =+SI(C2<>"";0;"")
j =+SI(A2<>"";+G2+I2-H2;"")
k=SI(J2<>"";((C2+I2)/((C2+I2)-J2))-1;"")
avec ce complément je pourrais utiliser le

ActiveSheet.PageSetup.PrintArea = "$A$1:$M$" & Range("I65536").end(xlup).row

car actuellement pas possible avec les formule jusqu'en ligne 600

merci d'avance
@+

 

[VINCEGR]

Re : impression dernière ligne tableau

re tototiti2008, le forum,

comment traduire en vba les formules ci-dessus

merci d'avance

 

[tototiti2008]

Re : impression dernière ligne tableau

Re,

SI = IF
SOMME = SUM
pense à remplacer les ";" par des ","
pense à doubler les guillements

 

[VINCEGR]

Re : impression dernière ligne tableau

re

ce genre de formule peux aller ?

.Range("e").Formula = "=if("l"<>0, "l","""")"
@+

 

[tototiti2008]

Re : impression dernière ligne tableau

Re,

plutôt

.Range("e2:e" [COLOR=#0000ff]& Drlng-1[/COLOR]).Formula = "=if(l2<>0,l2,"""")"

 

[VINCEGR]

Re : impression dernière ligne tableau

bonjour tototiti2008,

merci pour tes conseils et je viens d'adapter formule à macro et cela fonctionne correctement.

'calcul dans cellule importée
.Range("e2:e" & Drlng - 1).Formula = "=if(l2<>0,l2,"""")"
.Range("F2:f" & Drlng - 1).Formula = "=if(D2>0,SUM(d2:e2),"""")"
.Range("g2:g" & Drlng - 1).Formula = "=if(c2<>"""",c2 - f2,"""")"
.Range("h2:h" & Drlng - 1).Formula = "=if(c2<>"""",0,"""")"
.Range("i2:i" & Drlng - 1).Formula = "=if(c2<>"""",0,"""")"
.Range("j2:j" & Drlng - 1).Formula = "=if(a2<>"""",+g2+i2-h2,0)"
.Range("K2:K" & Drlng - 1).Formula = "=if(a2<>"""",((C2+I2)/((C2+I2)-J2))-1,"""")"

existe-t-il un moyen pour formater le résultat en % d'une colonne en l'occurrence la colonne K ici
merci d'avance
@+

 

[tototiti2008]

Re : impression dernière ligne tableau

Bonjour VINCEGR,

Connais-tu l'enregistreur de macros ?
C'est un outil trés intéressant quand on ne sait pas comment écrire certaines actions en VBA

[COLOR=#0000ff].Range("K2:K" & Drlng - 1).[/COLOR]NumberFormat = "0.00%"

 

[VINCEGR]

Re : impression dernière ligne tableau

re,
oui je connais mais malheureusement je n'arrive pas à adapter l'enregistreur avec mon attente.
peut-être devrais je persévérer dans l'utilisation de l'enregistreur ?
merci

 

[VINCEGR]

Re : impression dernière ligne tableau

re tototiti2008,

je viens d'essayer d'obtenir mes colonnes groupées à la fin de la macro
cela ne fonctionne pas

Selection.Columns.Group

pourquoi ?😕

 

[Pierrot93]

Re : impression dernière ligne tableau

Bonjour,

devrait fonctionner... vérifier qu'il n'y ait pas de cellules fusionnées... et que le plan ne soit pas déjà actif sur ces cellules... le mieux est sans doute de préciser les colonnes concernées....

bonne journée
@+

 

[VINCEGR]

Re : impression dernière ligne tableau

Bonjour Pierrot93,

merci pour conseil
bonne journée
@+