XL 2016 Propriété pour déterminer si la sélection correspond à une plage de cellules

[crocrocro]

Bonjour,
Existe-t-il une propriété permettant de déterminer si la sélection correspond à une plage de cellules et non à des shapes par exemple ?
Dans mon code, je souhaite faire un traitement concernant toutes les cellules de ma sélection.
Par exemple ici

Sub CestQuoiMaSélection()
'
' Vérifier si ma sélection est bien une plage de cellule (et non ds shapes ou autres ...)

Dim Cellule As Range
Dim NbCellules As Double
Dim NbShapes As Double
    NbCellules = Selection.Count            ' -> Si Sélection de Shapes -> Propriété ou méthode non gérée par cet objet
    NbShapes = Selection.ShapeRange.Count   ' -> Si Sélection d'une Plage -> Propriété ou méthode non gérée par cet objet
    For Each Cellule In Selection
        'Mon code
    Next Cellule
End Sub

Je pourrais intercepter l'erreur sur le Selection.Count avec On Error Resume Next, Goto ...
Mais j'aurais souhaité une solution plus élégante comme le test d'une propriété (si elle existe)
Merci d'avance

 

[job75]

Bonsoir crocro,

Ceci est classique :

Sub CestQuoiMaSélection()
Dim c As Range
If TypeOf Selection Is Range Then
    For Each c In Selection
        'Mon code
    Next
End If
End Sub

Bonne nuit.

 

[crocrocro]

Merci job75.
Pour ceux que çà intéresse, avec le Débogueur, pour retrouver le type de la sélection, l'information est dans la colonne Type de la fenêtre Espion : Object/Range Object/Rectangle ...
Je ne vois pas comment retrouver un type plus générique pour les formes 🙁