2 questions en une ??

[poipoi59]

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]

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