Le portail francophone de la géomatique

Dim mondoc As IMxDocument, macarte As IMap, monpoint As IPoint, monrect As IEnvelope, macouche As ILayer
Dim monenv As ISelectionEnvironment, trouve As Boolean, i As Byte, j As Byte, matable As ITable
Dim masel As IFeatureSelection, moncurseur As ICursor, maligne As IRow, compteur_sol As Integer
Dim outil As ICommandItem, num_uc As String, mess As String
    Set mondoc = ThisDocument
    Set macarte = mondoc.Maps.Item(0)
    Set monpoint = mondoc.CurrentLocation
    For i = 0 To macarte.LayerCount - 1
        If macarte.Layer(i).Name = "MaTableASelectionner" Then
            Set macouche = macarte.Layer(i)
            Exit For
        End If
    Next i
    Set matable = macouche
    Set monrect = monpoint.Envelope
    monrect.Expand mondoc.SearchTolerance, mondoc.SearchTolerance, False
    Set monenv = New SelectionEnvironment
    monenv.AreaSelectionMethod = esriSpatialRelIntersects
    macarte.SelectByShape monrect, monenv, False
    mondoc.ActiveView.Refresh

Dim mondoc As IMxDocument, macarte As IMap, macouche As ILayer, i As Integer
Dim moncurseur As ICursor, maligne As IRow, matable As ITable,mavariable as string

    Set mondoc = ThisDocument
    Set macarte = mondoc.Maps.Item(0)
    For i = 0 To macarte.LayerCount - 1
        If macarte.Layer(i).Name = "nom_de_ma_couche" Then Set macouche = macarte.Layer(i)
    Next i
    Set matable = macouche
    Set moncurseur = matable.Search(Nothing, False)
    Set maligne = moncurseur.NextRow
    If maligne Is Nothing Then
        MsgBox "aucun enregistrement dans la table"
    Else
        
        Do Until maligne Is Nothing
            mavariable = maligne.Fields.FindField(moncurseur.Fields.FindField("Nom_du_Champ"))
            
            Set maligne = moncurseur.NextRow
        Loop
    End If
   
End Sub