Existence d'objets dans une sélection

[marmotte18]

Bonjour,

Après avoir fait la sélection suivante qui me permets de rechercher tous les objets de la feuille :

    ActiveSheet.DrawingObjects.Select

j'aimerais savoir si la sélection est vide ou non. Quelle est l'instruction qu'il faut mettre ?

Merci par avance

 

[Pierrot93]

Re : Existence d'objets dans une sélection

Bonjour Marmotte

essaye ainsi :

If ActiveSheet.DrawingObjects.Count = 0 Then MsgBox "aucun objet"

tu peux également utiliser ceci :

ActiveSheet.DrawingObjects.Select
x = Selection.Count

te renverra dans la variable "x" le nombre d'objets.

bon dimanche.
@+

 

[marmotte18]

Re : Existence d'objets dans une sélection

Bonjour Pierrot93,

Les 2 instructions fonctionnent impécablement bien !
Merci de ton aide