Peut t-on vérrouiller la numérotation des rectangles de forme?

[fred2705]

Bonjour,

Dans ma feuille j'ai des macro qui font changer la couleur et l'épaisseur de la bordure d'un rectangle dessiné.

Cette feuille peut être copiée également par macro, et c'est là que mon problème se produit:

Lors de la copie de ma feuille la numérotation des formes rectangle change!
exemple: "Rectangle 121"" devient "Rectangle 107""
Du coup mes macro qui font appelle au nom de mon rectangle ne retrouve plus leurs chemin!

Je galère...Merci pour votre aide.

 

[Pierrot93]

Re : Peut t-on vérrouiller la numérotation des rectangles de forme?

Bonjour,

voir si dans ton code tu peux utiliser le numéro d'index de la forme en lieu et place de son nom...
sans plus de détails, difficile d'en dire plus...

bonne journée
@+

 

[fred2705]

Re : Peut t-on vérrouiller la numérotation des rectangles de forme?

Voici un exemple d'un de mes codes si ça peux aider:

ActiveSheet.Shapes.Range(Array("Rectangle 287", "Rectangle 289", _
        "Rectangle 297", "Rectangle 299", "Rectangle 301", "Rectangle 303" _
        , "Rectangle 309", "Rectangle 311", "Rectangle 305", "Rectangle 307" _
        , "Rectangle 270", "Rectangle 272", "Rectangle 274", "Rectangle 276")).Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
Selection.ShapeRange.Line.Weight = 0.75

 

[Pierrot93]

Re : Peut t-on vérrouiller la numérotation des rectangles de forme?

Re,

si les seuls objets sur la feuille :

Feuil1.Shapes.SelectAll

 

[fred2705]

Re : Peut t-on vérrouiller la numérotation des rectangles de forme?

Merci Pierrot93 mais non ce ne sont pas les seules objet, j'ai beaucoup d'objet et plusieurs codes de ce genre!

 

[Pierrot93]

Re : Peut t-on vérrouiller la numérotation des rectangles de forme?

Re,

Si tu ne peux pas les déreminer à partir de leur numéro d'index, il faut avoir des critères pertinents permettant de les isoler...

 

[Dranreb]

Re : Peut t-on vérrouiller la numérotation des rectangles de forme?

Bonjour.

Si par chance les macros en question sont exécutées par clic sur ces Shapes, Application.Caller renvoie le nom du Shape qui aura déclenché l'exécution.