× 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
23,99 €Clé USB 3.0 Sandisk Ultra 128 Go à 23,99 €
Valable jusqu'au 01 Juin

Amazon propose la clé USB Sandisk Ultra d'une capacité de 128 Go à 23,99 €. Cette clé USB 3.0 est compatible USB 2.0 et offre de bons débits d'environ 100 Mo/s en lecture et en écriture. Le connecteur est rétractable pour éviter qu'il prenne la poussière.


> Voir l'offre
92,89 €Enceinte connectée Amazon Echo avec Alexa + 2 ampoules connectées Philips Hue White à 92,89 €
Valable jusqu'au 30 Mai

Amazon propose l'enceinte Echo de 3ème génération accompagnée de 2 ampoules Philips Hue White E27 à 92,89 € (au lieu de 129,99 €). L'appareil piloté par la voix fonctionne avec Alexa, l’intelligence artificielle développée par Amazon. Vous pourrez avec elle écouter de la musique, interagir avec vos appareils domotiques dont les 2 ampoules fournies (pour allumer et éteindre la lumière à la voix), écouter les infos, la radio, connaître la météo et d’accéder à des milliers d’autres possibilités grâce aux Skills : recettes de cuisine, petits jeux, etc. Par rapport à la génération précédente, le son est amélioré et l'enceinte arbore un nouveau design. L'enceinte est équipée du son Dolby qui remplira la pièce d'un son immersif et omnidirectionnel, avec des voix nettes, des basses profondes et des aigus clairs à volume élevé. Grâce à ses sept microphones, ses technologies de beamforming et de réduction du bruit, Amazon Echo vous entend où que vous soyez dans la pièce, même lorsqu'il y a de la musique. 


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

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