> Tous les forums > Forum Bureautique
 excel 2007 macro mise en page, quadrillage, filtreSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Cecilia2
  Posté le 15/10/2014 @ 11:09 
Aller en bas de la page 
Petite astucienne

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

Publicité
Boogie Palace
 Posté le 15/10/2014 à 12:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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.



Modifié par Boogie Palace le 15/10/2014 12:53
Cecilia2
 Posté le 15/10/2014 à 14:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bonjour,

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

par contre ensuite ça bloque à xlNone

Cécilia

Boogie Palace
 Posté le 15/10/2014 à 15:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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

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

Cecilia2
 Posté le 15/10/2014 à 21:46 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Bonsoir,

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

Merci pour cette aide.

Bonne soirée.

Cécilia

Cecilia2
 Posté le 20/10/2014 à 11:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

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

Boogie Palace
 Posté le 20/10/2014 à 14:26 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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.

Cecilia2
 Posté le 20/10/2014 à 15:04 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Merci,

C'est parfait.

Bonne après-midi.

Cécilia

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
799,99 €PC Portable 15.6 pouces Asus X571 (FHD IPS 120Hz, Core i5, 16Go, 512Go SSD, GTX 1650 Ti) à 799,99 €
Valable jusqu'au 02 Février

RueDuCommerce fait une promotion sur l'ordinateur portable Asus Laptop FX571LI-AL246 qui passe à 799,99 € alors qu'on le trouve ailleurs à partir de 900 €. Cet ordinateur portable est équipé d'un écran 15,6 pouces IPS Full HD (1920x1080 pixels) 120 Hz anti-reflet, d'un SSD de 512 Go, d'un processeur Intel Core i5-10300H, de 16 Go de RAM et d'une carte graphique dédiée NVIDIA GeForce GTX 1650 Ti avec 4 Go de RAM.

L'ordinateur est livré dans OS et vous devrez donc installer vous-même Windows 10/11.


> Voir l'offre
32,88 €Clé USB 3.1 Sandisk Ultra Luxe 256 Go à 32,88 €
Valable jusqu'au 28 Janvier

Cdiscount propose la clé USB Sandisk Ultra Luxe d'une capacité de 256 Go à 32,88 €. Cette clé USB 3.1 toute en métal est compatible USB 2.0 et offre de bons débits d'environ 150 Mo/s en lecture et en écriture. Elle inclut le logiciel SanDisk SecureAccess pour un cryptage et une protection par mot de passe de vos données sensibles. 


> Voir l'offre
69,99 €Barre de son Hisense HS214 (caisson basses intégré, Dolby Audio, HDMI ARC, Bluetooth) à 69,99 €
Valable jusqu'au 29 Janvier

Cdiscount fait une promotion sur la barre de son Hisense HS214 qui passe à 69,99 € alors qu'on la trouve ailleurs à partir de 99 €. La HS214 intègre un caisson de basse directement dans la barre et possède une connectique complète HDMI ARC, optique, coaxiale, jack et la connexion Bluetooth. Il est possible d'ajuster le niveau du son grâce aux 3 effets fournies (mode Film, Musique et Actualité).


> Voir l'offre

Sujets relatifs
besoin d'une macro excel 2007
[Excel 2007] Macro : Sélection d'un tableau selon sa longueur variable
Excel 2007 macro rajouter tri + cellule en surbrillance à chaque changement
Excel 2007 extraction feuille 1 dans feuille 2 avec mise en forme
tableau et quadrillage (excel 2007)
Excel 2007 mise en forme conditionnelle
mise en page sur excel
macro sous excel 2007
(Macro) Copier onglet sur autre fichier Excel (2007)
Probleme excel - tri dans macro Excel 2007
Plus de sujets relatifs à excel 2007 macro mise en page, quadrillage, filtre
 > Tous les forums > Forum Bureautique