Vérifier valeurs identiques (API logiciel CAO)

Bonjour,

Je bloque sur "comment vérifier si la valeur est identique entre des éléments", pour se mettre dans le contexte j'utilise un logiciel de dessin (type CAO) où j'ai un ensemble de pièce. Ces pièces appartiennent à des ensembles, et certaines sont identiques entres les ensembles mais pas toutes. De plus certaines n'ont pas de numéro, pour contextualiser voici à quoi cela ressemble :

- ENSEMBLE A :

- pièce 1 ; n°1
- pièce 2 ; n°2
- pièce 3 : pas de numéro

- ENSEMBLE B :

- pièce 1 ; n°1
- pièce 2 ; n°3
- pièce 3 : n°4

Ici la pièce 1 des ensembles A et B est identiques (à le même numéro), mais je n'arrive pas à le vérifier.

Pour l'instant je n'arrive qu'à vérifier si les pièces sont numérotées ou non via ce code :

If TopShape.Element.BomIndexName <> "" Then

'...

'Else

'...

'End If

Voici le code dans son intégralité :

Private Sub BomGetShapes(TopBomLevel As TopSolid.BOMLevel)

Dim i               As Integer
Dim TopBomSubLevel  As TopSolid.BOMLevel
Dim TopShapes       As Variant
Dim TopShapeCount   As Long
Dim TopShape        As TopSolid.Shape
Dim TopShapeName    As String

'On Error Resume Next

If TopBomLevel.SubLevels.Count > "0" Then

' if there are sublevels, we get them

For i = 1 To TopBomLevel.SubLevels.Count

Set TopBomSubLevel = TopBomLevel.SubLevels.Item(i)

BomGetShapes TopBomSubLevel

Next i

Else

' if there are no sublevels, we can get the shapes of the sublevel and analyze them

TopShapes = TopBomLevel.GetShapes

TopShapeCount = UBound(TopShapes, 1)

For i = 0 To TopShapeCount

Set TopShape = TopShapes(i)

If TopShape Is Nothing Then

' error management

' it isn't normal

Exit Sub

End If

If TopShape.Element.BomIndexName <> "" Then

'...

'Else

'...

End If

Next i

End If

End Sub

J'aimerais coder pour " toutes les pièces qui ont le même "BomIndexName" " alors ...

Quelqu'un aurait-il une piste en ce sens ?

Merci par avance,

Le mieux serait de nous donner le fichier contenant la macro à vérifier.

Bonjour et merci pour votre retour, je vous met en PJ le fichier complet.

Cordialement

Si j'ai bien compris, il faut installer Topsolid pour pouvoir tester votre code ?

Oui malheureusement, de ce fait il n'y a que moi si on peut dire qui peut tester vos propositions

Alors, désolé, je ne peux pas vous apporter l'aide souhaitée. Mais il y a peut-être un utilisateur de Topsolid sur ce site.
Bon courage.