[XL-2007] nom d'une forme

nom d'une forme

bonjour,
je travaille avec des formes et pour simplifier (je le croyais...) le travail de la construction du code VBA, j'ai renommé mes formes de nom plus explicite que "carré1, carré2, etc".
j'ai donc tapé mon code
Code:

1 2 3 4 5 6 7 ActiveSheet.Shapes.Range(Array("Fond501")).Select With Selection.ShapeRange.Fill .Visible = msoTrue .ForeColor.RGB = RGB(112, 48, 160) .Transparency = 0 .Solid End With
mais il ne veux rien savoir, je suis obligé de mettre la "valeur" originel en anglais style "Snip Single Corner Rectangle 7"
pourtant si je vais dans l'onglet formule->gestionnaire de noms: j'ai bien "Fond501" pour le nom de ma forme
ma question est-il possible de travailler avec le nom, car malgrès mes recherche je n'ai rien trouvé, ou suive condanné de prendre les nom anglais originel?
merci d'avance de votre aide.

Bonjour,

j'ai testé ton code sur excel 2010 et 2013, et aucun souci.

j'ai crée une forme (un rectangle)

je l'ai renommé en "MaFormeBis"

j'ai lancé ce code :
Code:

1 2 3 4 5 6 7 8 9 10 Sub toto() ActiveSheet.Shapes.Range(Array("MaFormeBis")).Select With Selection.ShapeRange.Fill .Visible = msoTrue .ForeColor.RGB = RGB(112, 48, 160) .Transparency = 0 .Solid End With End Sub
la forme a bien été sélectionnée et la couleur modifiée :?

Essaye de supprimer les Select/Selection qui peuvent parfois générer des ambiguïtés.

Code:

1
2
3
4
5
6
    With ActiveSheet.Shapes.Range(Array("Fond501")).ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(112, 48, 160)
        .Transparency = 0
        .Solid
    End With

merci à vous deux de votre réponce

Citation:

Envoyé par joe.levrai

j'ai testé ton code sur excel 2010 et 2013, et aucun souci.

:?

par aquis de concience j'ai réessayé et au miracle cela fonctionne :cfou: je ne comprends pas!
Désolé de vous avoir dérangé pour un problème qui n'existais pas!!!

Citation:

Envoyé par beta007

par aquis de concience j'ai réessayé et au miracle cela fonctionne :cfou: je ne comprends pas!

La page sélectionnée au lancement de la macro ne devait pas être celle où se trouve l'objet.