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
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