Bonjour, je viens vers vous aujourd'hui car j'ai un petit problème sur mon code actuellement:
lorsque je drop un objet particulier sur la page active, je met en mémoire cette forme et j'ouvre une userform pour demander certaines choses à l'utilisateur.
Voici le code contenu dans Document - ShapeAdded, donc le code qui est générer au drop d'un objet sur la pageactive:
1 2 3 4 5 6 7
| Private Sub Document_ShapeAdded(ByVal Shape As IVShape)
If Mid(Shape.Name, 1, 14) = "Lien dynamique" Then
Set UserForm1.vsoshape = Shape
UserForm1.Show
End If
End Sub |
vsoshape à été définie en Public dans la partie code de la userform:
Public vsoshape As IVShape
Après avoir stocké ma forme, je n'y touche plus, je fait des manips annexes, puis, je trouve une formule que je veut réinsérer dans certaines cellules de ma shape mise en mémoire, ainsi j'obtiens cette ligne de code, pour mettre la formule de droite dans la cellule indiquée:
UserForm1.vsoshape.Cells("EndX").Formula = "PAR(PNT(" & end_string & "!Connections.X2," & end_string & "!Connections.Y2))"
Et là, à la compilation, je me retrouve avec un code d'erreur: "Une exception s'est produite" Erreur d'execution '-2032464666 (86db0ce6)'
sur la ligne citée juste au-dessus.
J'ai donc fait des tests, essayer de concaténer à part et de remplacer après, même erreur, j'ai placer juste un "90mm" et cela fonctionne, je ne vois donc pas comment faire, quelle est mon erreur.
Merci d'avance pour vos réponses, cordialement.
Partager