Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 166 fois - Téléchargée 37 fois
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.