Grâce à wilfrid, je sélectionne des cellules via cette commande :
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
J'aimerais maintenant imprimer cette sélection
comment faire ??
Merci
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
J'aimerais maintenant imprimer cette sélection
comment faire ??
Merci