Insertion de formes

dionys0s · 30 Novembre 2011

Bonsoir le forum 🙂

Je souhaite créer une petite macro de rien du tout qui servirait d'assistant pour du dessin assez sommaire.

En gros, quand je sélectionne une plage, j'aimerais qu'il trace un trait du coin haut gauche de la première cellule de la plage (au moment du clic) jusqu'au coin bas droit de la dernière cellule de la plage (au moment du relâchement de la souris.

Je ne sais pas trop si c'est possible. Je lutte déjà pour trouver le nom de cette forme, et l'enregistreur de macro ne m'est d'aucune utilité pour trouver des indices puisqu'il n'enregistre rien...

En tout cas merci d'avance pour votre aide

dionys0s

job75 · 30 Novembre 2011

Re : Insertion de formes

Bonsoir dionys0s,

dionys0s à dit:
Je souhaite créer une petite macro de rien du tout (...)

La voici, dans le code de la feuille (clic droit sur l'onglet et Visualiser le code) :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel1 As Range, cel2 As Range
If Target.Areas.Count = 1 And Target.Count > 1 Then
  On Error Resume Next
  Set cel1 = Target(1, 1)
  Set cel2 = cel1.Offset(Target.Rows.Count, Target.Columns.Count)
  ActiveSheet.Shapes.AddConnector msoConnectorStraight, _
    cel1.Left, cel1.Top, cel2.Left - cel1.Left, cel2.Top - cel1.Top
End If
End Sub

Je l'ai testée sous Excel 2003.

Il ne vous reste plus qu'à sélectionner une plage de cellules.

A+

job75 · 30 Novembre 2011

Re : Insertion de formes

Re,

Si l'on veut colorer l'objet :

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cel1 As Range, cel2 As Range, o As Object
If Target.Areas.Count = 1 And Target.Count > 1 Then
  On Error Resume Next
  Set cel1 = Target(1, 1)
  Set cel2 = cel1.Offset(Target.Rows.Count, Target.Columns.Count)
  Set o = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, _
    cel1.Left, cel1.Top, cel2.Left - cel1.Left, cel2.Top - cel1.Top)
  o.Line.ForeColor.SchemeColor = 10 'rouge
End If
End Sub

A+

Insertion de formes

dionys0s

XLDnaute Impliqué

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

Insertion de formes

dionys0s

XLDnaute Impliqué

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency