Le portail francophone de la géomatique

Public Sub MakeselectableLayer()
'***Description : Permet de définir les couches sélectionnables
    Dim pMxDoc As IMxDocument
    Set pMxDoc = ThisDocument
    
    Dim pMap As IMap
    Set pMap = pMxDoc.FocusMap
    
    Dim pLayers As IEnumLayer
    Set pLayers = pMap.Layers
    
    Dim pLayer As ILayer
    Set pLayer = pLayers.Next
    
    Do Until pLayer Is Nothing
        If TypeOf pLayer Is IFeatureLayer Then
            Dim pFLayer As IFeatureLayer
            Set pFLayer = pLayer
            pFLayer.Selectable = False
        End If
        
    Set pLayer = pLayers.Next
    Loop