Sylvain133
XLDnaute Nouveau
Bonjour à tous,
Comme le sujet l'indique j'aimerais manipuler des formes par une macro sur VBA. Je vous explique mon problème. J'ai 2 rectangles de même taille. J'aimerai que l'un s'affiche à partir d'une condition en le faisant passer au premier plan. Ainsi j'essaye ce bout de code qui ne fonctionne pas et me retourne le fait que ce nom d'objet est inexistant alors que mon rectangle se nomme bien ainsi ! J'ai également essayé de lui donner un nom mais rien n'y fait. Voici le code utilisé :
If i = 3 Or i = 5 Or i = 5 Then
ActiveSheet.Shapes.Range(Array("Rectangle 104")).Select
Selection.ShapeRange.ZOrder msoBringToFront
Else
ActiveSheet.Shapes.Range(Array("Rectangle 106")).Select
Selection.ShapeRange.ZOrder msoBringToFront
End If
Merci à tous pour vos réponses
Comme le sujet l'indique j'aimerais manipuler des formes par une macro sur VBA. Je vous explique mon problème. J'ai 2 rectangles de même taille. J'aimerai que l'un s'affiche à partir d'une condition en le faisant passer au premier plan. Ainsi j'essaye ce bout de code qui ne fonctionne pas et me retourne le fait que ce nom d'objet est inexistant alors que mon rectangle se nomme bien ainsi ! J'ai également essayé de lui donner un nom mais rien n'y fait. Voici le code utilisé :
If i = 3 Or i = 5 Or i = 5 Then
ActiveSheet.Shapes.Range(Array("Rectangle 104")).Select
Selection.ShapeRange.ZOrder msoBringToFront
Else
ActiveSheet.Shapes.Range(Array("Rectangle 106")).Select
Selection.ShapeRange.ZOrder msoBringToFront
End If
Merci à tous pour vos réponses