Discussion :

[beta007]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[beta007]

merci à vous deux de votre réponce

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 je ne comprends pas!
Désolé de vous avoir dérangé pour un problème qui n'existais pas!!!

[Menhir]

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

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

[Menhir]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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