Selection de données par unions.

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 089 fois - Téléchargée 37 fois

Contenu du snippet

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

A voir également

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.