Le portail francophone de la géomatique

Sub MajChamp()

'-------------------------------------------------------
' Objectif :
' o Mise a jour automatique d'un champ
'
' Elements a parametrer :
' o N° de la couche dans la table des matiere (pFLayer)
' o Requete de selection (WhereClause)
' o Nom du champ a mettre a jour (indexID)
' o Nouvelle valeur a inserer (maNouvelleValeur)
'-------------------------------------------------------

' Declaration variables
Dim pFLayer As IFeatureLayer
Dim pFClass As IFeatureClass
Dim pMxDoc As IMxDocument
Dim pFeature As IFeature
Dim pFCursor As IFeatureCursor
Dim pQueryFilter As IQueryFilter
Dim indexChamp As Long

' Selection de la 1ere couche de la table des matieres
Set pMxDoc = ThisDocument
Set pFLayer = pMxDoc.FocusMap.Layer(0)
Set pFClass = pFLayer.FeatureClass

' On realise ici la requete
Set pQueryFilter = New QueryFilter
With pQueryFilter
  .WhereClause = TYPE = 104
End With

'On recupere l'index du champ qu'on va mettre a jour
indexChamp = pFClass.FindField( Route_Gabon )

Set pFCursor = pFClass.Search(pQueryFilter, False)
Set pFeature = pFCursor.NextFeature

' Boucle pour affecter a chaque element selectionne la meme valeur
While Not pFeature Is Nothing
  pFeature.Value(indexChamp) = maNouvelleValeur
  pFeature.Store
  Set pFeature = pFCursor.NextFeature
Wend

End Sub

Dim StrSecteur as string (si le champ echelle est bien de type texte)
Dim StrEchelle as string (si le champ secteur est de type texte)
StrSecteur = [secteur] (nom du champ secteur entre crochets)
If StrSecteur = VTN then
  StrEchelle= 1 : 125000
End If