selection cellules

wilfried_42 à dit:

Bonjour

essaye cela :

Code:

Cells.SpecialCells(xlCellTypeConstants).Select

Cliquez pour agrandir...

wilfried_42 à dit:

re:

bonjour job

il est vrai que j'ai omis les formules, mais venant de faire l'essai en mettant Range("B4") = "", la cellule n'est pas selectionnée donc c'est ok il reste les formules s'il y en a
voici avec les résultats de formules

Code:

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

si tu n'as pas de formule, le code reste :

Code:

range("A:E").Cells.SpecialCells(xlCellTypeConstants).select

Cliquez pour agrandir...