Macro mise en page personnalisée

[davidp]

Bonjour le forum ,

Désolé de vous déranger pour un petit soucis .

Voilà, je cherche à compléter une macro pour obtenir les éléments suivants via VBA :

Nb: (Actuellement ,j'ai ma feuille en mode portrait , des marges trop importantes et il me manque la colonne M lors de l'impression )


Ligne à répéter en haut : $1 :$7
Marge : Gauche 1 cm-Droite 1cm-Haut 1 cm –Bas 1 cm
Mode : Portrait
Saut de page : Colonne A à M ( pour permettre d’avoir toutes mes données dans la largeur de la feuille).

Je remercie d’avance celui ou celle qui pourra m’aider

Cordialement

Bonne journée à tous

DAVIDP

 

[Guest]

Re : Macro mise en page personnalisée

Bonjour,

Utilise l'enregistreur de macros et tu auras ta macro.

A+

 

[davidp]

Re : Macro mise en page personnalisée

Bonjour Hasco,

merci pour ton message.

J'avais essayé via l'enregistreur mais malheureusement sans succés .

Je vais Retenter cette aprés midi.

Merci encore et bonne journée

DAVIDP

 

[mutzik]

Re : Macro mise en page personnalisée

bonjour,

il faut faire tout ce que tu as fait par l'enregistreur de macros, c'est à dire :
- aller dans mise en page et selectionner les lignes à répéter en haut (1 à 7)
- définir la zone d'impression de A8 à M...
- ajuster la page à 1 page en largeur

pas besoin de saut de page, c'est excel qui fait

 

[jeanpierre]

Re : Macro mise en page personnalisée

Bonjour davidp, Hasco, mutzik,

Ou bien réduire à 95%, voire un peu moins 93,92....

Car s'il y a plusieurs pages Ajuster risque d'ajuster l'ensemble.

Bonne journée.

Jean-Pierre

 

[davidp]

Re : Macro mise en page personnalisée

Bonjour jean pierre,Hasco,Mutzit.

Désolé pour le retard , mais j'ai cherché à resoudre 1 dernier problème:

déjà ,Merci pour vos dernières précisions.

1-Ex : J'ai des données de A8 : M ? (ex: M20) ----> dans ce cas j'aimerai supprimer les lignes qui se situe en dessous de la derniere cellule pleine de la colonne A;


Dans ce cas , il faudrait supprimer les lignes de A21 (chiffre variable) à A3000 (chiffre fixe).

2: Pour finir , j'aimerai appliquer la mise en page quadrillage, sur la plage A8 : M ? ) jusqu'à la derniere ligne A qui contient des données.

Bonne journée , Merci d'avance pour votre aide

DAVIDP

 

[davidp]

Re : Macro mise en page personnalisée

Rebonjour le forum ,

pour le point N°1 j'ai trouvé sur le forum la solution pour supprimer les lignes de la colonne A si une des cellules est vides (de la colonne A)

Sub SuppressionsLignes()
Dim idxLigne As Variant
'Chercher la dernière ligne avec une valeur numérique de la colonne A
idxLigne = Application.Match(9 ^ 9, Range("A:A"), 1)
'Si trouvée
If Not IsError(idxLigne) Then
'Supprimer les lignes de idxLigne+1 à la fin de la feuille
Range(Cells(idxLigne + 1, 1), Cells(Rows.Count, 1)).EntireRow.Delete
End If
End Sub

il ne me reste plus qu'a trouver le point N°2:

Point N°2: Pour finir , j'aimerai appliquer la mise en page quadrillage, sur la plage A8 : M ? ) jusqu'à la derniere ligne A qui contient des données.

Merci d'avance à celui qui pourra m'aider.

Nb: Je continue à chercher en parallele

Bonne soirée
DAVIDP

 

[davidp]

Re : Macro mise en page personnalisée

Rebonjour ,

grace aux archives du forum , j'ai trouvé la solution pour le point N°2

Le site est vraiment super

Le dossier est fini

Bonne soirée ,à trés bientôt sur le forum

DAVIDP

 

[Staple1600]

Re : Macro mise en page personnalisée

Bonsoir

Bravo pour tes recherches dans les archives
Pour te récompenser de tes efforts
Voici une version allégée de ta macro 😉

Sub quadrillage_en_plus_court()
Range("A1").CurrentRegion.Resize(, 7).Borders.LineStyle = xlContinuous
End Sub

Pour répondre strictement à :

j'aimerai appliquer la mise en page quadrillage, sur la plage A8 : M ? ) jusqu'à la derniere ligne A qui contient des données.

Sub quadrillage_en_plus_courtBIS()
Range("A8:M" & [A1].CurrentRegion.Rows.Count).Borders.LineStyle = xlContinuous
End Sub

Tu peux aussi utiliser cette syntaxe
Range("A8:M" & [A65536].End(xlUp).Row).Borders.LineStyle = xlContinuous

 

[davidp]

Re : Macro mise en page personnalisée

Bonsoir Staple 1600 ,

Un grand merci pour tes conseils , tu m'as aidé à de nombreuses reprises.

Bonne soirée

DAVIDP