Discussion :

[emmanuel89500]

Bonjour,
La question est la suivante :

Je crée un segment sur une feuille :

Code :

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

ActiveSheet.Shapes.AddLine(300, 50, 700, 500).Line.ForeColor.RGB = RGB(255, 0, 0)

par la suite, je souhaite translater cette ligne par l'intermédiaire d'un scrollbar parexemple.
Le problème est que pour que je puisse selectionner la ligne en question pour la déplacer, il faut que je connaisse son NOM, où que je lui attribue un NOM!

Donc comment CONNAÎTRE ou ATTRIBUER un NOM à une ligne?

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim maLigne As Shape
 
'Affecte la variable maLigne à la ligne nommée LaLigne
On Error Resume Next
Set maLigne = ActiveSheet.Shapes("LaLigne")
On Error GoTo 0
'Si LaLigne n'existe pas, on la crée
If maLigne Is Nothing Then
    Set maLigne = ActiveSheet.Shapes.AddLine(300, 50, 700, 500)
    With maLigne
        .Line.ForeColor.RGB = RGB(255, 0, 0)
        .Name = "Laligne"
    End With
    MsgBox "créée"
Else
    MsgBox "LaLigne existe déjà"
End If
'on est sûr de l'existence d'une ligne appelée LaLigne
maLigne.Left = 0
MsgBox "LaLigne déplacée"
Set maLigne = Nothing

[Godzestla]

Bonjour,

tu peux également retrouver ta ligne dans la collection Shapes

Code :

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

1
2
3
4
5
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
  Debug.Print sh.Name
Next
End Sub

[emmanuel89500]

Merci beaucoup, cela fonctionne parfaitement!

du code je n'ai gardé que :

Code :

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

1
2
3
4
5
Set maLigne = ActiveSheet.Shapes.AddLine(300, 50, 700, 500)
    With maLigne
        .Line.ForeColor.RGB = RGB(255, 0, 0)
        .Name = "Laligne"
    End With

J'avais bien eu l'idée d'utiliser la propriété .Name, mais j'avais mal définit la construction de ma ligne, et c'est grâce à l'instruction SET que le problème se résout!

@+ Em

[mercatog]

Attention quand même si tu as sur la feuille l'existence préalable d'une ligne portant le même nom LaLigne, tu auras du souci pour désigne laquelle.
J'ai fais un test croyant qu'un seul nom peut être attribué à un sahpe, mais apparemment, on peut insérer plusieurs shape portant le même nom.
En plus

Code :

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

Set maLigne = ActiveSheet.Shapes("LaLigne")

indique le première shape portant le nom LaLigne

[emmanuel89500]

Merci et je comprends le propos,
mais en ce qui concerne ce que je souhaite faire le problème de dualité de nom ne se posera pas, puisque justement le but est de "forcer" le nom des lignes crées pour pouvoir les gérer par la suite.

Le but du jeu est le suivant :

1) créer un triangle de dimensions donnés
2) Dans ce triangle créer un rectangle dont les sommets "touchent" chacun des côtés
3)déterminer la position optimale d'un sommet du rectangle afin que son aire soit maximale.

Le mot "jeu " est à prendre au sens propre, car je m'amuse énormément à programmer, même si le mot "défit" me vient aussi à l'esprit.

En fait je suis enseignant en maths, et je cherche des idées parce que j'ai crée un "club" Maths et programmation.

@+ EM

[mercatog]

Bonsoir
Justement j'avais dans la première proposition "ajouté" des lignes de code pour que dans n'importe quel cas, il y aura une unique ligne portant un nom donné. C'était une précaution à prendre au cas où.