[XL-2010] [DEBUTANT] Comment créer un tableau "auto-adaptable" ? [Résolu]

[fanico11]

Bonjour à tous,

Je désire créer un tableau "auto-adaptable" (oui, je sais, je vais sans aucun doute en faire rire plus d'un parmis nous )... C'EST A DIRE : un tableau ce qu'il y a de plus classique (3 colonnes seulement, pas de calcul ni de totaux...) mais dans lequel on ne sait pas encore combien il y aura de ligne...

Oui, oui, c'est bien ça mon "immense" problème : je voudrai que mon entête soit fixe et que s'il y a trop de lignes pour rentrer dans une seule page, l'entête se repporte sur la deuxième page etc... sans avoir à remettre en forme le tableau en fait (le cadre...)

Je ne parviens pas à trouver la rubrique correspondant dans la faq (parce que "tableau auto-adaptable" ça n'existe pas ) donc s'il y en a une qui me répondrait parfaitement pouvez-vous me l'indiquer svp ?

Vous remerçiant à tous d'avance,

Cordialement,

fanico11

[casefayere]

Bonjour,

(oui, je sais, je vais sans aucun doute en faire rire plus d'un parmis nous

Pourquoi quelqu'un devrait-il rire ?
c'est un cliché mais il n'existe pas de question idiote...

je travaille sur excel 2007 et ne connais pas 2010 mais tu devrais trouver ton bonheur dans "mise en page => imprimer les titres"

Bonne journée

[fanico11]

Oui, effectivement, votre solution me permet d'imprimer les titres dans chaque nouvelle page, ce qui est parfait.

Cependant, elle ne me permet pas d'avoir une mise en forme "auto-adaptable" : les cadres eux ne se font que là où je les ai mis, ni plus ni moins, alors que je voudrai qu'ils se réduisent si l'on remplit moins de ligne que prévu, et vice versa... connaissez-vous la manip ?

En tous les cas, merci de votre réponse !!

cordialement,

fanico11

[casefayere]

si tu fais un essai sur un fichier bidon et données bidon, exemple tu ecris le titre en a1, des données, au hasard de a2 à a300, tu prévois l'encadrement => contour gras pour a1:a300, milieu simple pour a2:a300 et provoques ce code :

Code :

1
2
3
4
5
6
7
8
9
Sub Macro2()
Dim derlg As Long
With ActiveSheet
    derlg = .Range("A" & .Rows.Count).End(xlUp).Row
    .PageSetup.PrintArea = "$A$2:$A$" & derlg
    .PageSetup.PrintTitleRows = "$1:$1"
    ActiveWindow.SelectedSheets.PrintPreview
End With
End Sub

regardes le résultat dans l'aperçu, ton titre se répète et est toujours entouré de gras, mais là n'est peut-être pas ta demande !!!

[fanico11]

Cela marche pour ce qui est du titre : il est bien répété à chaque page et encadré comme je le souhaite.

Mon problème n'est pas là (mais j'avoue ne pas être assez claire...) : ce que je voudrai, moi, c'est que si, par exemple, je ne remplis que trois lignes dans mon tableau, alors seules celles-ci sont imprimées. Par contre, si je remplis 300 lignes, alors les 300 lignes sont imprimées... le tout avec les bordures que je souhaite définir dès le départ... est-ce faisable déjà ? parce que avec la solution que vous donnez, j'imprime 300 lignes quoi qu'il arrive (sauf à masquer des lignes bien entendu...)

merci encore !!

[casefayere]

Pas d'accord avec cette citation :

parce que avec la solution que vous donnez, j'imprime 300 lignes quoi qu'il arrive (sauf à masquer des lignes bien entendu...)

car dans le code, il y a cette ligne :

Code :

derlg = .Range("A" & .Rows.Count).End(xlUp).Row

qui permet d'avoir la derniere ligne renseignée;

C'est normal que tes impressions aillent jusque 300 car tu as certainement prévu d'avance l'encadrement sur 300 lignes.

Maintenant, si tu veux faire ton encadrement après avoir vu le nombre de lignes, c'est possible.

et toi, me comprends-tu ?
n'hésites pas

[casefayere]

avec le fichier bidon, essaies ce code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub Macro2()
Dim derlg As Long
'réinitialise les encadrements
With Columns("A:A")
    .Borders(xlDiagonalDown).LineStyle = xlNone
    .Borders(xlDiagonalUp).LineStyle = xlNone
    .Borders(xlEdgeLeft).LineStyle = xlNone
    .Borders(xlEdgeTop).LineStyle = xlNone
    .Borders(xlEdgeBottom).LineStyle = xlNone
    .Borders(xlEdgeRight).LineStyle = xlNone
    .Borders(xlInsideVertical).LineStyle = xlNone
    .Borders(xlInsideHorizontal).LineStyle = xlNone
End With
'et les refait
With ActiveSheet
    derlg = .Range("A" & .Rows.Count).End(xlUp).Row
    With .Range("A1:A" & derlg)
        .Borders(xlEdgeLeft).Weight = xlMedium
        .Borders(xlEdgeTop).Weight = xlMedium
        .Borders(xlEdgeBottom).Weight = xlMedium
        .Borders(xlEdgeRight).Weight = xlMedium
        .Borders(xlInsideHorizontal).Weight = xlThin
    End With
    With Range("A1")
        .Borders(xlEdgeLeft).Weight = xlMedium
        .Borders(xlEdgeTop).Weight = xlMedium
        .Borders(xlEdgeBottom).Weight = xlMedium
        .Borders(xlEdgeRight).Weight = xlMedium
    End With
.PageSetup.PrintArea = "$A$2:$A$" & derlg
.PageSetup.PrintTitleRows = "$1:$1"
ActiveWindow.SelectedSheets.PrintPreview
End With
 
End Sub

[fanico11]

Oui oui, cela marche parfaitement bien, il suffit seulement de modifier les colonnes voulues dans le vba :

Code :

1
2
'réinitialise les encadrements
With Columns("A:C")

etc etc pour les lignes...

Tout est nikel, j'ai un magnifique fichier merci encore !!

Cordialement,

fanico11