Liste déroulante provoque bug avec Shape

[herve62]

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

 

[job75]

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 :

    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 :

    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+

 

[herve62]

Re
Merci Job , encore un truc que je connaissais pas !!
Je testerai