Bonjour le forum,
Voici mon problème:
J'ai une feuille avec un ensemble de lignes (traits) qui représentent un circuit autoroutier. Je dois faire en sorte que l'utilisateur puisse changer la couleur du trait sur lequel il clique (ça c'est bon je sais faire). Mais pour être plus rapide, l'utilisateur a besoin de faire des groupes de plusieurs traits pour que lors de son clic, tous les traits du groupe changent de couleur.
Voici ce que j'ai commencé à faire mais qui ne fonctionne pas:
Merci d'avance pour votre aide.
je suis preneur de toute vision différente pour une solution...
Voici mon problème:
J'ai une feuille avec un ensemble de lignes (traits) qui représentent un circuit autoroutier. Je dois faire en sorte que l'utilisateur puisse changer la couleur du trait sur lequel il clique (ça c'est bon je sais faire). Mais pour être plus rapide, l'utilisateur a besoin de faire des groupes de plusieurs traits pour que lors de son clic, tous les traits du groupe changent de couleur.
Voici ce que j'ai commencé à faire mais qui ne fonctionne pas:
Code:
Private Sub CommandButton3_Click() 'j'ai mis cette fonction sur un bouton mais préférerai la mettre sur l'évènement Click du groupe
Dim sh As Shape
For Each sh In Selection 'La selection étant le groupe cliqué par l'utilisateur
If sh.Type = msoLine Then
If sh.Line.ForeColor.SchemeColor = 64 Then
sh.Line.ForeColor.SchemeColor = 10
End If
End If
Next
End Sub
Merci d'avance pour votre aide.
je suis preneur de toute vision différente pour une solution...