Afficher tous les labels

Bonjour Bill,

je n'ai pas trouvé de fonction.

Crée un module vba en copiant ceci dedans

Sub Affich_Tags()
    Dim oElement As Element
    Dim oTagele As TagElement
    Dim oScanCriteria As New ElementScanCriteria
    Dim oScanEnumerator As ElementEnumerator
    oScanCriteria.ExcludeAllTypes
    oScanCriteria.IncludeType msdElementTypeTag
    Set oScanEnumerator = ActiveModelReference.Scan(oScanCriteria)

        Do While oScanEnumerator.MoveNext
        Set oElement = oScanEnumerator.Current
        Set oTagele = oElement
        oTagele.IsHidden = False ' true pour les cacher tous
        oTagele.Rewrite
    Loop
End Sub

cdt

LaurentD

Super, je te remercie infiniment.

C'est exactement de que je recherchais.

A bientôt

Bill