Discussion :

[ESVBA]

Je souhaite imprimer quelques lignes supplémentaires vides ayant une mise en forme.

La solution suivante ne fonctionne pas alors que manuellement "oui" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("A5").Select              'Première cellule contenant de l'information
ActiveCell.CurrentRegion.Select
SendKeys "+{DOWN 5}"            'Sélection de quelques lignes vides supplémetaires

Avez-vous une idée ?
Merci.

[ESVBA]

Avec une idée de fonction et l'aide d'Excel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
    Range("A5").Select              'Première cellule contenant de l'information
    ActiveCell.CurrentRegion.Select
    numRows = Selection.Rows.Count
    numColumns = Selection.Columns.Count
    Selection.Resize(numRows + 5, numColumns).Select

Désolé pour celui qui a cherché...