Ajouter une propriete au composant

[cortex59]

Bonjour je voudrais ajouter une propriete au composant, pour cela j'ai effectuer ce code

Dim sel As Visio.Selection    ' variable selection
Dim eqt As Visio.Shape       ' Variable disjoncteur
Dim shap As Visio.Shape     ' Objet ouvert
 
Set sel = ActiveWindow.Selection    ' creation de la selection
Set eqt = sel.Item(1)                    ' selection de l'objet
 
Set shap = eqt.Shapes.Item("voyant")
 
If eqt.Cells("Prop.voyant").ResultStr(0) = "Oui" Then     ' propriété = oui
...
end if

Mais cette ligne de commande fonctionne pas

If eqt.Cells("Prop.voyant").ResultStr(0) = "Oui" Then

erreur indique : "Fin de fichier inatendue

[Pierre Fauconnier]

Bonjour

Es-tu certain du nom de ta propriété? Les propriétés personnalisées ne peuvent pas contenir de points, me semble-t-il. De plus, tu dois la préfixer de User..

Si tu as une propriété perso appelée Voyant, tu dois utiliser

cells("User.Voyant")

[nicolas_151]

Bonjour

Bonjour je voudrais ajouter une propriété au composant, pour cela j'ai effectué ce code

Ton code affecte une valeur mais n'ajoute pas de propriété
si ta section n'existe pas faire d'abord "ADDSection( n°section)"

Puis ajoute une ligne faire "ADDRow(n°section,Ligne,Type de ligne)"

Voir aide F1 pour les indices

Set shap = eqt.Shapes.Item("voyant")

???

If eqt.Cells("Prop.voyant").ResultStr(0) = "Oui" Then

Regarde si ta cellule existe (Voir shapeSheet)

[cortex59]

En effet j'avais oublie d'ajouter ma propriete dans "shapeSheet"

Merci