Liste déroulante provoque bug avec Shape

herve62

XLDnaute Barbatruc
Bonjour le forum
Je voudrai améliorer le pg de Gantt ( encore d'actualité ici !!) en ajoutant une liste déroulante sur Reférences en D mais bizaremment cela provoque un bug dans la sub Maj Shapes ? au niveau de sh.topleftcell je ne vois pas le rapport ?
Merci e vos idées
 

Fichiers joints

job75

XLDnaute Barbatruc
Bonjour herve62,

Il faut savoir que les commentaires et les listes de validation sont des Shapes.

Seules les Shapes des listes de validation n'ont pas de TopLeftCell donc il faut tester :
Code:
    For Each Sh In ActiveSheet.Shapes
        If Not Sh.Name Like "Drop Down*" Then 'si la Shape n'est pas une liste de validation
            If Not Intersect(Sh.TopLeftCell, Range("C13:XX2000")) Is Nothing Then Sh.Delete
        End If
    Next Sh
ou bien utiliser On Error Resume Next comme ceci :
Code:
    On Error Resume Next
    For Each Sh In ActiveSheet.Shapes
        If Intersect(Sh.TopLeftCell, Range("C13:XX2000")) Is Nothing Then Else Sh.Delete
    Next Sh
A+
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas