× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > 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 poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
16,90 €Adaptateur WiFi USB TP-Link Archer T3U Plus à 16,90 €
Valable jusqu'au 27 Novembre

Amazon fait une vente flash sur l'adaptateur WiFi USB TP-Link Archer T3U Plus qui passe à 16,90 €. Cette clé USB vous permettra du profiter du WiFi double Bande AC 1300 Mbps sur votre ordinateur. De quoi diffuser des vidéos HD sans problème et copier rapidement des fichiers volumineux.  Son antenne externe à gain élevé augmente la portée de réception et fournit une connexion WiFi stable dans toute votre maison. On la trouve ailleurs à partir de 28 €. 


> Voir l'offre
88,99 €SSD Crucial MX500 1 To à 88,99 €
Valable jusqu'au 27 Novembre

Amazon propose actuellement le SSD Crucial MX500 1 To à 88,99 € livré gratuitement. On le trouve ailleurs à partir de 110 €. Ce SSD salué par la critique par son rapport qualité prix imbattable offre des débits de 560 Mo/s en lecture et 510 Mo/s en écriture. Il est garanti 5 ans. Une très bonne affaire.


> Voir l'offre
14,90 €Windows 10 Pro 32/64 bits OEM à 14,90 €
Valable jusqu'au 30 Novembre

Le vendeur sérieux Digital FR propose sur Amazon la clé d'activation pour Windows 10 professionnel en français 32 bits / 64 bits à 14,90 €. Cette clé livrée par email fonctionne avec l'outil d'installation et de création de support de Microsoft que vous pouvez télécharger ici ou directement avec l'ISO de Windows 10 Pro. De quoi installer légalement Windows 10 Pro sur un PC. Pour en savoir plus sur l'achat et l'installation d'une clé OEM de Windows 10, suivez les indications de notre dossier pratique.


> 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