Existence d'objets dans une sélection

marmotte18 · 18 Janvier 2009

Bonjour,

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

Code:

    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 · 18 Janvier 2009

Re : Existence d'objets dans une sélection

Bonjour Marmotte

essaye ainsi :

Code:

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

tu peux également utiliser ceci :

Code:

ActiveSheet.DrawingObjects.Select
x = Selection.Count

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

bon dimanche.
@+

marmotte18 · 18 Janvier 2009

Re : Existence d'objets dans une sélection

Bonjour Pierrot93,

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

Privacy & Transparency