Modifier l'angle d'un objet inseret avec une macro

bonjour je suis sur 365.

pour une explication visuel j'ai besoin de faire varié un angle de rotation d'un objet insère (flèche ) avec une valeur de cellule précise.

merci de votre aide

12angles-segment.xlsx (10.47 Ko)

Bonjour,

Vous devez passer par VBA pour modifier la rotation d'une forme. Cf. Shape.Rotation property (Excel) | Microsoft Learn

ok merci mais la j'avoue que je ne comprend pas ce qu 'il faut faire

Bonjour,

Voir ci-joint une proposition. On se base sur le nom de la forme en colonne B pour la retrouver. En effet puisqu'elles tournent, il est difficile de les identifier autrement, on risque d'avoir des erreurs.

13angles-segment.xlsm (17.41 Ko)

Le code ci-après :

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Columns("C")) Is Nothing Then Exit Sub
  If Target.CountLarge > 1 Then Exit Sub

  Dim shp As Shape
  For Each shp In Me.Shapes
    If shp.Name = Target.Offset(0, -1).Value2 Then
      shp.Rotation = Target.Value2 * -1   ' -1 parce que le referenciel est inversé
      Exit Sub
    End If
  Next shp
End Sub
Rechercher des sujets similaires à "modifier angle objet inseret macro"