2 questions en une ??

poipoi59

XLDnaute Junior
bonjour,

Grâce à Wilfired, je sélectionne des cellules via cette macro mais j'aimerais

1 -que la sélection de démarre qu'à partir de la ligne 3

2- imprimer cette sélection

Merci pour votre aide

Sub sel_plage()
Dim plage As Range, frm As Range, c As Range
Set plage = Range("A:E")
Set frm = plage.Cells.SpecialCells(xlCellTypeFormulas)
Set plage = plage.Cells.SpecialCells(xlCellTypeConstants)
For Each c In frm
If c.Text > "" Then Set plage = Application.Union(plage, c)
Next
plage.Select
End Sub
 

jms31

XLDnaute Junior
Re : 2 questions en une ??

bonjour

il suffit de rajouter un test dans ta boucle comme ceci :

For Each c In frm
If c.Row >= 3 Then​
If c.Text > "" Then Set plage = Application.Union(plage, c)​
End If​
Next

'Pour l'impression il y a print et printpreview Mais fait attention avec des sélections multiples, excel fait un peu n'importe quoi. Il insére des sauts de lignes entre chaque bout indépendant de la sélection. C'est difficile d'avoir ce qu'on veut sauf si les tableau sont sur des lignes colonnes bien séparées

plage.PrintPreview
plage.Print
 

Discussions similaires

Réponses
12
Affichages
537
Réponses
28
Affichages
921

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof