Bonjour à tous
J'ai un gros problème . Je viens de me rendre compte que ma feuille de calcul était d'un coup très très lente . J'ai lancé cette petite macro :
Sub Cptzone()
For i = 1 To ActiveSheet.Shapes.Count
nb = i
Next i
MsgBox nb
End Sub
car je me suis aperçu que j'avais un grand nombre de zones de texte vide dans ma feuille ( ne me demandez pas comment ça se fait, je sais pas ) toujours est-il que le résultat de cette macro me donne 24541. J'ai bien une deuxième macro en stock , celle là :
Sub Suphapes()
For Each c In ActiveSheet.Shapes
c.delete
Next c
End Sub
pour supprimer toutes les zones
mais je ne peux pas l'utiliser car j'ai quand même des zones textes qu'ils faut que je conserve, toute situées en ligne 1 figée.
Quelqu'un aurait-il une idée pour effacer ces zones tout en conservant celles que j'ai besoin en ligne 1 ???
Merci d'avance
J'ai un gros problème . Je viens de me rendre compte que ma feuille de calcul était d'un coup très très lente . J'ai lancé cette petite macro :
Sub Cptzone()
For i = 1 To ActiveSheet.Shapes.Count
nb = i
Next i
MsgBox nb
End Sub
car je me suis aperçu que j'avais un grand nombre de zones de texte vide dans ma feuille ( ne me demandez pas comment ça se fait, je sais pas ) toujours est-il que le résultat de cette macro me donne 24541. J'ai bien une deuxième macro en stock , celle là :
Sub Suphapes()
For Each c In ActiveSheet.Shapes
c.delete
Next c
End Sub
pour supprimer toutes les zones
mais je ne peux pas l'utiliser car j'ai quand même des zones textes qu'ils faut que je conserve, toute situées en ligne 1 figée.
Quelqu'un aurait-il une idée pour effacer ces zones tout en conservant celles que j'ai besoin en ligne 1 ???
Merci d'avance