Supréssion Fonction avec vba

Conception 3D Autres applications
1

Bonjour :) 

Je suis à la recherche d'une fonction me permettant de supprimer uniquement "ma fonction" et non pas les fonctions enfants.

approche N°1)

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Enlèv. mat.-Extru.2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Part.EditDelete
End Sub

 Je l'ai donc utilisé avec une condition 

If (Sheets("BD_Valeur").Range("D154")) = True Then

boolstatus = Part.Extension.SelectByID2((Sheets("BD_Valeur").Range("B154")), "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)

Part.EditDelete

End If

 

Tout cela fonctionne tres bien mais : 

Il ma supprimé la fonction avec la case coché.

 

Avez vous une fonction correspondante?

Ou savez vous si je doit modifier une variable ??

 

2

boolstatus = Part.Extension.DeleteSelection2(0)

 

Résolu apres pas mal de recherche :)

1 « J'aime »