Le portail francophone de la géomatique

Dim mondoc As IMxDocument,  i As Integer
dim monensemblededefinition as iFeatureLayerDefinition
dim mavaleur as string 'si la valeur est un chiffre il faut mettre as integer
mavaleur = InputBox("Quelle valeur voulez vous ?", "Ensemble de définition", "valeur par défaut")
if mavaleur<>"" then 
    Set mondoc = ThisDocument
    for i=0 to mondoc.FocusMap.LayerCount -1
          set monensemblededefinition = mondoc.FocusMap.layer(i)
          monensemblededefinition.DefinitionExpression="[CODEID]=" & mavaleur & "" 'c'est un exempl, il faut copier coller votre ensemble de definition


    Next i
    mondoc.activeview.refresh
else
   Msgbox "Vous avez annulé"
end if

Sub test()

Dim mondoc As IMxDocument, i As Integer
Dim monensemblededefinition As IFeatureLayerDefinition
Dim message, title, defaultvalue As String
Dim saisie As String
Dim macarte As IMap, macouche As ILayer
Dim identifiant As New UID
Dim collection_couche As IEnumLayer
    message = "Code ID ?"
    title = "Assisant carto"
    defaultvalue = "ID"
    saisie = InputBox(message, title, defaultvalue)
    Set mondoc = ThisDocument
    Set macarte = mondoc.FocusMap
    identifiant = "{E156D7E5-22AF-11D3-9F99-00C04F6BC78E}"
    Set collection_couche = macarte.Layers(identifiant, True)
    collection_couche.Reset
    Set macouche = collection_couche.Next
    Do While Not macouche Is Nothing
        Set monensemblededefinition = macouche
        monensemblededefinition.DefinitionExpression = "[CODEID]='" & saisie & "'"
        Set macouche = collection_couche.Next
    Loop
    mondoc.ActiveView.Refresh
End Sub