Bonjour,

Je souhaite rajouter à la macro existante dans mise en page

hauteur 0,40 et Bas 0,90

Que le quadrillage ainsi que le filtre s'adapte au fichier

http://cjoint.com/?3JplhPqUMnF

Merci par avance

Cécilia

bonjour, essaye ça (désolé pour l'indentation) :


With ActiveSheet.PageSetup
.TopMargin = 28.35 * 0.4
.BottomMargin = 28.35 * 0.9
End With

Cells.Borders.LineStyle = xlNone 'pour effacer le quadrillage existant
With [A1].CurrentRegion.Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

If ActiveSheet.AutoFilterMode Then Cells.AutoFilter
[A1].CurrentRegion.AutoFilter



attention avec la commande CurrentRegion, s'il y a une ligne/colonne entière qui est vide dans ta plage de données, ça ne prendra pas en compte toute la plage.
ActiveSheet suppose que la feuille concernée est active avant l'exécution du code ; à adapter si besoin.

Bonjour,

hauteur 0,40 et Bas 0,90 c'est parfait

par contre ensuite ça bloque à xlNone

Cécilia

mince alors, sur mon poste ça fonctionne aussi bien sur XL 2010 que 2000.

qqn d'autre aura peut-être une idée.

Bonsoir,

Je l'ai saisie de nouveau et ça fonctionne très bien.

Merci pour cette aide.

Bonne soirée.

Cécilia

Bonjour,

Est-il possible de réduire davantage la largeur des colonnes, voire le lien du 15/10/14, colonne ville, etc...

Merci par avance.

Cécilia

bonjour,

avant la dernière ligne [A1].CurrentRegion.AutoFilter, ajouter la ligne suivante :

[A1].CurrentRegion.EntireColumn.AutoFit

cette instruction a pour effet d'ajuster la largeur des colonnes à celle du texte.
attention, certains de tes titres (comme "Ville" notamment) contiennent des espaces qui empêchent d'ajuster la largeur à ce qu'elle pourrait être.

Merci,

C'est parfait.

Bonne après-midi.

Cécilia