Bonjour
j'ai reçu un fichier contenant beaucoup de labels.
y a t il un fonction permettant de tous les afficher en une seul opération ?
Merci d'avance
Bill
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 LoopEnd Sub
cdt
LaurentD
Answer Verified By: Bill_Swiss
Super, je te remercie infiniment.
C'est exactement de que je recherchais.
A bientôt