Le portail francophone de la géomatique

Bonjour Cyril,
Voici un bout de code qui répondra a ta premiere question. Il est fait
de telle sorte a chaque ouverture de ton projet, la combobox va charger
les enregistrements de ton premier theme de la TOC et cela selon le
champ que tu auras défini.

Pour le reste de ta question, il faut que tu appliques une sélection a
l'entité correspondant au choix de l'utilisateur et que tu récuperes son
étendue afin de l'affecter a ta vue active. Voici l'une des démarches
que tu pourrais adopter.

Si tu as un probleme on peut voir ca lundi, car la il faut que j'y
aille.

A+

Private Function MxDocument_OpenDocument() As Boolean
'A chaque ouverture du *.mxd, la combobox charge tous les
enregistrements
'de la couche Départements (selon le champ Département)

Dim pMxDoc As IMxDocument
Set pMxDoc = ThisDocument

Dim pMap As IMap
Set pMap = pMxDoc.FocusMap

'Processus fonctionnant sur la premiere couche
Dim pLayer As ILayer
Set pLayer = pMap.Layer(0)

Dim pFLayer As IFeatureLayer
Set pFLayer = pLayer

Dim pTableLayer As IFeatureClass
Set pTableLayer = pFLayer.FeatureClass

'Sélection de tous les enregistrements
Dim pCursor As ICursor
Set pCursor = pTableLayer.Search(Nothing, False)
'Recherche le nom de la colonne
Dim i As Integer
Dim pRow As IRow
i = pTableLayer.FindField( DépARTEM0 ) 'Ici mettre le nom du =
champ
que tu veux
Set pRow = pCursor.NextRow
Do While Not pRow Is Nothing
cboChargeEnregistrement.AddItem pRow.Value(i)
Set pRow = pCursor.NextRow
'Affiche le 1er nom en haut de la cbo
cboChargeEnregistrement.EditText = cboChargeEnregistrement.Item(0)
Loop

End Function