Le portail francophone de la géomatique

Option Explicit

Sub test()
    Dim pMxDoc As IMxDocument
    Set pMxDoc = ThisDocument
    Dim pMap As IMap
    Set pMap = pMxDoc.FocusMap
    Dim pLayer_Point As ILayer
    Set pLayer_Point = pMap.Layer(0)
    Dim pLayer_Polygon As ILayer
    Set pLayer_Polygon = pMap.Layer(1)
    Dim pFL_Point As IFeatureLayer
    Set pFL_Point = pLayer_Point
    Dim pFL_Polygon As IFeatureLayer
    Set pFL_Polygon = pLayer_Polygon
    
    Dim pQueryFilter As IQueryFilter
    Set pQueryFilter = New QueryFilter
    pQueryFilter.WhereClause = "CODE_DEPT ='77' OR CODE_DEPT='51'"
    
    Dim pPolyFCursor As IFeatureCursor
    Set pPolyFCursor = pFL_Polygon.FeatureClass.Search(pQueryFilter, True)
    
    Dim pFSel As IFeatureSelection
    Set pFSel = pFL_Polygon
    Dim pFeature As IFeature
    Set pFeature = pPolyFCursor.NextFeature
    
    Dim pSFilter As ISpatialFilter
    Set pSFilter = New SpatialFilter
    
    While Not pFeature Is Nothing
        
        Set pSFilter.Geometry = pFeature.Shape
        pSFilter.SpatialRel = esriSpatialRelIntersects
        Dim pPointCursor As IFeatureCursor
        Set pPointCursor = pFL_Point.FeatureClass.Search(pSFilter, True)
    
        Dim pSFSel As IFeatureSelection
        Set pSFSel = pFL_Point
        Dim pSFeature As IFeature
        Set pSFeature = pPointCursor.NextFeature
    
        While Not pSFeature Is Nothing
            pSFSel.Add pSFeature
            Set pSFeature = pPointCursor.NextFeature
        Wend
        
        pFSel.Add pFeature
        Set pFeature = pPolyFCursor.NextFeature
    Wend
    pMxDoc.ActiveView.Refresh
End Sub