Shape : Renuméroter

[suistrop]

Bonjour,

J ai hérité d un fichier excel avec des shapes que je dois mettre e forme.
Malheuresement les numéro de ces shapes ne se suivent pas ca comment vers 120 et ca fini vers 150 alors qu il n y a que 20 shapes.
Je suppose que mon prédécesseur a du faire des tests et les supprimer car ils n apparaissent nul part.

Je voudrais savoir comment renuméroter les shapes.
je vous joint un exemple.
Je voudrais renuméroter ces shapes de 1 a 7 merci.

Merci.

 

[tototiti2008]

Re : Shape : Renuméroter

Bonjour suistrop,

peut-être :

Sub Renum()
Dim sh As Shape
i = 1
For Each sh In ActiveSheet.Shapes
sh.Name = "Zone de texte " & i
i = i + 1
Next sh
End Sub

 

[job75]

Re : Shape : Renuméroter

Bonjour suistrop, tototiti,

Un peu comme tototiti, et ça me paraît un peu lourd, mais ça devrait marcher quelque soit le type de shape, et si leur numéro est < 100000 :

Sub Renum()
Dim sh As Object
i = 0
For Each sh In ActiveSheet.Shapes
i = i + 1
sh.Name = Nom(sh.Name, True) & 100000 + i
Next
For Each sh In ActiveSheet.Shapes
sh.Name = Nom(sh.Name, True) & Nom(sh.Name, False) - 100000
Next
End Sub

Function Nom(sh$, n As Boolean)
txt$ = ""
nb$ = ""
For i = 1 To Len(sh)
c$ = Mid(sh, i, 1)
If IsNumeric(c) Then
nb = nb & c
Else
txt = txt & c
End If
Next
Nom = IIf(n, txt, nb)
End Function

Edition : j'ai fait 2 boucles dans Renum, car 2 shapes ne peuvent avoir le même nom, j'ai vérifié.

A+

 

[suistrop]

Re : Shape : Renuméroter

Merci a vous entre tps j ai changé de stratégie !
je vais les renommer en fonction de ce qu il y a a l intérieur !!

Ce pose le probleme de comment les parcourir 😀