Le portail francophone de la géomatique

Static rec As Double
Dim pMxDoc As IMxDocument
Dim pFLayer As IFeatureLayer
Dim pCursor As ICursor
    
Set pMxDoc = ThisDocument
    
Dim icompteur As Integer
icompteur = 0
    
'couche recherchée
While (pMxDoc.FocusMap.Layer(icompteur).Name <> "REAUA" Or icompteur = pMxDoc.FocusMap.LayerCount)
icompteur = icompteur + 1
Wend
    
If icompteur < pMxDoc.FocusMap.LayerCount Then
Set pFLayer = pMxDoc.FocusMap.Layer(icompteur)
'Else
'Exit Sub
End If
    
'déselectionne les champs sélectionnés
Set pCursor = pFLayer.Search(Nothing, False)
    
'on prend les stats
Dim pData As IDataStatistics
Dim pStatResults As IStatisticsResults
Dim Maximum As Double
    
Set pData = New DataStatistics
'le nom du champ dont tu veux avoir le max
pData.Field = "Id_arc"
    
Set pData.Cursor = pCursor
Set pStatResults = pData.Statistics
Maximum = pStatResults.Maximum

'2. Calcul des identifiants en fonction de la valeur maximum trouvée précédemment

'si l'identifiant est déjà renseigné sa valeur reste inchangée
If [Id_arc] <> 0 Then
rec = [Id_arc] 
    
'sinon
Else
rec = Maximum + 1
End If