Bonjour
J'ai adapter un code trouver sur la toile des xls ,celui ci fonctionne plutôt bien sur un tableau,
N'ayan pas la maitrise de la VBA je vous demande votre aide .
De A à K j'ai 2 tableau cote a cote de nom diffèrent TAB1 (de A1 à F) et TAB2 (de G1 à K) dont les lignes sont variable pour chacun d'eux
Mon code ci dessous m'ajuste l'impression sur le TAB1 car il fais un count sur A1
Parfois Mon TAB2 en G est plus long que Mon TAB en A ,du coup je trouve pas le moyen de lui faire comparer les 2 colonne A et G et si l'une des 2
est plus grande l'ajustement se ferai sur la valeur la plus Grande.
ex1: si dans ma colonne A il y a 10 valeur et dans ma colonne G il y a 5 Valeurs ,alors ma mise en page serai de A1 à K10
ex2: si dans ma colonne A il y a 5 valeur et dans ma colonne G il y a 25 Valeurs ,alors ma mise en page serai de A1 à K25
J'espère avoir été claire.
Merci a vous
J'ai adapter un code trouver sur la toile des xls ,celui ci fonctionne plutôt bien sur un tableau,
N'ayan pas la maitrise de la VBA je vous demande votre aide .
De A à K j'ai 2 tableau cote a cote de nom diffèrent TAB1 (de A1 à F) et TAB2 (de G1 à K) dont les lignes sont variable pour chacun d'eux
Mon code ci dessous m'ajuste l'impression sur le TAB1 car il fais un count sur A1
Parfois Mon TAB2 en G est plus long que Mon TAB en A ,du coup je trouve pas le moyen de lui faire comparer les 2 colonne A et G et si l'une des 2
est plus grande l'ajustement se ferai sur la valeur la plus Grande.
ex1: si dans ma colonne A il y a 10 valeur et dans ma colonne G il y a 5 Valeurs ,alors ma mise en page serai de A1 à K10
ex2: si dans ma colonne A il y a 5 valeur et dans ma colonne G il y a 25 Valeurs ,alors ma mise en page serai de A1 à K25
J'espère avoir été claire.
Merci a vous
VB:
Sub AUTOAJUST()
Dim wS As Worksheet
Set wS = ThisWorkbook.Sheets("r13b")
WSLR = wS.Cells(Rows.Count, 1).End(xlUp).Row
WSLC = wS.Cells(1, Columns.Count).End(xlToLeft).Column
Set PrintArea = wS.Range("A1:K" & WSLR)
wS.PageSetup.PrintArea = PrintArea.Address(0, 0)
End Sub