Cette fonction trouvée sur un site perso est ecrite merite d'etre vue pour son code. La fonction renvoie une zone Range de cellules non vides.
Source / Exemple :
Sub SelectAllData()
Dim rng As Range, rng1 As Range
Dim rng2 As Range
On Error Resume Next
Set rng2 = Cells.SpecialCells(xlFormulas)
Set rng1 = Cells.SpecialCells(xlConstants)
On Error GoTo 0
If Not rng1 Is Nothing Then
If Not rng2 Is Nothing Then
Set rng = Union(rng1, rng2)
Else
Set rng = rng1
End If
Else
If Not rng2 Is Nothing Then
Set rng = rng2
Else
MsgBox "La feuille est vide."
Exit Sub
End If
End If
rng.Select
End Sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.